!*CMP2.09 08/14/01 SVCPFS 6022 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \R.$ROOK.BA60AFT.SVCPFS SVCPFS 6022 * * NEW FILE: \R.$EARL.BA6DAFT.SVCPFS SVCPFS 6022 * ******************************************************************************** #SCN = BA05004 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6022 #NEWVERSION = 6023 #ADD 00017V0S * 13AUG2001 RKK/299 * Symptom: When a record is obtained using the READ NEXT * function and no EMV segment exists, the EMV values * for the previous record are displayed instead of * the default values. * Problem: The EMV segment is not being initialized * correctly. * Fix: Added a paragraph to initialize the EMV segment * before the read. * Paragraphs modified: * 600-READ-NEXT-RCD * Paragraphs added: * 620-CLEAR-SEG9 * Dependency: Apply fix to SVCPFS and run make. * Reference: Case #337082 #ADD 00837 600-READ-NEXT-RCD MOVE REC-IMAGE-CPF OF MESSAGE-IO TO CPF PERFORM 620-CLEAR-SEG9. #DELETE 00838 600-READ-NEXT-RCD #ADD 00876 600-READ-NEXT-RCD 620-CLEAR-SEG9. MOVE ZEROES TO LGTH OF SEG9. MOVE "Y" TO EMV-CHK OF SEG9 ATC-CHK OF SEG9. MOVE "N" TO PRE-SCRN-CHK OF SEG9 PRE-SCRN-CHK-TVR-CVR OF SEG9 PRE-SCRN-CHK-RSN-ONL-CDE OF SEG9 PRE-SCRN-CHK-FALLBACK OF SEG9 FORCE-ONL-FALLBACK-CHK OF SEG9. MOVE "0" TO CAM-CHK-TYP OF SEG9 FALLBACK-ACT-ATM OF SEG9 FALLBACK-ACT-POS OF SEG9 EMV-ISS-APPL-DATA-FRMT OF SEG9. MOVE "00" TO EMV-ISS OF SEG9. MOVE "1" TO BAD-CAM-ACT-RELIABLE OF SEG9 BAD-CAM-ACT-UNRELIABLE OF SEG9 ACTION-TABLE-INDEX OF SEG9. MOVE SPACES TO EMV-PREFIX-RTE OF SEG9 KEYI-GRP OF SEG9. MOVE "**********" TO EMV-ISS-DESCR OF SEG9. #ENDSCN = BA05004 !*CMP2.09 09/06/01 SECTBL 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \R.$ROOK.BA60AFT.SECTBL SECTBL 6002 * * NEW FILE: \R.$EARL.BA6DAFT.SECTBL SECTBL 6002 * ******************************************************************************** #SCN = BA05015 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00268B09 * 31AUG2001 SRC/1803 * Symptom: Business Customer Support (Frequent Shopper * 3.1 enhancements). * Problem: None. * Fix: Added screen Id Status Maintenance IDST4. * Both table occurrences are increased by 1. * Dependency: Apply Fix and ReMAKE. * Reference: WO #010622-41 #ADD 00591A02 05 IDST4 PIC X(35) VALUE "IDST04001CID STATUS INQ/MAINT ". #REPLACE 00895B01 05 PROD-SCRN-ACC-TABL OCCURS 549 TIMES. #REPLACE 00908B01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 549. #ENDSCN = BA05015 !*CMP2.09 09/18/01 MEGATBL 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6000 * ******************************************************************************** #SCN = BA05026 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00046 * 17SEP2001 DMA/20 * Symptom: Uplift BASE24-card to Release 6.0 * Problem: None * Fix: Added CMF, COF and CLST to PROD-RQ-EXT-FRMT-TBL. * Dependency: Apply fixes to MEGATBL and RQMEGAS, and run MAKE. * Reference: WO #010801-01 #ADD 00070 "CLST", "CMF ", "COF ", #ENDSCN = BA05026 !*CMP2.09 09/18/01 RQCAFS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6044 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6044 * ******************************************************************************** #SCN = BA05027 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00023p08 * 17SEP2001 DMA/20 * Symptom: Uplift BASE24-card to Release 6.0 * Problem: None * Fix: Added screen 20 (CARD MANAGEMENT DATA). Modified * the procedure division to use USER-CNTX-CAF-INFO. * Paragraphs modified: * 100-BEGIN * 200-ACCEPT-SCREEN * 450-SET-UP-ADD-CONTINUED * 480-DATA-CHECK * 490-ACCEPT-SCREEN * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY * 595-CLEAR-DATA * 595-SCREEN-INIT * New paragraphs: * 200-ACCEPT-SCREEN-OVERLAY-20 * 490-ACCEPT-SCREEN-OVERLAY-20 * 550-TABLE-LOOK-UP-OVERLAY-17 * 550-TABLE-LOOK-UP-OVERLAY-18 * 550-TABLE-LOOK-UP-OVERLAY-19 * 550-TABLE-LOOK-UP-OVERLAY-20 * 570-DISPLAY-OVERLAY-17 * 570-DISPLAY-OVERLAY-18 * 570-DISPLAY-OVERLAY-19 * 570-DISPLAY-OVERLAY-20 * Dependency: Apply fixes to RQMEGAS, RQCAFS, SCRNCAF, SVCAFS, * and SVCAFM, and run MAKE. * Reference: WO #010801-01 #ADD 00023n15 #REPLACE 00124l01 DATA DIVISION 12, 13, 14, 15, 16, 20, 48. #ADD 00132 DATA DIVISION 01 WS-SEG12. 05 WS-PIN-MAILER-DESCR PIC X(13) VALUE SPACES. 05 WS-PLASTIC-CARRIER-DESCR PIC X(30) VALUE SPACES. 05 WS-ISSUE-STAT2 PIC X(28) VALUE SPACES. 05 WS-CARDHOLDER-TITLE2 PIC X(04) VALUE SPACES. 05 WS-CARDHOLDER-TITLE PIC X(01) VALUE SPACES. 88 VALID-CARDHOLDER-TITLE VALUE IS "0" THROUGH "5". 05 WS-ISSUE-STAT PIC X(02) VALUE SPACES. 88 VALID-ISSUE-STAT VALUE IS "00" THROUGH "05", "07", "09", "11" THROUGH "13", "17". 05 WS-ISSUE-NUM PIC S9(04) COMP VALUE ZEROES. 88 VALID-ISSUE-NUM VALUE IS 1 THRU 25. #ADD 00205c0A DATA DIVISION 05 CAF17 PIC X(4) VALUE " ". 05 CAF18 PIC X(4) VALUE " ". 05 CAF19 PIC X(4) VALUE " ". 05 CAF20 PIC X(4) VALUE "CMS ". #REPLACE 00206c01 DATA DIVISION 05 PROD-DESC PIC X(4) OCCURS 20 TIMES. #REPLACE 00210p01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(2858). #ADD 00232n04 DATA DIVISION 05 WS-COUNTRY2 PIC X(2). #REPLACE 00232p01 DATA DIVISION 05 LEFTOVER PIC X(138). #ADD 00241n02 DATA DIVISION COPY USER-CNTX-CAF-INFO OF =BASRC_BADDLCOB. #ADD 00261g07 DATA DIVISION COPY SC-CARDCAF20 OF =BAAFT_SCNCAFO. #REPLACE 00264n01 DECLARATIVES PROCEDURE DIVISION USING USER-CONTEXT-EXT, USER-CNTX-CAF-INFO. #ADD 00288 100-BEGIN IF ACCT-NUM OF USER-CNTX-CAF-INFO NOT = SPACES MOVE ACCT-NUM OF USER-CNTX-CAF-INFO TO WS-PAN-NUM MOVE CAF-MBR-NUM OF USER-CNTX-CAF-INFO TO MBR-NUM MOVE FIID OF USER-CONTEXT-EXT TO WS-FI-ID PERFORM 240-FETCH-RECORD MOVE 3 TO SAVE-FUNC-KEY. MOVE SPACES TO ACCT-NUM OF USER-CNTX-CAF-INFO. MOVE ZEROES TO CAF-MBR-NUM OF USER-CNTX-CAF-INFO. #ADD 00341c0F 200-ACCEPT-SCREEN ELSE IF WS-OVERLAY = 20 PERFORM 200-ACCEPT-SCREEN-OVERLAY-20 #ADD 00431c1B 200-ACCEPT-SCREEN-OVERLAY-16 200-ACCEPT-SCREEN-OVERLAY-20. ACCEPT SC-MAIN, OVERLAY-20 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14, FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT 1024). #ADD 00933 450-SET-UP-ADD-CONTINUED MOVE SPACES TO VENDOR OF GEN-KEY OF CAF. MOVE SPACES TO CRD-FIID OF GEN-KEY OF CAF. MOVE SPACES TO STOCK OF GEN-KEY OF CAF. MOVE ZEROS TO PREFIX OF GEN-KEY OF CAF. #ADD 01354c4O 480-DATA-CHECK * C-CARDHOLDER-TITLE1 IF WS-OVERLAY = 20 MOVE CRDHLDR-TITLE OF SEG12 TO WS-CARDHOLDER-TITLE IF NOT VALID-CARDHOLDER-TITLE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-CARDHOLDER-TITLE1 IF MOVE-MESSAGE SET NEW-CURSOR AT C-CARDHOLDER-TITLE1 MOVE "TITLE MUST BE 0(N/A) 1(MR.) 2(MRS.) 3(MISS) 4(MS - ".) OR 5(DR.)" TO ERR-TXT MOVE "N" TO FLAG-MOVE. * C-COUNTRY1 IF WS-OVERLAY = 20 IF COUNTRY-CODE OF SEG12 = ZEROES MOVE "**" TO WS-COUNTRY2. * C-PIN-MAILER-REQUIRED1 IF WS-OVERLAY = 20 IF NOT (PIN-MAILER OF SEG12 = "0" OR "1") MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-PIN-MAILER-REQUIRED1 IF MOVE-MESSAGE SET NEW-CURSOR AT C-PIN-MAILER-REQUIRED1 MOVE "PIN MAILER REQUIRED MUST BE ""0"" OR ""1"" " TO ERR-TXT MOVE "N" TO FLAG-MOVE. * C-PLASTIC-CARRIER-OPTS1 IF WS-OVERLAY = 20 IF NOT (CARD-CARRIER OF SEG12 = "0" OR "1" OR "2" OR "3") MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-PLASTIC-CARRIER-OPTS1 IF MOVE-MESSAGE SET NEW-CURSOR AT C-PLASTIC-CARRIER-OPTS1 MOVE "PLASTIC/CARD CARRIER OPTIONS MUST BE ""0"" THRU - """3"" " TO ERR-TXT MOVE "N" TO FLAG-MOVE. * C-ISSUE-NUMBER IF WS-OVERLAY = 20 MOVE ISSUE-NUM OF SEG12 TO WS-ISSUE-NUM IF NOT VALID-ISSUE-NUM MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-ISSUE-NUMBER IF MOVE-MESSAGE SET NEW-CURSOR AT C-ISSUE-NUMBER MOVE "ISSUE # MUST BE 01 THRU 25" TO ERR-TXT MOVE "N" TO FLAG-MOVE. * C-ISSUE-STATUS1 IF WS-OVERLAY = 20 MOVE ISSUE-STAT OF SEG12 TO WS-ISSUE-STAT IF NOT VALID-ISSUE-STAT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-ISSUE-STATUS1 IF MOVE-MESSAGE SET NEW-CURSOR AT C-ISSUE-STATUS1 MOVE "ISSUE STATUS MUST BE 00-05,07,09,11-13 OR 17" TO ERR-TXT MOVE "N" TO FLAG-MOVE. * Compare Issue Status with Card, Carrier, & Pin Mailer Opts IF WS-OVERLAY = 20 IF (ISSUE-STAT OF SEG12 = "01" OR "02" OR "03" OR "07") AND PIN-MAILER OF SEG12 = "0" AND CARD-CARRIER OF SEG12 = "3" MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-ISSUE-STATUS1 TURN TEMP SERROR IN C-PIN-MAILER-REQUIRED1 TURN TEMP SERROR IN C-PLASTIC-CARRIER-OPTS1 IF MOVE-MESSAGE SET NEW-CURSOR AT C-ISSUE-STATUS1 MOVE "THIS ISSUE STATUS REQUIRES AT LEAST ONE CARD, CA - "RRIER, OR PIN MAILER." TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01598c08 490-ACCEPT-SCREEN ELSE IF WS-OVERLAY = 20 PERFORM 490-ACCEPT-SCREEN-OVERLAY-20 #ADD 01687c10 490-ACCEPT-SCREEN-OVERLAY-16 490-ACCEPT-SCREEN-OVERLAY-20. ACCEPT SC-MAIN, OVERLAY-20 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14, FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT 1024). #ADD 01699c07 550-TABLE-LOOK-UP 550-TABLE-LOOK-UP-OVERLAY-17 550-TABLE-LOOK-UP-OVERLAY-18 550-TABLE-LOOK-UP-OVERLAY-19 550-TABLE-LOOK-UP-OVERLAY-20 #ADD 01699c2P 550-TABLE-LOOK-UP-OVERLAY-16 550-TABLE-LOOK-UP-OVERLAY-17. 550-TABLE-LOOK-UP-OVERLAY-18. 550-TABLE-LOOK-UP-OVERLAY-19. 550-TABLE-LOOK-UP-OVERLAY-20. IF ISSUE-STAT OF SEG12 = "00" MOVE "Normal (no issue status) " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "01" MOVE "New issue " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "02" MOVE "Force issue " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "03" MOVE "Mass issue " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "04" MOVE "Expired " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "05" MOVE "Due to purge " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "07" MOVE "Due for reissue " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "09" MOVE "Suspend further issue " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "11" MOVE "New issue - In manufacture " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "12" MOVE "Force issue - In manufacture" TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "13" MOVE "Mass issue - In manufacture " TO WS-ISSUE-STAT2 ELSE IF ISSUE-STAT OF SEG12 = "17" MOVE "Reissue - In manufacture " TO WS-ISSUE-STAT2 ELSE MOVE "****************************" TO WS-ISSUE-STAT2. IF CRDHLDR-TITLE OF SEG12 = "0" MOVE "N/A " TO WS-CARDHOLDER-TITLE2 ELSE IF CRDHLDR-TITLE OF SEG12 = "1" MOVE "Mr. " TO WS-CARDHOLDER-TITLE2 ELSE IF CRDHLDR-TITLE OF SEG12 = "2" MOVE "Mrs." TO WS-CARDHOLDER-TITLE2 ELSE IF CRDHLDR-TITLE OF SEG12 = "3" MOVE "Miss" TO WS-CARDHOLDER-TITLE2 ELSE IF CRDHLDR-TITLE OF SEG12 = "4" MOVE "Ms. " TO WS-CARDHOLDER-TITLE2 ELSE IF CRDHLDR-TITLE OF SEG12 = "5" MOVE "Dr. " TO WS-CARDHOLDER-TITLE2 ELSE MOVE "****" TO WS-CARDHOLDER-TITLE2. IF PIN-MAILER OF SEG12 = "0" MOVE "No PIN Mailer" TO WS-PIN-MAILER-DESCR ELSE IF PIN-MAILER OF SEG12 = "1" MOVE "PIN Mailer " TO WS-PIN-MAILER-DESCR ELSE MOVE "*************" TO WS-PIN-MAILER-DESCR. IF CARD-CARRIER OF SEG12 = "0" MOVE "Plastic Only " TO WS-PLASTIC-CARRIER-DESCR ELSE IF CARD-CARRIER OF SEG12 = "1" MOVE "Both Plastic and Card Carrier " TO WS-PLASTIC-CARRIER-DESCR ELSE IF CARD-CARRIER OF SEG12 = "2" MOVE "Card Carrier Only " TO WS-PLASTIC-CARRIER-DESCR ELSE IF CARD-CARRIER OF SEG12 = "3" MOVE "No Plastic and No Card Carrier" TO WS-PLASTIC-CARRIER-DESCR ELSE MOVE "******************************" TO WS-PLASTIC-CARRIER-DESCR. #ADD 01972c06 570-DISPLAY-OVERLAY 570-DISPLAY-OVERLAY-17, 570-DISPLAY-OVERLAY-18, 570-DISPLAY-OVERLAY-19, 570-DISPLAY-OVERLAY-20, #ADD 02119c20 570-DISPLAY-OVERLAY-16 570-DISPLAY-OVERLAY-17. 570-DISPLAY-OVERLAY-18. 570-DISPLAY-OVERLAY-19. 570-DISPLAY-OVERLAY-20. *CMS OVERLAY PERFORM 490-REGULAR-KEY-DISPLAY. TURN PROTECTED IN SC-DATA. DISPLAY SC-DATA. DISPLAY SC-SYSTEM. DISPLAY SC-FI-ID. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY SC-INFORMATION-LINE. PERFORM 550-TABLE-LOOK-UP. DISPLAY OVERLAY OVERLAY-20 AT OVERLAY-AREA. DISPLAY OVERLAY-20. IF U-ACCESS (20) = "N" AND A-ACCESS (20) = "N" TURN PROTECTED IN OVERLAY-20. #ADD 02125f07 595-CLEAR-DATA SEG12 OF CAF, #ADD 02180f09 595-CLEAR-DATA MOVE ZEROES TO ISSUE-NUM OF SEG12, ISSUE-DAT OF SEG12, CRDHLDR-TITLE OF SEG12, EFFECTIVE-DAT OF SEG12, SEC-CHAR OF SEG12, CARDS-ISSUED OF SEG12, CARDS-RET OF SEG12, COUNTRY-CODE OF SEG12, SRVC-CDE OF SEG12. MOVE "0" TO PIN-MAILER OF SEG12, CARD-CARRIER OF SEG12. MOVE 1 TO ISSUE-NUM OF SEG12, CARDS-TO-ISSUE OF SEG12. MOVE "01" TO ISSUE-STAT OF SEG12. MOVE "No PIN Mailer" TO WS-PIN-MAILER-DESCR. MOVE "Plastic Only" TO WS-PLASTIC-CARRIER-DESCR. #REPLACE 02213c01 595-SCREEN-INIT MOVE 20 TO WS-OVERLAY-MAX, WS-PAGE-OF. #ENDSCN = BA05027 !*CMP2.09 09/18/01 RQMEGAS 6041 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6041 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQMEGAS RQMEGAS 6041 * ******************************************************************************** #SCN = BA05028 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6041 #NEWVERSION = 6042 #ADD 00020o1J * 17SEP2001 DMA/20 * Symptom: Uplift BASE24-card to Release 6.0 * Problem: None * Fix: Copied in USER-CNTX-CAF-INFO to be used when * calling the CAF or CLST requesters. * Paragraphs modified: * 315-DO-THE-ACTUAL-CALL-FINALLY * 510-CLEAR-LOGON * Dependency: Apply fixes to MEGATBL, RQMEGAS, RQCAFS, SCRNCAF, * SVCAFS, and SVCAFM, and run MAKE. * Reference: WO #010801-01 #ADD 00032m02 DATA DIVISION COPY USER-CNTX-CAF-INFO OF =BASRC_BADDLCOB. #ADD 00279m01 RECOV-1 MOVE SPACES TO ACCT-NUM OF USER-CNTX-CAF-INFO. MOVE ZEROES TO CAF-MBR-NUM OF USER-CNTX-CAF-INFO. #ADD 01067m0T 315-DO-THE-ACTUAL-CALL-FINALLY IF PROG-SUFFIX OF USER-CONTEXT-EXT = "CAF" OR PROG-SUFFIX OF USER-CONTEXT-EXT = "CLST" CALL PROG-NAME OF USER-CONTEXT-EXT USING USER-CONTEXT-EXT, USER-CNTX-CAF-INFO ON ERROR PERFORM 315-NO-REQUESTER ELSE #ADD 01814 510-CLEAR-LOGON MOVE SPACES TO ACCT-NUM OF USER-CNTX-CAF-INFO. MOVE ZEROES TO CAF-MBR-NUM OF USER-CNTX-CAF-INFO. #ENDSCN = BA05028 !*CMP2.09 09/18/01 SVCAFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFM SVCAFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFM SVCAFM 6000 * ******************************************************************************** #SCN = BA05030 , FILEID = SVCAFM #VOLUME = $ROOK.BA60AFT #FILE = SVCAFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0046 # 17SEP2001 DMA/20 # Symptom: Uplift BASE24-card to Release 6.0 # Problem: None # Fix: Added logic to compile SVCAF with SETTOG 2 if the # CARD_ON flag is true. # Dependency: Apply fixes to SVCAFS and SVCAFM, and run MAKE. # Reference: WO #010801-01 #ADD 0080 = #PUSH :var !IF $(card_on) = TRUE |THEN| = #SETV :var ", settog 2" !ENDIF #REPLACE 0085 /0085 OFFSET 0 = $(baaft_cobol_opts) & # 0085 = [:var] #ADD 0087 = #POP :var #ENDSCN = BA05030 !*CMP2.09 09/18/01 SVCAFS 6023 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6023 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6023 * ******************************************************************************** #SCN = BA05031 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6023 #NEWVERSION = 6024 #ADD 00013W0N * 17SEP2001 DMA/20 * Symptom: Uplift BASE24-card to Release 6.0 * Problem: None * Fix: Added code to process segment 12 (Card Management * Data.) * Added compiler directives to check SETTOG 2 before * including code which uses CTSRC_SOUNDEX. SETTOG 2 * is set to true in SVCAFM if the CARD_ON flag is * true. * Paragraphs modified: * 310-UPDATE-REC * 500-ADD-RCD * 510-RCD-ADD * 911-RCD-RETRIEVE * 912-RCD-REPLACE * 927-RCD-WRITE * New paragraphs: * 330-SOUNDEX-MSG * 913-CLEAR-CMS-SEG * 970-SOUNDEX-CREATE * Dependency: Apply fixes to RQMEGAS, RQCAFS, SCRNCAF, SVCAFS, * and SVCAFM, and run MAKE. * Reference: WO #010801-01 #ADD 00028L04 ENVIRONMENT DIVISION ?IF 2 FILE "=CTSRC_SOUNDEX" IS SOUNDEX, ?ENDIF 2 #REPLACE 00258V01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(2858). #ADD 00281T01 DATA DIVISION 05 WS-COUNTRY2 PIC X(2). #REPLACE 00281V01 DATA DIVISION 05 LEFTOVER PIC X(138). #ADD 00285L00 DATA DIVISION 01 SOUNDEX-DATA. 02 NAME PIC X(26). 02 LEN PIC S9(4). 02 ALPHA-KEY PIC X(15). 01 WS-RESULT PIC S9(4) COMP VALUE ZERO. #ADD 00325L04 DATA DIVISION 05 CARD-SEG-LGTH PIC S9(4) COMP VALUE 252. #ADD 00510 DATA DIVISION 01 WS-ERR-TXT-R1 REDEFINES WS-ERR-TXT. 05 MSG1 PIC X(14). #ADD 00805 310-UPDATE-REC PERFORM 970-SOUNDEX-CREATE #ADD 00808T0G 310-UPDATE-REC MOVE CARD-SEG-LGTH TO LGTH OF SEG12 OF CAF MOVE SEG-CMS-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG12 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG12 OF CAF #ADD 00833L09 310-UPDATE-REC IF BYTE-MAP-R(13) = 1 AND WS-FIID-PROD-IND(13) = 1 PERFORM 330-SOUNDEX-MSG END-IF #ADD 00900L02 320-CHANGE-TIME-CAF-PRE-AUTH 330-SOUNDEX-MSG. IF ALPHA-KEY OF SOUNDEX-DATA = SPACES MOVE "; NO SOUNDEX " TO MSG1 OF WS-ERR-TXT-R1 END-IF. #ADD 00978 500-ADD-RCD PERFORM 970-SOUNDEX-CREATE #ADD 01000L01 500-ADD-RCD IF BYTE-MAP-R(13) = 0 AND WS-FIID-PROD-IND(13) = 1 PERFORM 330-SOUNDEX-MSG END-IF #ADD 01057T0C 510-RCD-ADD IF NO-ERROR IF BYTE-MAP-R(13) = 0 AND WS-FIID-PROD-IND(13) = 1 IF NAME-LINE-1 OF SEG12 OF CAF = SPACES MOVE "NAME LINE 1 ON SCREEN 20 IS REQUIRED. PLEASE CO - "RRECT ON SCREEN 20." TO WS-ERR-TXT PERFORM 930-SET-MSG-ERR-EXT END-IF END-IF END-IF. IF NO-ERROR IF BYTE-MAP-R(13) = 0 AND WS-FIID-PROD-IND(13) = 1 * USE COUNTRY CODE OF CAF TO RETRIEVE THE TWO-BYTE COUNTRY * DESCRIPTION ENTER TAL "GET^ISO^CNTRY^DATA" OF TALLIB USING OMITTED COUNTRY-CODE OF SEG12 OF CAF WS-COUNTRY2 GIVING WS-RESULT IF WS-RESULT = 0 MOVE "COUNTRY CODE ON SCREEN 20 IS INVALID. PLEASE CO - "RRECT ON SCREEN 20." TO WS-ERR-TXT PERFORM 930-SET-MSG-ERR-EXT END-IF END-IF END-IF. IF NO-ERROR IF BYTE-MAP-R(13) = 0 AND WS-FIID-PROD-IND(13) = 1 MOVE CARD-SEG-LGTH TO LGTH OF SEG12 OF CAF MOVE SEG-CMS-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG12 OF CAF ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG12 OF CAF, PTR-ARRAY, SEG-CMS-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE "12" TO ADD-SEG-NUM MOVE ADD-SEG-ERR TO WS-ERR-TXT END-IF END-IF END-IF. #ADD 01743R0A 911-RCD-RETRIEVE IF NO-ERROR IF BYTE-MAP-R(13) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-CMS-C, SEG12 OF CAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE 12 TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT PERFORM 100-CAF-ERROR-TEXT-FILL ELSE * USE COUNTRY CODE OF CAF TO RETRIEVE THE TWO-BYTE COUNTRY * DESCRIPTION ENTER TAL "GET^ISO^CNTRY^DATA" OF TALLIB USING OMITTED COUNTRY-CODE OF SEG12 OF CAF WS-COUNTRY2 GIVING WS-RESULT PERFORM 911-CHANGE-CORP VARYING I FROM 1 BY 1 UNTIL I > ACCT-CNT OF CAF END-IF ELSE PERFORM 913-CLEAR-CMS-SEG END-IF END-IF. #ADD 01788R08 912-RCD-REPLACE IF NO-ERROR IF BYTE-MAP-R(13) = "1" OR WS-FIID-PROD-IND(13) = "1" IF NAME-LINE-1 OF SEG12 OF CAF = SPACES MOVE "NAME LINE 1 ON SCREEN 20 IS REQUIRED. PLEASE CO - "RRECT ON SCREEN 20." TO WS-ERR-TXT PERFORM 930-SET-MSG-ERR-EXT END-IF END-IF END-IF. IF NO-ERROR IF BYTE-MAP-R(13) = "1" OR WS-FIID-PROD-IND(13) = "1" * USE COUNTRY CODE OF CAF TO RETRIEVE THE TWO-BYTE COUNTRY * DESCRIPTION ENTER TAL "GET^ISO^CNTRY^DATA" OF TALLIB USING OMITTED COUNTRY-CODE OF SEG12 OF CAF WS-COUNTRY2 GIVING WS-RESULT IF WS-RESULT = 0 MOVE "COUNTRY CODE ON SCREEN 20 IS INVALID. PLEASE CO - "RRECT ON SCREEN 20." TO WS-ERR-TXT PERFORM 930-SET-MSG-ERR-EXT END-IF END-IF END-IF. IF NO-ERROR IF BYTE-MAP-R(13) = "1" OR WS-FIID-PROD-IND(13) = "1" MOVE CARD-SEG-LGTH TO LGTH OF SEG-LGTH OF SEG12 OF CAF MOVE SEG-CMS-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG12 OF CAF ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG12 OF CAF, PTR-ARRAY, SEG-CMS-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "12" TO RCD-REPL-SEG-NUM PERFORM 912-RCD-REPLACE-ERROR END-IF END-IF END-IF. #ADD 01809W0N 913-CLEAR-NCD-OTHER 913-CLEAR-CMS-SEG. MOVE SPACES TO BRANCH-NUM OF SEG12 OF CAF, DEPT-NUM OF SEG12 OF CAF, OPEN-TEXT1 OF SEG12 OF CAF, NAME-LINE-1 OF SEG12 OF CAF, NAME-LINE-2 OF SEG12 OF CAF, ADDR-LINE-1 OF SEG12 OF CAF, ADDR-LINE-2 OF SEG12 OF CAF, CITY OF SEG12 OF CAF, STATE OF SEG12 OF CAF, POSTAL-CODE OF SEG12 OF CAF, USER-FLD1-CARDCAF OF SEG12 OF CAF, CVV-VALUE OF SEG12 OF CAF. MOVE ZEROS TO PIN-MAILER OF SEG12 OF CAF, CARD-CARRIER OF SEG12 OF CAF, CRDHLDR-TITLE OF SEG12 OF CAF, COUNTRY-CODE OF SEG12 OF CAF, SEC-CHAR OF SEG12 OF CAF, CARDS-ISSUED OF SEG12 OF CAF, CARDS-RET OF SEG12 OF CAF, ISSUE-DAT OF SEG12 OF CAF, EFFECTIVE-DAT OF SEG12 OF CAF, SRVC-CDE OF SEG12 OF CAF. MOVE 1 TO ISSUE-NUM OF SEG12 OF CAF, CARDS-TO-ISSUE OF SEG12 OF CAF. MOVE "01" TO ISSUE-STAT OF SEG12 OF CAF. #ADD 01955T08 927-RCD-WRITE MOVE CARD-SEG-LGTH TO LGTH OF SEG12 OF CAF. MOVE SEG-CMS-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG12 OF CAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG12 OF CAF. #ADD 01999 965-FILL-FILE-TIMESTAMP 970-SOUNDEX-CREATE. MOVE SPACES TO NAME OF SOUNDEX-DATA ALPHA-KEY OF SOUNDEX-DATA. MOVE ZERO TO LEN OF SOUNDEX-DATA. MOVE NAME-LINE-1 OF CAF TO NAME OF SOUNDEX-DATA. MOVE 26 TO LEN OF SOUNDEX-DATA. ?IF 2 ENTER TAL "SBA^SOUNDEX^ALGO" OF SOUNDEX USING NAME OF SOUNDEX-DATA, LEN OF SOUNDEX-DATA, ALPHA-KEY OF SOUNDEX-DATA. ?ENDIF 2 MOVE ALPHA-KEY OF SOUNDEX-DATA TO ALPHA-KEY OF CAF. #ENDSCN = BA05031 !*CMP2.09 09/21/01 SVATTTM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVATTTM SVATTTM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVATTTM SVATTTM 6000 * ******************************************************************************** #SCN = BA05035 , FILEID = SVATTTM #VOLUME = $ROOK.BA60AFT #FILE = SVATTTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0041 # # 13SEP2001 EDA/2121 # Symptom: Release 6.0 Enhancements # Problem: None. # Fix: Added dependency for baddl_ddlbcnst. # Dependency: Restore Release 6.0 files, modify the appropriate # CUSTMACS flags, and run MAKE. # Reference: WO #010913-01 (BASE24-telebanking Release 6.0 uplift) #ADD 0065 $(baddl_ddlbcnst) \ #ENDSCN = BA05035 !*CMP2.09 09/26/01 RQMEGAS 6042 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6042 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQMEGAS RQMEGAS 6042 * ******************************************************************************** #SCN = BA05046 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6042 #NEWVERSION = 6043 #ADD 00020p0B * 17SEP2001 SJL/306 * Symptom: Terminal aborts when exiting from a requester * copied in from MEGATBLC. * Problem: The logic in 315-DO-THE-ACTUAL-CALL-FINALLY is * incorrect. USER-CONTEXT is incorrectly moved to * USER-CONTEXT-EXT resulting in EMS event 1048 * and the terminal aborting. * Fix: Changed logic from line "IF NOT PROD-NEW-REQ OR * CSE-NEW-REQ" to "IF NOT PROD-NEW-REQ AND NOT * CSE-NEW-REQ". * Paragraphs modified: * 315-DO-THE-ACTUAL-CALL-FINALLY * Dependency: Apply fix to RQMEGAS and run MAKE. * Reference: Case: #338856 #REPLACE 01067m1D 315-DO-THE-ACTUAL-CALL-FINALLY IF NOT PROD-NEW-REQ AND NOT CSE-NEW-REQ #ENDSCN = BA05046 !*CMP2.09 10/05/01 SVEMFS 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVEMFS SVEMFS 6012 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVEMFS SVEMFS 6012 * ******************************************************************************** #SCN = BA05074 , FILEID = SVEMFS #VOLUME = $ROOK.BA60AFT #FILE = SVEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00015L0D * 04OCT2001 bjk/1691 * Symptom: Monad CAF Updates * Problem: None. * Fix: Added support to display default values for new * FHM/HOST messages 300 outbound and 310 inbound. * Modified the default bit maps for existing 300 * and 310 FHM/HOST message types to include bit * 115 as optional. * Modified procedure: * 480-DATA-CHECK * Dependency: Apply fixes to RQEMFS and SVEMFS modules and * re-MAKE. Scup copy requester object into POBJ. * Reference: WO #010731-01 #ADD 00518FBF 480-DATA-CHECK IN-OUT-IND OF EMF NOT = "I" AND IN-OUT-IND OF EMF NOT = "O" #DELETE 00518FBG 480-DATA-CHECK #REPLACE 00518FBK 480-DATA-CHECK MOVE "IN/OUT INDICATOR MUST BE 'I' OR 'O'" #ADD 00518FBQ 480-DATA-CHECK IN-OUT-IND OF EMF NOT = "I" AND IN-OUT-IND OF EMF NOT = "O" #DELETE 00518FBR 480-DATA-CHECK #REPLACE 00518FBV 480-DATA-CHECK MOVE "IN/OUT INDICATOR MUST BE 'I' OR 'O'" #ENDSCN = BA05074 !*CMP2.09 10/08/01 RQEMFS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQEMFS RQEMFS 6044 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQEMFS RQEMFS 6044 * ******************************************************************************** #SCN = BA05075 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00020r0C * 04OCT2001 bjk/1691 * Symptom: Monad CAF Updates * Problem: None. * Fix: Added support to display default values for new * FHM/HOST messages 300 outbound and 310 inbound. * Modified the default bit maps for existing 300 * and 310 FHM/HOST message types to include bit * 115 as optional. * Added procedures: * 531-LOAD-TABLE-60 * 531-LOAD-TABLE-61 * Modified procedures: * 500-KEEP-FILLING-DEFAULTS * 620-KEEP-FILLING-DEFAULTS * Dependency: Apply fixes to RQEMFS and SVEMFS modules and * re-MAKE. Scup copy requester object into POBJ. * Reference: WO #010731-01 #ADD 00082f0B DATA DIVISION * 60) FOR FHM, MSG-TYPE 300, IN-OUT OF O * 61) FOR FHM, MSG-TYPE 310, IN-OUT OF I #ADD 00082r0C DATA DIVISION 05 FILLER1 PIC X(80) VALUE "CMMMCMMMMMCMMMCMMMMM M CCCCCCMMMMMMCCCCCCCC MMC - "CCCCCCCMCMM ". 05 FILLER2 PIC X(80) VALUE " MM C - "CCCCCCCCCMM ". #DELETE 00082d0P/00082d0V DATA DIVISION #ADD 00082d17 DATA DIVISION 05 FILLER7 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM M - "MMMMMMMMMMM ". #DELETE 00082d18/00082d1A DATA DIVISION #ADD 00082d1J DATA DIVISION 05 FILLER11 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMM - "MMMMMMMMMMM ". #DELETE 00082d1K/00082d1M DATA DIVISION #ADD 00082d4N DATA DIVISION 05 FILLER39 PIC X(80) VALUE " MMMMM MMMCMMMMMMM MMMMM M M M MMM MMM - "MMM MMMMM M ". #DELETE 00082d4O/00082d4Q DATA DIVISION #ADD 00082d5N DATA DIVISION 05 FILLER48 PIC X(80) VALUE "M MMM MMM M M MMMMC C C MMC C C C C - "CCCCCCCCCMM ". 05 FILLER49 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMM MC C - "CCCMMMMCCMC ". #DELETE 00082d5O/00082d5U DATA DIVISION #ADD 00082d73 DATA DIVISION 05 FILLER60 PIC X(80) VALUE "MMMM M MMM MMM M M MMMMMMMCMC MMMCMMMCMMMC MMM - "MM MMM M MC ". #DELETE 00082d74/00082d76 DATA DIVISION #ADD 00082d7C DATA DIVISION 05 FILLER62 PIC X(80) VALUE " CCCCC CC CCC CCC MMC - "CC CCC C CC ". 05 FILLER63 PIC X(80) VALUE " CCC C CCCCCCCCCCCCCCCC C CC CCCCCC MM - "CC C CC ". #DELETE 00082d7D DATA DIVISION #DELETE 00082f0N DATA DIVISION #DELETE 00082f0O DATA DIVISION #DELETE 00082f0P DATA DIVISION #DELETE 00082f0Q DATA DIVISION #DELETE 00082f0R DATA DIVISION #DELETE 00082f0S DATA DIVISION #DELETE 00082f0T/00082d7J DATA DIVISION #ADD 00082d9V DATA DIVISION 05 FILLER91 PIC X(80) VALUE " MM - " MM ". #DELETE 00082d9W/00082d9Y DATA DIVISION #ADD 00082dAQ DATA DIVISION 05 FILLER101 PIC X(80) VALUE " MM - " MM ". 05 FILLER102 PIC X(80) VALUE "C CCCCC CCC CCCMMCC CCCCCC MMCCCCCCCCCC C - "CCCCCCCCCCC ". #DELETE 00082dAR/00082dAW DATA DIVISION #ADD 00082dBX DATA DIVISION 05 FILLER115 PIC X(80) VALUE " C CCCCCC - " CC ". 05 FILLER116 PIC X(80) VALUE " C CCCCCC - " CC ". 05 FILLER117 PIC X(80) VALUE " CCCCCC - " CC ". #DELETE 00082dBY/00082dC1 DATA DIVISION #DELETE 00082k00 DATA DIVISION #DELETE 00082k01 DATA DIVISION #DELETE 00082k02 DATA DIVISION #DELETE 00082k03 DATA DIVISION #DELETE 00082k04 DATA DIVISION #DELETE 00082k05 DATA DIVISION #DELETE 00082k06 DATA DIVISION #DELETE 00082q00 DATA DIVISION #DELETE 00082q01 DATA DIVISION #DELETE 00082q02 DATA DIVISION #DELETE 00082q03 DATA DIVISION #DELETE 00082q04 DATA DIVISION #DELETE 00082q05 DATA DIVISION #DELETE 00082q06 DATA DIVISION #DELETE 00082q07 DATA DIVISION #ADD 00082dCE DATA DIVISION 05 FILLER119 PIC X(80) VALUE " CCCCCC - " CC ". 05 FILLER120 PIC X(80) VALUE " CC CC CCCC - " CC ". 05 FILLER121 PIC X(80) VALUE " MMM MMM MMMM CCCCCC CCCCCCCCCC C - " CC ". 05 FILLER122 PIC X(80) VALUE " CC C CC CC M C C CCC CCCCCC MM - "CC CC C CC ". 05 FILLER123 PIC X(80) VALUE " CC C C C C C M M M M C CC CCCCCC MMC - "CC CCC C CC ". 05 FILLER124 PIC X(80) VALUE "CCCC C M M MMM M M C C CCCCCC CCCCCC C - "CCCCCCCCCCC ". #DELETE 00082dCF/00082dD1 DATA DIVISION #DELETE 00082f1D DATA DIVISION #DELETE 00082f1E DATA DIVISION #DELETE 00082f1F DATA DIVISION #DELETE 00082f1G DATA DIVISION #DELETE 00082f1H DATA DIVISION #DELETE 00082f1I DATA DIVISION #DELETE 00082f1J DATA DIVISION #ADD 00082l00 DATA DIVISION 05 FILLER126 PIC X(80) VALUE "CCCCCCCMCMCMCMCMMMM C CCCCCCCC C - "CC CC ". 05 FILLER127 PIC X(80) VALUE " C C CC CCCCCC C - " CC ". #DELETE 00082l01/00082l06 DATA DIVISION #ADD 01271X09 500-KEEP-FILLING-DEFAULTS ELSE IF PROD-NUM = 8 AND MSG-TYP = 300 AND IN-OUT-IND = "O" PERFORM 531-LOAD-TABLE-60 VARYING I FROM 1 BY 1 UNTIL I > 128 ELSE IF PROD-NUM = 8 AND MSG-TYP = 310 AND IN-OUT-IND = "I" PERFORM 531-LOAD-TABLE-61 VARYING I FROM 1 BY 1 UNTIL I > 128 #ADD 01375d0K 531-LOAD-TABLE-59 531-LOAD-TABLE-60. MOVE CHAR-TO-MOVE(I, 60) TO FLD-MAP (I). 531-LOAD-TABLE-61. MOVE CHAR-TO-MOVE(I, 61) TO FLD-MAP (I). #ADD 01375XN4 620-KEEP-FILLING-DEFAULTS IF PROD-NUM = 8 AND MSG-TYP = 300 #DELETE 01375XN5 620-KEEP-FILLING-DEFAULTS #ADD 01375XN8 620-KEEP-FILLING-DEFAULTS IF PROD-NUM = 8 AND MSG-TYP = 310 #DELETE 01375XN9 620-KEEP-FILLING-DEFAULTS #ENDSCN = BA05075 !*CMP2.09 10/09/01 RQKEYAS 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYAS RQKEYAS 6007 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYAS RQKEYAS 6007 * ******************************************************************************** #SCN = BA05077 , FILEID = RQKEYAS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00042G0I * 09OCT2001 bjk/1691 * Symptom: An error on requester call occurs when paging * forward after adding a record of type 01 to an * empty KEYA data file. * Problem: If you are adding the first record to an empty * KEYA file, the data is not being initialized * properly, resulting in a record that has garbage * in it. * Fix: In 255-ADD-RECORD, there is a call to * 400-CLEAR-PER-RECTYPE which intializes the KEYA * data depending on the record type. REC-TYP needs * to be filled in with the value from the screen, * WS-REC-TYP, before the call to this procedure is * made. * Dependency: Apply fix and re-MAKE the requestor. * Reference: Case #338225 #ADD 00419 255-ADD-RECORD MOVE WS-REC-TYP TO REC-TYP. #ENDSCN = BA05077 !*CMP2.09 10/23/01 PITABLE 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.PITABLE PITABLE 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.PITABLE PITABLE 6000 * ******************************************************************************** #SCN = BA05088 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00060 * 23OCT2001 SJL/306 * Symptom: Confusion on when to turn on SEG31. * Problem: It hasn't been documented when to turn on SEG31. * SEG31 is used for both CAF accounts and Switch * dependent data. The name used for SEG31 "CAF * ACCOUNT" is misleading as it doesn't mention the * Switch dependent data. * Fix: Changed the name of SEG31 from "CAF-ACCOUNT" to * "CAF-ACCOUNT-SWI-DATA". * Dependency: Apply fix to PITABLE and run MAKE. * Reference: Case #339824 #REPLACE 01186 05 CAF-ACCOUNT-SWI-DATA PIC X VALUE "N". #ENDSCN = BA05088 !*CMP2.09 11/01/01 MEGATBL 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6001 * ******************************************************************************** #SCN = BA05090 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00046A07 * 13SEP2001 jra/24 * Symptom: Release 6.0 Enhancements * Problem: None * Fix: Added IFCF to PROD-RQ-EXT-FRMT-TBL, removed VCD. * Dependency: Apply fixes to MEGATBL and RQMEGAS, and run MAKE. * Reference: WO #010913-01 (BASE24-telebanking Release 6.0 * uplift. #ADD 00089 "IFCF", #DELETE 00128 #ENDSCN = BA05090 !*CMP2.09 11/01/01 SECTBL 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6003 * ******************************************************************************** #SCN = BA05094 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00268C08 * 13OCT2001 MEP/2128 * Symptom: Added 5.3 EMV/MC Support. * Problem: None. * Fix: Added Screen 21 to the ATD. Both table * occurrences are increased by 1. * Dependency: Restore Release 6.0 files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #010102-01 (EMV 5.3/6.0 Uplift) #DELETE 00268C09 #ADD 00359 05 ATD21 PIC X(35) VALUE "ATD 210101EMV TERMINAL CAPABILITIES". #REPLACE 00895C01 05 PROD-SCRN-ACC-TABL OCCURS 550 TIMES. #REPLACE 00908C01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 550. #ENDSCN = BA05094 !*CMP2.09 11/07/01 BAAFTM 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTM BAAFTM 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTM BAAFTM 6001 * ******************************************************************************** #SCN = BA05098 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6001 #NEWVERSION = 6002 #ADD 0088A09 # 07NOV2001 tmh/173 # Symptom: Release 6.0 Enhancements. # Problem: For pre-release 6.0 BASE24 network environments # supporting a Release 6.0 interface or a combination of # Release 6.0 and Fortify.1/Fortify.3 interfaces, it is a # requirement that the Release 6.0 interface be made with # the pre-release 6.0 LCONF DDL. # Fix: Added flag sw_pre_60_lconf_on that will include # rqlncfxm and svlncftm when set to FALSE. For # pre-release 6.0 BASE24 network supporting a Release # 6.0 interface or a combination of Release 6.0 and # Fortify.1/Fortify.3 interfaces, this flag must be set # to TRUE. # Dependency: Restore Release 6.0 files, modify the appropriate # CUSTMACS flags and run MAKE. # Reference: WO #000101-1 (General Release 6.0) #ADD 0153 !IF $(sw_pre_60_lconf_on) = FALSE |THEN| !include $(baaft_rqlncfxm) !ENDIF !IF $(sw_pre_60_lconf_on) = FALSE |THEN| !include $(baaft_svlncftm) !ENDIF #DELETE 0154 /0155 #ENDSCN = BA05098 !*CMP2.09 11/16/01 MEGATBL 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6002 * ******************************************************************************** #SCN = BA05118 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00046B08 * 16NOV2001 clr/451 * Symptom: Release 6.0 Enhancements * Problem: None * Fix: Removed CCIF, CIS and CSTP from * PROD-RQ-EXT-FRMT-TBL. * Dependency: Apply fixes to MEGATBL and run MAKE. * Reference: WO #971118-2 (PITABLE Expansion) #DELETE 00068 #DELETE 00070 #DELETE 00073 #ENDSCN = BA05118 !*CMP2.09 11/28/01 SVCAFS 6024 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6024 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6024 * ******************************************************************************** #SCN = BA05121 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6024 #NEWVERSION = 6025 #ADD 00013X0N * 20NOV2001 JSC/89 CKC/163 * Symptom: Monad CAF updates. * Problem: None. * Fix: Added support to read the new MONAD parameter * from the LCONF. * For an add or delete message, the notification * server is called when the EMV segment is turned on * in the IDF for the institution, the CAF EMV * segment is present in the before or after image * and the Monad LCONF parameter is present. * For a CAF update, the fields CRD-STAT and * CRD-STAT-2 OF SCND-CRD-DATA in the BASE segment * and the SEND-CRD-BLK of the EMV segment are * compared with their before and after images. * MONAD will be notified if there is change * in any one of the three fields provided the EMV * segment is turned on in the IDF, the EMV segment * is present in the before or after CAF image and * the Monad LCONF parameter is present. * Procedures added: * 913-SEND-MONAD * 913-SAV-BEFORE-IMAGE * 980-SEND-PATH-MSG * 999-COMPUTE-PATHMON-LGTH * Procedures Modified: * 203-SPECIAL-PREPARE-READ-REPLY * 310-UPDATE-REC * 410-DELETE * 500-ADD-RCD * 600-READ-NEXT-RCD * 909-RETRIEVE-LCONF-ASSIGNS * Dependency: Apply fixes to SVCAFS, restore the SVNTFYTS, * SVNTFYTG and SVNTFYTM files, and run MAKE. * Reference: WO #010731-01 #ADD 00495 DATA DIVISION 01 NTFY-MONAD-FLG PIC X. 88 NTFY-MONAD VALUE "Y". 88 DO-NOT-NTFY-MONAD VALUE "N". 01 EMV-BEFORE-IMAGE. 02 CRD-STAT PIC X. 02 CRD-STAT-2 PIC X. 02 SEND-CRD-BLK PIC X. 01 NOTIFY-INFO. 05 PATHMON-NAM-HOLD. 10 PATHMON-NAM-CHAR PIC X OCCURS 34 TIMES. 05 PATHMON-NAM-LGTH PIC 9(2) VALUE 0. 05 NTFY-SRV-CL-NAM PIC X(11) VALUE "SERVER-NTFY". 05 NTFY-SRV-CL-LGTH PIC 9(2) VALUE 11. 05 REPLY-LGTH PIC 9(2) VALUE 0. #ADD 00510X02 DATA DIVISION 01 WS-ERR-TXT-R2 REDEFINES WS-ERR-TXT. 05 WS-ERR-TXT-MSG PIC X(49). 05 WS-ERR-TXT-ADDL PIC X(21). #REPLACE 00731 203-SPECIAL-PREPARE-READ-REPLY MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2. #ADD 00803 310-UPDATE-REC IF BYTE-MAP-R(10) = 1 AND WS-FIID-PROD-IND(10) = 1 AND NTFY-MONAD PERFORM 913-SAV-BEFORE-IMAGE END-IF #ADD 00829 310-UPDATE-REC IF BYTE-MAP-R(10) = 1 AND WS-FIID-PROD-IND(10) = 1 AND NTFY-MONAD PERFORM 913-SEND-MONAD END-IF #REPLACE 00833L05/00833L05 OFFSET 0 310-UPDATE-REC WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #REPLACE 00833L08/00833L08 OFFSET 0 310-UPDATE-REC WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #ADD 00961 410-DELETE IF BYTE-MAP-R(10) = 1 AND WS-FIID-PROD-IND(10) = 1 AND NTFY-MONAD PERFORM 980-SEND-PATH-MSG END-IF #REPLACE 00963 410-DELETE MOVE DELETE-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #ADD 00996 500-ADD-RCD IF BYTE-MAP-R(10) = 1 AND WS-FIID-PROD-IND(10) = 1 AND NTFY-MONAD PERFORM 980-SEND-PATH-MSG END-IF #REPLACE 01000L01/01000L01 OFFSET 0 500-ADD-RCD MOVE ADD-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #REPLACE 01113 /01113 OFFSET 0 600-READ-NEXT-RCD MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #ADD 01668 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "MONAD-NOTIFY-PROCESS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE "Y" TO NTFY-MONAD-FLG MOVE "A" TO ITEM-TYP OF LCONF MOVE SPACES TO PATHMON-NAM-HOLD MOVE "****************" TO PRO-NAME OF LCONF MOVE "PATHMON-NAM" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE FILE-NAME OF LCONF TO PATHMON-NAM-HOLD ELSE MOVE "NTFY ASSIGN ERROR." TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 MOVE 0 TO FILE-STAT-ELEMENT ELSE MOVE "N" TO NTFY-MONAD-FLG MOVE 0 TO FILE-STAT-ELEMENT END-IF #REPLACE 01809W02/01809W03 913-CLEAR-NCD-SEG MOVE ZEROS TO USED-PRD OF SEG23 OF CAF. MOVE 1 TO USE-LMT OF SEG23 OF CAF. #ADD 01809X0U 913-CLEAR-CMS-SEG 913-SAV-BEFORE-IMAGE. MOVE CRD-STAT OF SEG0 OF CAF TO CRD-STAT OF EMV-BEFORE-IMAGE. MOVE CRD-STAT-2 OF SEG0 OF CAF TO CRD-STAT-2 OF EMV-BEFORE-IMAGE. MOVE SEND-CRD-BLK OF SEG9 OF CAF TO SEND-CRD-BLK OF EMV-BEFORE-IMAGE. 913-SEND-MONAD. IF ( NOT CRD-STAT OF SEG0 OF CAF = CRD-STAT OF EMV-BEFORE-IMAGE ) OR ( NOT CRD-STAT-2 OF SEG0 OF CAF = CRD-STAT-2 OF EMV-BEFORE-IMAGE ) OR ( NOT SEND-CRD-BLK OF SEG9 OF CAF = SEND-CRD-BLK OF EMV-BEFORE-IMAGE ) PERFORM 980-SEND-PATH-MSG. #ADD 01999X0C 970-SOUNDEX-CREATE 980-SEND-PATH-MSG. IF NOT PATHMON-NAM-HOLD = SPACES MOVE 0 TO PATHMON-NAM-LGTH PERFORM 999-COMPUTE-PATHMON-LGTH VARYING I FROM 1 BY 1 UNTIL I > 34 ENTER "SERVERCLASS_SEND_" USING PATHMON-NAM-HOLD, PATHMON-NAM-LGTH, NTFY-SRV-CL-NAM, NTFY-SRV-CL-LGTH, MSG-FILE-MAINT-4096-EXT, 4096, 4096, REPLY-LGTH, -1, 1. 999-COMPUTE-PATHMON-LGTH. IF PATHMON-NAM-CHAR(I) = SPACE MOVE 34 TO I ELSE ADD 1 TO PATHMON-NAM-LGTH. #ENDSCN = BA05121 !*CMP2.09 11/28/01 SVIDFS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVIDFS SVIDFS 6046 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVIDFS SVIDFS 6046 * ******************************************************************************** #SCN = BA05127 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00043t0D * 28NOV2001 bjk/1691 * Symptom: Invalid filenames could be entered on screen 1. * Problem: There is currently no logic to determine if the * filenames were entered in a valid format and if * they exist on disk. * Fix: Added logic to determine if the filenames entered * were valid and if they exist on disk. * Added procedure: * 480-BASE-FILENAMES-CHECK * Modified procedure: * 480-BASE-DATA-CHECK * Dependency: Apply fix to RQIDFS and SVIDFS and re-MAKE. * Reference: Case #340689 * 28NOV2001 bjk/1691 * Symptom: Once on screen 5, an error message is being given * to the user that some segment indicators that * don't appear on the screen need turned on. * Problem: In proc 315-SET-FIID-BYTE-MAP, the fiid-byte-map * was being set according to disk segments possible * for the idf. Any segment indicator that is not * a disk segment in the idf would be left on, even * if it is turned off in the network. * Fix: Changed the logic in proc 315-SET-FIID-BYTE-MAP * to check ws-site-prod-ind, which is a copy of the * seg-table from the pitable file, rather than * checking against byte-map-r. This procedure will * now check all 256 segment indicators. * Modified procedure: * 200-READ-RCD * 310-UPDATE-REC * 315-SET-FIID-BYTE-MAP * 600-READ-NEXT-RCD * Dependency: Apply fix to SVIDFS and re-MAKE. * Reference: Case #340860 #ADD 00167q0Z DATA DIVISION 01 WS-INVLD-BASE-F-NAME-MSG PIC X(47) VALUE "INVALID FILE NAME FORMAT OR FILE DOES NOT EXIST". #ADD 00308 DATA DIVISION 01 BASE-F-NAMES-R. 05 BASE-F-NAMES PIC X(35) OCCURS 7 TIMES. 01 BASE-F-NAMES-I-R PIC X(24). #REPLACE 00502h0A/00502h0A OFFSET 0 200-READ-RCD * SET THE SEGMENTS IN FIID-BYTE-MAP CORRESPONDING TO THE * SEG-TABLE FROM WITHIN THE PITABLE FILE. #REPLACE 00502h0C/00502h0D 200-READ-RCD PERFORM 315-SET-FIID-BYTE-MAP VARYING I FROM 1 BY 1 UNTIL I > MAX-SEGMENTS-C #REPLACE 00579h09/00579h09 OFFSET 0 310-UPDATE-REC * SET THE SEGMENTS IN FIID-BYTE-MAP CORRESPONDING TO THE * SEG-TABLE FROM WITHIN THE PITABLE FILE. #REPLACE 00579h0B/00579h0D 310-UPDATE-REC PERFORM 315-SET-FIID-BYTE-MAP VARYING I FROM 1 BY 1 UNTIL I > MAX-SEGMENTS-C #REPLACE 00634h03/00634h04 315-SET-FIID-BYTE-MAP * THIS PROC WILL SET IDF SCREEN 5 AND 6 SEGMENT INDICATORS OFF * ACCORDING TO THE SEG-TABLE WITHIN THE PITABLE. #ADD 00634h06 315-SET-FIID-BYTE-MAP IF WS-SITE-PROD-IND( I ) = "0" THEN MOVE "0" TO FIID-BYTE-MAP( I ) END-IF. #DELETE 00634h07/00634q02 400-DELETE-RCD #ADD 00868 480-BASE-DATA-CHECK 480-BASE-FILENAMES-CHECK. MOVE 3 TO T. MOVE SPACES TO BASE-F-NAMES-R. MOVE PBF1-NAME OF IDF TO BASE-F-NAMES( 1 ). MOVE PBF2-NAME OF IDF TO BASE-F-NAMES( 2 ). MOVE PBF3-NAME OF IDF TO BASE-F-NAMES( 3 ). MOVE NEG-NAME OF IDF TO BASE-F-NAMES( 4 ). MOVE UAF-NAME OF IDF TO BASE-F-NAMES( 5 ). MOVE CAF-NAME OF IDF TO BASE-F-NAMES( 6 ). MOVE SPF-NAME OF IDF TO BASE-F-NAMES( 7 ). PERFORM VARYING X FROM 1 BY 1 UNTIL X > 7 MOVE SPACES TO BASE-F-NAMES-I-R ENTER TAL "FNAMEEXPAND" USING BASE-F-NAMES( X ), BASE-F-NAMES-I-R, DEFAULT-NAMES ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, BASE-F-NAMES-I-R IF WS-GUAR-ERR NOT = 0 AND BASE-F-NAMES( X ) NOT = SPACES ADD 1 TO ERR-CNT MOVE T TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE WS-INVLD-BASE-F-NAME-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF ADD 1 TO T END-PERFORM. #ADD 00881f0M 480-BASE-DATA-CHECK PERFORM 480-BASE-FILENAMES-CHECK #REPLACE 02503h0B/02503h0B OFFSET 0 600-READ-NEXT-RCD * SET THE SEGMENTS IN FIID-BYTE-MAP CORRESPONDING TO THE * SEG-TABLE FROM WITHIN THE PITABLE FILE. #REPLACE 02503q05/02503q06 600-READ-NEXT-RCD PERFORM 315-SET-FIID-BYTE-MAP VARYING I FROM 1 BY 1 UNTIL I > MAX-SEGMENTS-C #ENDSCN = BA05127 !*CMP2.09 11/28/01 RQIDFS 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQIDFS RQIDFS 6053 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQIDFS RQIDFS 6053 * ******************************************************************************** #SCN = BA05128 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6053 #NEWVERSION = 6054 #ADD 00115#0C * 28NOV2001 bjk/1691 * Symptom: Invalid filenames could be entered on screen 1. * Problem: There is currently no logic to determine if the * filenames were entered in a valid format and if * they exist on disk. * Fix: Added logic to determine if the filenames entered * were valid and if they exist on disk. * Added procedures: * 481-FLAG-OV-1-FIELD-6 * 481-FLAG-OV-1-FIELD-7 * 481-FLAG-OV-1-FIELD-8 * 481-FLAG-OV-1-FIELD-9 * Modified procedure: * 481-ERR-FLAG-OV-1 * Dependency: Apply fix to RQIDFS and SVIDFS and re-MAKE. * Reference: Case #340689 #REPLACE 01592j03/01592j03 OFFSET 0 481-ERR-FLAG-OV-1 481-FLAG-OV-1-FIELD-5, 481-FLAG-OV-1-FIELD-6, 481-FLAG-OV-1-FIELD-7, 481-FLAG-OV-1-FIELD-8, 481-FLAG-OV-1-FIELD-9 #ADD 01603j0B 481-FLAG-OV-1-FIELD-5 481-FLAG-OV-1-FIELD-6. TURN TEMP SERROR IN I-NEG-NAME. SET NEW-CURSOR AT I-NEG-NAME. 481-FLAG-OV-1-FIELD-7. TURN TEMP SERROR IN I-UAF-NAME. SET NEW-CURSOR AT I-UAF-NAME. 481-FLAG-OV-1-FIELD-8. TURN TEMP SERROR IN I-CAF-NAME. SET NEW-CURSOR AT I-CAF-NAME. 481-FLAG-OV-1-FIELD-9. TURN TEMP SERROR IN I-SPF-NAME. SET NEW-CURSOR AT I-SPF-NAME. #ENDSCN = BA05128 !*CMP2.09 11/30/01 RQCAFS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6045 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6045 * ******************************************************************************** #SCN = BA05133 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00023s0U * 30NOV2001 EDA/2121 * Symptom: When CSM's are added it increases the message size * to be over the message size limit. * Problem: The RECORD-IMAGE-CAF was increased by 252 bytes * twice to allow for the CARD segment. * Fix: Reduced RECORD-IMAGE-CAF by 252 bytes. * Dependency: Apply fixes to RQCAFS, SVCAFS and run MAKE. * Reference: Case #340881 #REPLACE 00210s01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(2606). #REPLACE 00232s04 DATA DIVISION 05 LEFTOVER PIC X(390). #ENDSCN = BA05133 !*CMP2.09 11/30/01 SVCAFS 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6025 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6025 * ******************************************************************************** #SCN = BA05134 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00013X0O * 30NOV2001 EDA/2121 * Symptom: When CSM's are added it increases the message size * to be over the message size limit. * Problem: The RECORD-IMAGE-CAF was increased by 252 bytes * twice to allow for the CARD segment. * Fix: Reduced RECORD-IMAGE-CAF by 252 bytes. * Dependency: Apply fixes to RQCAFS, SVCAFS and run MAKE. * Reference: Case #340881 #REPLACE 00258X01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(2606). #ENDSCN = BA05134 !*CMP2.09 12/06/01 BAAFTMM 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTMM BAAFTMM 6001 * ******************************************************************************** #SCN = BA05140 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6001 #NEWVERSION = 6002 #ADD 0095A0H # 20NOV2001 ckc/163 # Symptom: Monad CAF updates. # Problem: None. # Fix: Added the NTFY server defines. # Dependency: Apply fix, corresponding fix to SVCAFS, restore the # SVNTFYTG, SVNTFYTM, SVNTFYTS and SVNTFTBL files and # reMAKE. # Reference: WO #010731-01 #ADD 0308 baaft_svntftbl = \argus.$rook.ba60aft.svntftbl baaft_svntfyt = \argus.$rook.ba60aft.svntfyt baaft_svntfyte = \argus.$rook.ba60aft.svntfyte baaft_svntfytg = \argus.$rook.ba60aft.svntfytg baaft_svntfytm = \argus.$rook.ba60aft.svntfytm baaft_svntfyto = \argus.$rook.ba60aft.svntfyto baaft_svntfyts = \argus.$rook.ba60aft.svntfyts #ENDSCN = BA05140 !*CMP2.09 12/10/01 BAAFTM 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTM BAAFTM 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTM BAAFTM 6002 * ******************************************************************************** #SCN = BA05145 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6002 #NEWVERSION = 6003 #ADD 0088B0G # 20NOV2001 JSC/89 CKC/163 # Symptom: Monad CAF updates # Problem: None. # Fix: Added statement to include the NTFY server MAKE file. # Dependency: Apply fix, corresponding fix to SVCAFS, restore the # SVNTFYTG, SVNTFYTM, SVNTFYTS and SVNTFTBL files and # reMAKE. # Reference: WO #010731-01 #ADD 0162 !include $(baaft_svntfytm) #ENDSCN = BA05145 !*CMP2.09 12/06/01 PITABLE 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.PITABLE PITABLE 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.PITABLE PITABLE 6001 * ******************************************************************************** #SCN = BA05141 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00060A0C * 05DEC2001 jra/24 * Symptom: Release 6.0 Enhancements * Problem: None. * Fix: Added Billpay to seg-table. Billpay doesn't have * its own segment, but a position in the seg-table * must be defined in order for it to be recognized * by requesters in the user-context[-ext] * site-prod-ind field. * Dependency: Apply fix to DDLBCNST and PITABLE and run overall * MAKE. * Reference: WO #010913-01 (BASE24-telebanking Release 6.0 * uplift). #ADD 01160 05 BILLPAY PIC X VALUE "N". #DELETE 01161 #ADD 01435 05 FILLER-7 PIC X(16) VALUE "BILLPAY ". #DELETE 01436 #ENDSCN = BA05141 !*CMP2.09 12/10/01 RQIDFTBS6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQIDFTBS RQIDFTBS 6011 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQIDFTBS RQIDFTBS 6011 * ******************************************************************************** #SCN = BA05144 , FILEID = RQIDFTBS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFTBS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00023K1D * 06DEC2001 JEW/580 * Symptom: 1) When attempting to access the Bank Table screen * a termination status of 2 was enountered. * 2) When attempting to access the Bank Table screen * from screen 41 or 42, the message * "ERROR OCCURRED DURING REQUESTER CALL 0044" * was seen at the bottom of the screen, when * Billpay was not turned on in the Pi-table section * of the PITABLE file. * 3) If Billpay was not turned on in the Pi-table, * access to other IDF screens was not allowed after * an attempted call to the Bank Table Requester. * Problem: 1) Requester is passing user-context-ext to * Billpay Bank table requester, which has only been * coded to handle user-context. * 2) An if statement in 310-get-idf-bank was missing * parentheses, which allowed the call to the Bank * Table Requester to be performed even when Billpay * was not turned on in the PITABLE. The name of the * Bank Table requester had not been set up correctly * under these circumstances, so the termination * status of 44 was encountered. * 3) The scrn-access-info was being reset after an * attempt to call the Bank Table Requester, even * though the data had not been saved. * Fix: 1) Move user-context-ext fields to user-context * just prior to the Bank table requester call. * Qualify all user-context-ext variables to avoid * ambiguous references. * 2) Correct if statement. * 3) Save the scrn-access-info regardless of whether * Billpay is turned on in the Pi-table. * Procedures modified: * 200-ACCEPT-BASE * 200-ACCEPT-SCREEN-OVERLAY-40 * 200-ACCEPT-SCREEN-OVERLAY-41 * 200-ACCEPT-SCREEN-OVERLAY-42 * 200-ACCEPT-SCREEN-OVERLAY-48 * 240-FETCH-RECORD * 250-ADD-RECORD * 260-DELETE-RECORD * 270-UPDATE-RECORD * 280-READ-NEXT-RECORD * 310-GET-IDF-BANK * 550-INITIALIZE-SCREEN-ACCESS * 570-DISPLAY-OVERLAY-40 * 570-DISPLAY-OVERLAY-41 * 570-DISPLAY-OVERLAY-42 * 800-VALID-SCREEN * 800-BACK-ONE-OVERLAY * 800-NEXT-OVERLAY * 990-DISPLAY-MESSAGE * Procedure added: * 315-MOVE-NODES-TO-USER-CONTEXT * 325-MOVE-NODES. * Dependency: Apply fix to RQIDFTBS and run MAKE. * Reference: WO #010913-01 (BASE24-telebanking Release 6.0 * uplift). #ADD 00116K02 DATA DIVISION COPY USER-CONTEXT OF =BASRC_BADDLCOB. #ADD 00237C02 200-ACCEPT-BASE (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00240 200-ACCEPT-BASE #ADD 00246C04 200-ACCEPT-SCREEN-OVERLAY-40 (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00246C05 200-ACCEPT-SCREEN-OVERLAY-40 #ADD 00247C02 200-ACCEPT-SCREEN-OVERLAY-40 (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00260 200-ACCEPT-SCREEN-OVERLAY-40 #ADD 00266C02 200-ACCEPT-SCREEN-OVERLAY-42 (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00269 200-ACCEPT-SCREEN-OVERLAY-42 #ADD 00274C02 200-ACCEPT-SCREEN-OVERLAY-48 ESCAPE EXIT-KEY, (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00276 200-ACCEPT-SCREEN-OVERLAY-48 #ADD 00308 240-FETCH-RECORD IF WS-OVERLAY > 0 AND R-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY) = "Y" PERFORM 245-FETCH-RECORD ELSE IF WS-OVERLAY = 0 AND R-ACCESS OF USER-CONTEXT-EXT (1) = "Y" #DELETE 00309 /00311 240-FETCH-RECORD #ADD 00334 250-ADD-RECORD IF WS-OVERLAY > 0 AND A-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY) = "Y" PERFORM 255-ADD-RECORD ELSE IF WS-OVERLAY = 0 AND A-ACCESS OF USER-CONTEXT-EXT (1) = "Y" #DELETE 00335 /00338 250-ADD-RECORD #ADD 00360 260-DELETE-RECORD IF WS-OVERLAY > 0 AND D-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY) = "Y" PERFORM 265-DELETE-RECORD ELSE IF WS-OVERLAY = 0 AND D-ACCESS OF USER-CONTEXT-EXT (1) = "Y" #DELETE 00361 /00364 260-DELETE-RECORD #ADD 00387 270-UPDATE-RECORD IF WS-OVERLAY > 0 AND U-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY) = "Y" PERFORM 275-UPDATE-RECORD ELSE IF WS-OVERLAY = 0 AND U-ACCESS OF USER-CONTEXT-EXT (1) = "Y" #DELETE 00388 /00393 270-UPDATE-RECORD #ADD 00415 280-READ-NEXT-RECORD IF WS-OVERLAY > 0 AND R-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY) = "Y" PERFORM 285-READ-NEXT ELSE IF WS-OVERLAY = 0 AND R-ACCESS OF USER-CONTEXT-EXT (1) = "Y" #DELETE 00416 /00418 280-READ-NEXT-RECORD #DELETE 00487E0E 310-GET-IDF-BANK #DELETE 00487E0F 310-GET-IDF-BANK #DELETE 00487E0G 310-GET-IDF-BANK #DELETE 00487E0H 310-GET-IDF-BANK #ADD 00487E0J 310-GET-IDF-BANK MOVE SCRN-ACCESS OF USER-CONTEXT-EXT (40) TO SCRN-ACCESS OF USER-CONTEXT-EXT (1) #DELETE 00487E0K 310-GET-IDF-BANK #ADD 00487E0M 310-GET-IDF-BANK MOVE SCRN-ACCESS OF USER-CONTEXT-EXT (41) TO SCRN-ACCESS OF USER-CONTEXT-EXT (1) #DELETE 00487E0N 310-GET-IDF-BANK #ADD 00487E0P 310-GET-IDF-BANK MOVE SCRN-ACCESS OF USER-CONTEXT-EXT (42) TO #REPLACE 00487E0Q 310-GET-IDF-BANK SCRN-ACCESS OF USER-CONTEXT-EXT (1). #ADD 00487E0R 310-GET-IDF-BANK MOVE SCRN-ACCESS-INFO OF USER-CONTEXT-EXT TO WS-OLD-SCRN-ACCESS-INFO. #REPLACE 00487E0T 310-GET-IDF-BANK AND (WS-OVERLAY = 40 OR 41 OR 42) #ADD 00487K0C 310-GET-IDF-BANK MOVE CORRESPONDING USER-CONTEXT-EXT TO USER-CONTEXT MOVE SCRN-ACCESS-INFO OF USER-CONTEXT-EXT TO SCRN-ACCESS-INFO OF USER-CONTEXT PERFORM 315-MOVE-NODES-TO-USER-CONTEXT CALL NEW-PROG-NAME USING USER-CONTEXT, WS-LINK-BANK-DATA ON ERROR PERFORM 990-INVALID-REQ. MOVE WS-OLD-SCRN-ACCESS-INFO TO SCRN-ACCESS-INFO OF USER-CONTEXT-EXT. #DELETE 00487K0D 310-GET-IDF-BANK #DELETE 00487K0E/00487E19 310-GET-IDF-BANK #ADD 00487E1Y 310-GET-IDF-BANK / * * FILL IN USER-CONTEXT FIELDS * 315-MOVE-NODES-TO-USER-CONTEXT. IF RN-NUM OF USER-CONTEXT-EXT > 0 PERFORM 325-MOVE-NODES VARYING I FROM 1 BY 1 UNTIL I > RN-NUM OF USER-CONTEXT-EXT. / * * FILL IN USER-CONTEXT FIELDS * 325-MOVE-NODES. MOVE RESOURCE-NODE OF USER-CONTEXT-EXT (I) TO RESOURCE-NODE OF USER-CONTEXT (I). #REPLACE 00954E02 550-INITIALIZE-SCREEN-ACCESS MOVE "NNNN" TO SCRN-ACCESS OF USER-CONTEXT-EXT (WS-SUB). #ADD 00979 570-DISPLAY-OVERLAY-40 IF U-ACCESS OF USER-CONTEXT-EXT (40) = "N" AND A-ACCESS OF USER-CONTEXT-EXT (40) = "N" #DELETE 00980 570-DISPLAY-OVERLAY-40 #ADD 00992 570-DISPLAY-OVERLAY-41 IF U-ACCESS OF USER-CONTEXT-EXT (41) = "N" AND A-ACCESS OF USER-CONTEXT-EXT (41) = "N" #DELETE 00993 570-DISPLAY-OVERLAY-41 #ADD 01003 570-DISPLAY-OVERLAY-42 IF U-ACCESS OF USER-CONTEXT-EXT (42) = "N" AND A-ACCESS OF USER-CONTEXT-EXT (42) = "N" #DELETE 01004 570-DISPLAY-OVERLAY-42 #ADD 01007C1G 581-SPACE-ZERO-DISPLAY MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT, NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. #DELETE 01007C1H 581-SPACE-ZERO-DISPLAY #ADD 01106 800-VALID-SCREEN ( R-ACCESS OF USER-CONTEXT-EXT (NEW-PAGE-NUMBER) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT (NEW-PAGE-NUMBER) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT (NEW-PAGE-NUMBER) = "Y" ) #DELETE 01107 /01110 800-VALID-SCREEN #REPLACE 01188 /01190 800-BACK-ONE-OVERLAY ( R-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" ) #REPLACE 01253 /01255 800-NEXT-OVERLAY (R-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT (WS-OVERLAY-TEMP) = "Y" ) #REPLACE 01449 /01450 990-DISPLAY-MESSAGE MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT. MOVE SPACES TO NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. #ENDSCN = BA05144 !*CMP2.09 12/11/01 RQEMFS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQEMFS RQEMFS 6045 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQEMFS RQEMFS 6045 * ******************************************************************************** #SCN = BA05146 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00020s0I * 11DEC2001 bjk/1691 * Symptom: The help screen was not showing all the correct * key functions. * Problem: The help screen for all three screens were using * the standard help screen which didn't match the * actual mapping of the keys due to some special * functions on the screens. * Fix: - Added overlays 46 and 47 to display new help * screens. The new help screens now being * displayed removes the primary keys to allow * more space for future key descriptions. * - Removed overlay 48 since it was used to display * the standard help screen. * Modified procedures: * 200-ACCEPT-SCREEN * 201-GET-DATA * 490-CHANGE-FUNCTION-KEYS * 490-GET-DATA * 490-REGULAR-KEY-DISPLAY * * Added procedures: * 200-ACCEPT-SCREEN-OVERLAY-46 * 200-ACCEPT-SCREEN-OVERLAY-47 * 580-DISPLAY-SCREEN1-HELP * 580-DISPLAY-SCREEN3-HELP * 581-RETURN-OVERLAY * 581-SPACE-ZERO-DISPLAY * 581-SPACE-ZERO-DISPLAY-HELP * Dependency: Apply fix to RQEMFS and SCRNEMF and re-MAKE. * Scup copy requester object into POBJ. * Reference: Case #336088 #REPLACE 00360X01 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 46, 47. #ADD 00390d01 DATA DIVISION ?IF 1 01 WS-HELP-KEYS-1 PIC X(79) VALUE "PF7-DEFAULTS PF12-HELP IF THERE ARE T-CODES DON'T ADD/UPDA - "TE FROM THIS SCREEN". 01 WS-HELP-KEYS-3 PIC X(56) VALUE "PF8 - GET-THE-SCREEN-AGAIN-UP-TO-5-TIMES PF12 -HELP". 01 WS-HELP-KEYS-RETURN PIC X(72) VALUE "ANY FUNCTION KEY EXCEPT PF10, PF16, PA2 RETURNS. PF10 PRINTS - " AND RETURNS". ?ENDIF 1 ?IF 3 01 WS-HELP-KEYS-1 PIC X(77) VALUE "F7-DEFAULTS F12-HELP IF THERE ARE T-CODES DON'T ADD/UPDATE - " FROM THIS SCREEN". 01 WS-HELP-KEYS-3 PIC X(54) VALUE "F8 - GET-THE-SCREEN-AGAIN-UP-TO-5-TIMES F12 -HELP". 01 WS-HELP-KEYS-RETURN PIC X(77) VALUE "ANY FUNCTION KEY EXCEPT SF9-SF16, F10, OR F16 RETURNS. F10 P - "RINTS AND RETURNS". ?ENDIF 3 #REPLACE 00412X02/00413d01 DATA DIVISION COPY BASE-2-EXT OF =BASRC_BACOUTLS. COPY SC-HELP01 OF =BAAFT_SCNEMFO. COPY SC-HELP03 OF =BAAFT_SCNEMFO. #REPLACE 00472 201-GET-DATA 580-DISPLAY-SCREEN1-HELP , #REPLACE 00482 /00483 200-ACCEPT-SCREEN ELSE IF WS-OVERLAY = 46 PERFORM 200-ACCEPT-SCREEN-OVERLAY-46 ELSE IF WS-OVERLAY = 47 PERFORM 200-ACCEPT-SCREEN-OVERLAY-47 #REPLACE 00510 /00511 200-ACCEPT-SCREEN-OVERLAY-48 200-ACCEPT-SCREEN-OVERLAY-46. ACCEPT BASE-2, OVERLAY-46 #ADD 00514X02 200-ACCEPT-SCREEN-OVERLAY-48 200-ACCEPT-SCREEN-OVERLAY-47. ACCEPT BASE-2, OVERLAY-47 UNTIL (ENTER-KEY, FKEY2 THRU FKEY9, FKEY11 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), PRINT-KEY, EXIT-KEY, ESCAPE (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL). #REPLACE 01070 490-REGULAR-KEY-DISPLAY MOVE WS-HELP-KEYS-1 TO WS-VARIABLE-INSTRUCTIONS. #DELETE 01071 /01072 490-REGULAR-KEY-DISPLAY #REPLACE 01075 490-CHANGE-FUNCTION-KEYS MOVE WS-HELP-KEYS-3 TO WS-VARIABLE-INSTRUCTIONS. #DELETE 01076 490-CHANGE-FUNCTION-KEYS #REPLACE 01092 490-GET-DATA 580-DISPLAY-SCREEN3-HELP , #DELETE 01593p01 570-DISPLAY-OVERLAY-3 #ADD 01593p02 570-DISPLAY-OVERLAY-3 580-DISPLAY-SCREEN1-HELP. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE 46 TO WS-OVERLAY. MOVE WS-HELP-KEYS-RETURN TO WS-VARIABLE-INSTRUCTIONS. DISPLAY BASE BASE-2. DISPLAY BASE-2. DISPLAY OVERLAY OVERLAY-46 AT SC2-OVERLAY-AREA. DISPLAY OVERLAY-46. PERFORM 581-SPACE-ZERO-DISPLAY-HELP. DISPLAY SC-2. PERFORM 200-ACCEPT-SCREEN. PERFORM ONE OF 581-RETURN-OVERLAY , 900-PRINT-SCREEN-RETURN , 800-EXIT , 800-QUIT , DEPENDING ON TERMINATION-STATUS. 580-DISPLAY-SCREEN3-HELP. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE 47 TO WS-OVERLAY. MOVE WS-HELP-KEYS-RETURN TO WS-VARIABLE-INSTRUCTIONS. DISPLAY BASE BASE-2. DISPLAY BASE-2. DISPLAY OVERLAY OVERLAY-47 AT SC2-OVERLAY-AREA. DISPLAY OVERLAY-47. PERFORM 581-SPACE-ZERO-DISPLAY-HELP. DISPLAY SC-2. PERFORM 200-ACCEPT-SCREEN. PERFORM ONE OF 581-RETURN-OVERLAY , 900-PRINT-SCREEN-RETURN , 800-EXIT , 800-QUIT , DEPENDING ON TERMINATION-STATUS. * * THIS BUILDS THE ORIGINAL SCREEN AFTER EXITING FROM THE * HELP SCREEN. * 581-RETURN-OVERLAY. MOVE SAVE-OVERLAY TO WS-OVERLAY. IF WS-OVERLAY = 1 OR 2 MOVE WS-HELP-KEYS-1 TO WS-VARIABLE-INSTRUCTIONS ELSE IF WS-OVERLAY = 3 MOVE WS-HELP-KEYS-3 TO WS-VARIABLE-INSTRUCTIONS. DISPLAY BASE SC-MAIN. PERFORM 581-SPACE-ZERO-DISPLAY. PERFORM 990-SET-TIME. PERFORM 990-SET-PAGE. DISPLAY SC. PERFORM 570-DISPLAY-OVERLAY. 581-SPACE-ZERO-DISPLAY. MOVE ZEROES TO NEW-PAGE-NUMBER. DISPLAY SC-NEW-PAGE. DISPLAY SC-VARIABLE-INSTRUCTIONS. MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT, NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. DISPLAY SC-NEW-LNET. DISPLAY SC-FILE-DEST. 581-SPACE-ZERO-DISPLAY-HELP. MOVE SPACE TO WS-MESSAGE-TEXT, WS-ERROR-NUM. DISPLAY SC2-MESSAGE-TEXT. DISPLAY SC2-ERROR-NUM. MOVE ZEROES TO NEW-PAGE-NUMBER. DISPLAY SC-NEW-PAGE2. DISPLAY SC2-VARIABLE-INSTRUCTIONS. MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT, NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. DISPLAY SC-NEW-LNET2. DISPLAY SC-FILE-DEST2. #REPLACE 01744p03 800-GO-TO-SCREEN-SPECIAL COPY 900-DSPY-4096-EXT OF =BASRC_BACOUTLS. #ENDSCN = BA05146 !*CMP2.09 12/18/01 SVCAFS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6026 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6026 * ******************************************************************************** #SCN = BA05150 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00013Y0V * Dependency: Apply fix to SVCAFS and run MAKE. #DELETE 00013Y0W/00013Y0X #ADD 00013Z08 * 18DEC2001 CKC/163 * Symptom: The history section of the fix made on November * 20, 2001 (SCN BA05121) indicates that the Notify * Server files are dependencies. * Problem: The Notify Server files are required to implement * the MONAD enhancement, but are not required to * compile the CAF Server. * Fix: Took out of the dependency line of the November * 20, 2001 history section the dependencies on the * SVNTFYTM, SVNTFYTS and SVNTFYTG files. * Dependency: Apply fix to SVCAFS and run MAKE. * Reference: Case #341925 #ENDSCN = BA05150 !*CMP2.10 01/08/02 BAAFTM 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTM BAAFTM 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTM BAAFTM 6003 * ******************************************************************************** #SCN = BA05154 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6003 #NEWVERSION = 6004 #ADD 0088B0H # 08JAN2002 rkk/299 sjl/306 # Symptom: Triple/Single DES Enhancement # Problem: None. # Fix: Added includes for KEY6 requester and server. # Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEY6M, RQKEY6S, # SCRNKEY6, SVKEY6M, SVKEY6S and remake. # Reference: WO #000211-01 # # 08JAN2002 TLE/310 # Symptom: Uplift DUKPT to Release 6.0. # Problem: None. # Fix: Added statements to include baaft_rqkeydm and # baaft_svkeydm. # Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEYDM, RQKEYDS, # SVKEYDM, SVKEYDS and remake. # Reference: WO #011003-04. #ADD 0142 !include $(baaft_rqkey6m) !include $(baaft_svkey6m) #ADD 0144 !include $(baaft_rqkeydm) !include $(baaft_svkeydm) #ENDSCN = BA05154 !*CMP2.10 01/08/02 BAAFTMM 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTMM BAAFTMM 6002 * ******************************************************************************** #SCN = BA05155 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6002 #NEWVERSION = 6003 #ADD 0095B09 # 08JAN2002 rkk/299 sjl/306 # Symptom: Triple/Single DES Enhancement # Problem: None. # Fix: Added KEY6 defines. # Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEY6M, RQKEY6S, # SCRNKEY6, SVKEY6M, SVKEY6S and remake. # Reference: WO #000211-01 # # 08JAN2002 TLE/310 # Symptom: Uplift DUKPT to Release 6.0. # Problem: None. # Fix: Added the following defines: # baaft_rqkeydm # baaft_rqkeydo # baaft_rqkeyds # baaft_scrnkeyd # baaft_svkeyd # baaft_svkeydm # baaft_svkeyds # Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEYDM, RQKEYDS, # SVKEYDM, SVKEYDS and remake. # Reference: WO #011003-04. #ADD 0245 baaft_rqkey6m = \argus.$rook.ba60aft.rqkey6m baaft_rqkey6o = \argus.$rook.ba60aft.rqkey6o baaft_rqkey6s = \argus.$rook.ba60aft.rqkey6s baaft_scrnkey6 = \argus.$rook.ba60aft.scrnkey6 baaft_svkey6 = \argus.$rook.ba60aft.svkey6 baaft_svkey6m = \argus.$rook.ba60aft.svkey6m baaft_svkey6s = \argus.$rook.ba60aft.svkey6s #ADD 0253 baaft_rqkeydm = \argus.$rook.ba60aft.rqkeydm baaft_rqkeydo = \argus.$rook.ba60aft.rqkeydo baaft_rqkeyds = \argus.$rook.ba60aft.rqkeyds baaft_scrnkeyd = \argus.$rook.ba60aft.scrnkeyd baaft_svkeyd = \argus.$rook.ba60aft.svkeyd baaft_svkeydm = \argus.$rook.ba60aft.svkeydm baaft_svkeyds = \argus.$rook.ba60aft.svkeyds #ENDSCN = BA05155 !*CMP2.10 01/08/02 MEGATBL 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6003 * ******************************************************************************** #SCN = BA05156 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00046C07 * 08JAN2002 TLE/310 * Symptom: Uplift DUKPT to Release 6.0. * Problem: None * Fix: Added KEYD to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fixes to MEGATBL and RQMEGAS, and run MAKE. * Reference: WO #011003-04. #ADD 00095 "KEYD", #ENDSCN = BA05156 !*CMP2.10 01/08/02 RQECFS 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFS RQECFS 6032 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFS RQECFS 6032 * ******************************************************************************** #SCN = BA05157 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 00019f0A * 08JAN2002 BEM/348 * Symptom: Release 6.0 Format 2 File Support * Problem: None. * Fix: Added File Format field to screen 3. * Procedures modified: * 400-VALIDATE-DATA * 400-MOVE-RECORD * 481-CHECK-OVERLAY-3-BASE * 570-DISPLAY-OVERLAY-3. * 595-CLEAR-DATA * Dependency: Apply fix to DDLFECF and SCRNECF and run MAKE. * Reference: WO #000202-01 (Format 2 File Support) #ADD 00148 400-VALIDATE-DATA IF FILE-FRMT OF ECF NOT = "2" MOVE "1" TO FILE-FRMT OF ECF. #ADD 00152 400-MOVE-RECORD IF FILE-FRMT OF ECF NOT = "2" MOVE "1" TO FILE-FRMT OF ECF. #ADD 00844e2Y 481-CHECK-IF-SITE-HAS-PROD IF FILE-FRMT OF ECF NOT = "2" MOVE "1" TO FILE-FRMT OF ECF. #ADD 01048X1N 570-DISPLAY-OVERLAY-3 IF FILE-FRMT OF ECF NOT = "2" MOVE "1" TO FILE-FRMT OF ECF. #ADD 01080X0K 595-CLEAR-DATA FILE-FRMT OF ECF, #ADD 01101X03 595-CLEAR-DATA MOVE "1" TO FILE-FRMT OF ECF. #ENDSCN = BA05157 !*CMP2.10 01/08/02 RQKEYDS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYDS RQKEYDS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYDS RQKEYDS 6000 * ******************************************************************************** #SCN = BA05158 , FILEID = RQKEYDS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00039 * 08JAN2002 TLE/310 * Symptom: Uplift DUKPT to Release 6.0. * Problem: None. * Fix: Modified to be Release 6.0 compatible. * Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEYDM, RQKEYDS, * SVKEYDM, SVKEYDS and remake. * Reference: WO #011003-04. #DELETE 00040 IDENTIFICATION DIVISION #ADD 00067 DATA DIVISION COPY OMF-APPL-CDE-CONSTANTS OF =BASRC_BADDLCOB. #ADD 00128 DATA DIVISION COPY MSG-FILE-MAINT-1024-EXT OF =BASRC_BADDLCOB. #DELETE 00129 DATA DIVISION #ADD 00148 DATA DIVISION COPY USER-CONTEXT-EXT OF =BASRC_BADDLCOB. #DELETE 00149 DATA DIVISION #ADD 00158 DATA DIVISION COPY SC-GENERAL-HDR-EXT OF =BASRC_BACOUTLS. #DELETE 00159 DATA DIVISION #ADD 00166 PROCEDURE DIVISION PROCEDURE DIVISION USING USER-CONTEXT-EXT. #DELETE 00167 DECLARATIVES #ADD 00185 100-BEGIN MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT, NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. #DELETE 00186 /00187 100-BEGIN #ADD 00200 200-GET-DATA ERR-TXT OF MSG-FILE-MAINT-1024-EXT. MOVE ZEROES TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00201 /00202 200-GET-DATA #ADD 00246 200-ACCEPT-BASE (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00247 200-ACCEPT-BASE #ADD 00255 200-ACCEPT-SCREEN-OVERLAY-1 (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00256 200-ACCEPT-SCREEN-OVERLAY-1 #ADD 00262 200-ACCEPT-SCREEN-OVERLAY-48 ESCAPE (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). #DELETE 00263 200-ACCEPT-SCREEN-OVERLAY-48 #ADD 00273 300-VALIDATE-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00274 300-VALIDATE-DATA #ADD 00297 245-FETCH-RECORD IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT = 0 #DELETE 00298 245-FETCH-RECORD #ADD 00322 255-ADD-RECORD IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT = 0 #DELETE 00323 255-ADD-RECORD #ADD 00366 275-UPDATE-RECORD IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT = 0 #DELETE 00367 275-UPDATE-RECORD #ADD 00391 285-READ-NEXT IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT = 0 #DELETE 00392 285-READ-NEXT #ADD 00404 295-CHANGE-LOGICAL-NET IF NEW-LNET OF USER-CONTEXT-EXT = SPACES #DELETE 00405 295-CHANGE-LOGICAL-NET #ADD 00430 400-SAVE-RECORD MOVE LNET OF USER-CONTEXT-EXT TO LN OF MSG-FILE-MAINT-1024-EXT. MOVE LCONF-NAME OF USER-CONTEXT-EXT TO LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE SITE-PROD-IND OF USER-CONTEXT-EXT TO SITE-PROD-IND OF MSG-FILE-MAINT-1024-EXT. #DELETE 00431 /00435 400-SAVE-RECORD #ADD 00445 400-SET-UP MOVE KEYD-APPL-CDE-C TO APPL-CDE of MSG-FILE-MAINT-1024-EXT. #DELETE 00446 400-SET-UP #ADD 00448 440-SET-UP-FETCH MOVE 1 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00449 440-SET-UP-FETCH #ADD 00456 445-SET-UP-READ-NEXT MOVE 7 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00457 445-SET-UP-READ-NEXT #ADD 00468 450-SET-UP-ADD MOVE 4 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00469 450-SET-UP-ADD #ADD 00473 460-SET-UP-DELETE MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT #DELETE 00474 460-SET-UP-DELETE #ADD 00476 460-SET-UP-DELETE TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00477 460-SET-UP-DELETE #ADD 00482 460-SET-UP-DELETE MOVE 3 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00483 460-SET-UP-DELETE #ADD 00490 470-SET-UP-UPDATE MOVE 2 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00491 470-SET-UP-UPDATE #ADD 00498 480-DATA-CHECK IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT NOT = 0 #DELETE 00499 480-DATA-CHECK #ADD 00506 480-SET-UP-CHECK MOVE 21 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00507 480-SET-UP-CHECK #ADD 00512 480-CLEAR-ERROR-INFO MOVE 0 TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00513 480-CLEAR-ERROR-INFO #ADD 00526 480-DATA-CHECK-RETURN MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT #DELETE 00527 480-DATA-CHECK-RETURN #ADD 00591 570-DISPLAY-OVERLAY-1 COPY 580-KEYS-DISPLAYED-EXT OF =BASRC_BACOUTLS. #DELETE 00592 570-DISPLAY-OVERLAY-1 #ADD 00645 800-GO-TO-SCREEN MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00646 800-GO-TO-SCREEN #ADD 00685 800-PAGE-BACK MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00686 800-PAGE-BACK #ADD 00719 800-QUIT MOVE 1 TO LOGON-FUNC OF USER-CONTEXT-EXT. #DELETE 00720 800-QUIT #ADD 00728 800-NEXT-VALID-OVERLAY MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00729 800-NEXT-VALID-OVERLAY #ADD 00756 800-SEND-REQUEST MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT, #DELETE 00757 800-SEND-REQUEST #ADD 00758 800-SEND-REQUEST MOVE LNET OF USER-CONTEXT-EXT TO LN OF MSG-FILE-MAINT-1024-EXT. MOVE LCONF-NAME OF USER-CONTEXT-EXT TO LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE SITE-PROD-IND OF USER-CONTEXT-EXT TO SITE-PROD-IND OF MSG-FILE-MAINT-1024-EXT. #DELETE 00759 /00763 800-SEND-REQUEST #ADD 00764 800-SEND-REQUEST SEND MSG-FILE-MAINT-1024-EXT TO WS-SERVER REPLY CODE 0 1 YIELDS MSG-FILE-MAINT-1024-EXT #DELETE 00765 /00766 800-SEND-REQUEST #ADD 00771 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00772 800-SEND-REQUEST-ERROR #ADD 00774 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00775 800-SEND-REQUEST-ERROR #ADD 00777 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00778 800-SEND-REQUEST-ERROR #ADD 00780 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00781 800-SEND-REQUEST-ERROR #ADD 00783 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00784 800-SEND-REQUEST-ERROR #ADD 00786 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00787 800-SEND-REQUEST-ERROR #ADD 00789 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00790 800-SEND-REQUEST-ERROR #ADD 00792 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00793 800-SEND-REQUEST-ERROR #ADD 00795 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00796 800-SEND-REQUEST-ERROR #ADD 00798 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00799 800-SEND-REQUEST-ERROR #ADD 00801 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00802 800-SEND-REQUEST-ERROR #ADD 00804 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00805 800-SEND-REQUEST-ERROR #ADD 00807 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00808 800-SEND-REQUEST-ERROR #ADD 00810 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00811 800-SEND-REQUEST-ERROR #ADD 00813 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00814 800-SEND-REQUEST-ERROR #ADD 00816 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00817 800-SEND-REQUEST-ERROR #ADD 00819 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT #DELETE 00820 800-SEND-REQUEST-ERROR #ADD 00822 800-SEND-REQUEST-ERROR TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINATION-STATUS TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT. #DELETE 00823 /00824 800-SEND-REQUEST-ERROR #ADD 00826 800-INITIALIZE-MESSAGE MOVE 9999 TO REPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE 9999 TO ERR-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE OMF-AUDIT OF USER-CONTEXT-EXT TO OMF-AUDIT OF MSG-FILE-MAINT-1024-EXT. MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #DELETE 00827 /00835 800-INITIALIZE-MESSAGE #ADD 00888 990-DISPLAY-FM-INFO MOVE FM-USER-GRP OF MSG-FILE-MAINT-1024-EXT TO FM-GROUP. MOVE FM-USER-NUM OF MSG-FILE-MAINT-1024-EXT TO FM-USER. MOVE FM-TIMESTAMP OF MSG-FILE-MAINT-1024-EXT TO FM-DATE #DELETE 00889 /00891 990-DISPLAY-FM-INFO #ADD 00892 990-DISPLAY-FM-INFO IF UPDT-TYP OF LAST-FM OF MSG-FILE-MAINT-1024-EXT = "A" #DELETE 00893 990-DISPLAY-FM-INFO #ADD 00895 990-DISPLAY-FM-INFO IF UPDT-TYP OF LAST-FM OF MSG-FILE-MAINT-1024-EXT = "C" #DELETE 00896 990-DISPLAY-FM-INFO #ADD 00909 990-DISPLAY-MESSAGE IF ERR-NUM OF MSG-FILE-MAINT-1024-EXT = 0 #DELETE 00910 990-DISPLAY-MESSAGE #ADD 00952 990-DISPLAY-RESPONSE MOVE ERR-CDE OF MSG-FILE-MAINT-1024-EXT TO WS-ERROR-NUM. MOVE ERR-TXT OF MSG-FILE-MAINT-1024-EXT TO WS-MESSAGE-TEXT. #DELETE 00953 /00954 990-DISPLAY-RESPONSE #ENDSCN = BA05158 !*CMP2.10 01/08/02 SECTBL 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6004 * ******************************************************************************** #SCN = BA05160 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00268D0C * 08JAN2002 RKK/299 * Symptom: Triple/Single DES Enhancement * Problem: None. * Fix: Added KEY6 entries. * Updated counts in PROD-SCRN-ACCT-TABL and * PROD-MAX-TABL-ENTRIES. * Dependency: Add fix for SECTBL and run MAKE. * Reference: WO #000211-01 * 08JAN2002 TLE/310 * Symptom: Uplift DUKPT to Release 6.0. * Problem: None. * Fix: Added a new entry to PROD-SCRN-ACCESS-TABLE-DATA * for DUKPT. Increased the value of * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES * each by 1. * Dependency: Apply fix to SECTBL, SVMHLPS and remake. * Reference: WO #011003-04 #ADD 00608A01 05 KEY61 PIC X(35) VALUE "KEY6010000INTERFACE XCHG KEY INFO ". 05 KEY62 PIC X(35) VALUE "KEY6020000INTERFACE PIN KEY INFO ". 05 KEY63 PIC X(35) VALUE "KEY6030000INTERFACE MAC KEY INFO ". 05 KEY64 PIC X(35) VALUE "KEY6040000INTERFACE KEY CONFIGURE ". #ADD 00616 05 KEYD1 PIC X(35) VALUE "KEYD010000DERIVATION KEY FILE ". #REPLACE 00895D01 05 PROD-SCRN-ACC-TABL OCCURS 555 TIMES. #REPLACE 00908D01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 555. #ENDSCN = BA05160 !*CMP2.10 01/08/02 SVECFS 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVECFS SVECFS 6016 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVECFS SVECFS 6016 * ******************************************************************************** #SCN = BA05161 , FILEID = SVECFS #VOLUME = $ROOK.BA60AFT #FILE = SVECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6016 #NEWVERSION = 6017 #ADD 00013P09 * 08JAN2002 bjk/1691 * Symptom: Release 6.0 Format 2 Files Support * Problem: None * Fix: Changed BASE-SEG-LGTH from 678 to 698 to match * the DDL. * Dependency: Apply fix to SVECFS and re-MAKE. * Reference: WO #000202-01 (Format 2 Support) #REPLACE 00247P01 DATA DIVISION 05 BASE-SEG-LGTH PIC S9(4) COMP VALUE 698. #ENDSCN = BA05161 !*CMP2.10 01/08/02 SVKEYDS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVKEYDS SVKEYDS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVKEYDS SVKEYDS 6000 * ******************************************************************************** #SCN = BA05162 , FILEID = SVKEYDS #VOLUME = $ROOK.BA60AFT #FILE = SVKEYDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00039 * 08JAN2002 TLE/310 * Symptom: Uplift DUKPT to Release 6.0. * Problem: None. * Fix: Modified to be Release 6.0 compatible. * Dependency: Apply fix to BAAFTM, BAAFTMM, RQKEYDM, RQKEYDS, * SVKEYDM, SVKEYDS and remake. * Reference: WO #011003-04. #ADD 00163 DATA DIVISION COPY MSG-ERR-EXT OF "=BASRC_BADDLCOB". COPY MSG-FILE-MAINT-1024-EXT OF "=BASRC_BADDLCOB". #DELETE 00164 /00165 DATA DIVISION #ADD 00323 DATA DIVISION COPY WS-AUDIT-CALL-EXT OF "=BASRC_BACOUTLS". #DELETE 00324 DATA DIVISION #ADD 00361 DECLARATIVES COPY OMF-ERR-DECLARATIVE-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 00362 DECLARATIVES #ADD 00369 DECLARATIVES COPY BUILD-FILE-ERROR-EXT OF "=BASRC_BACOUTLS". #DELETE 00370 DECLARATIVES #ADD 00381 DECLARATIVES COPY SERVER-SKEL-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 00382 DECLARATIVES #ADD 00386 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = READ-TRANS #DELETE 00387 100-DETERMINE-TRAN-CODE #ADD 00389 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = DATA-CHECK #DELETE 00390 100-DETERMINE-TRAN-CODE #ADD 00392 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = UPDATE-TRANS #DELETE 00393 100-DETERMINE-TRAN-CODE #ADD 00395 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = DELETE-TRANS #DELETE 00396 100-DETERMINE-TRAN-CODE #ADD 00398 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = ADD-TRANS #DELETE 00399 100-DETERMINE-TRAN-CODE #ADD 00401 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = READ-NEXT-TRANS #DELETE 00402 100-DETERMINE-TRAN-CODE #ADD 00411 100-KEYD-ERROR-TEXT-FILL MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 00412 /00413 100-KEYD-ERROR-TEXT-FILL #ADD 00416 100-KEYD-ERROR-TEXT-FILL MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT #DELETE 00417 /00418 100-KEYD-ERROR-TEXT-FILL #ADD 00419 100-KEYD-ERROR-TEXT-FILL MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 00420 /00421 100-KEYD-ERROR-TEXT-FILL #ADD 00427 100-LCONF-ERROR-TEXT-FILL MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 00428 /00429 100-LCONF-ERROR-TEXT-FILL #ADD 00432 100-LCONF-ERROR-TEXT-FILL MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT #DELETE 00433 /00434 100-LCONF-ERROR-TEXT-FILL #ADD 00435 100-LCONF-ERROR-TEXT-FILL MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 00436 /00437 100-LCONF-ERROR-TEXT-FILL #ADD 00451 203-SPECIAL-PREPARE-READ-REPLY MOVE 1 TO REPL-CDE OF MSG-ERR-EXT. MOVE 0 TO ERR-CDE OF MSG-ERR-EXT. #DELETE 00452 /00453 203-SPECIAL-PREPARE-READ-REPLY #ADD 00490 310-UPDATE-REC MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE 1 TO REPL-CDE OF MSG-ERR-EXT #DELETE 00491 /00492 310-UPDATE-REC #ADD 00540 400-DELETE-RCD MOVE 0 TO ERR-CDE OF MSG-ERR-EXT #DELETE 00541 400-DELETE-RCD #ADD 00809 510-ADD-REC MOVE 1 TO REPL-CDE OF MSG-ERR-EXT MOVE 0 TO ERR-CDE OF MSG-ERR-EXT #DELETE 00810 /00811 510-ADD-REC #ADD 00849 600-READ-NEXT-RCD MOVE 1 TO REPL-CDE OF MSG-ERR-EXT MOVE 0 TO ERR-CDE OF MSG-ERR-EXT #DELETE 00850 /00851 600-READ-NEXT-RCD #ADD 00896 610-START-ERROR MOVE 0 TO REPL-CDE OF MSG-ERR-EXT #DELETE 00897 610-START-ERROR #ADD 01113 908-DETERMINE-FILE IF LN OF MSG-ERR-EXT = L-NET-NAME(J) #DELETE 01114 908-DETERMINE-FILE #ADD 01130 909-TABL-MAINT MOVE LN OF MSG-ERR-EXT TO L-NET-NAME(K) #DELETE 01131 909-TABL-MAINT #ADD 01145 909-TABL-MAINT MOVE LN OF MSG-ERR-EXT TO L-NET-NAME(J) #DELETE 01146 909-TABL-MAINT #ADD 01154 909-RETRIEVE-LCONF-ASSIGNS IF LCONF-NAME OF MSG-ERR-EXT NOT = SPACES ENTER TAL "FNAMEEXPAND" USING LCONF-NAME OF MSG-ERR-EXT, #DELETE 01155 /01156 909-RETRIEVE-LCONF-ASSIGNS #ADD 01165 909-RETRIEVE-LCONF-ASSIGNS LCONF-NAME OF MSG-ERR-EXT GIVING WS-GUAR-ERR #DELETE 01166 909-RETRIEVE-LCONF-ASSIGNS #ADD 01201 909-RETRIEVE-LCONF-ASSIGNS MOVE 11 TO ERR-NUM OF MSG-ERR-EXT, ERR-CDE OF MSG-ERR-EXT #DELETE 01202 909-RETRIEVE-LCONF-ASSIGNS #ADD 01252 910-RCD-READING MOVE 90 TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 01253 /01254 910-RCD-READING #ADD 01300 911-READ-NEXT MOVE 90 TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 01301 /01302 911-READ-NEXT #ADD 01444 917-RCD-WRITE MOVE 90 TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 01445 /01446 917-RCD-WRITE #ADD 01476 918-RCD-LOCKING MOVE 90 TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT #DELETE 01477 /01478 918-RCD-LOCKING #ADD 01491 960-FILL-LAST-FM MOVE USER-GRP OF MSG-ERR-EXT TO WS-FM-GRP-NUM, #DELETE 01492 960-FILL-LAST-FM #ADD 01493 960-FILL-LAST-FM MOVE USER-NUM OF MSG-ERR-EXT TO WS-FM-USER-NUM, #DELETE 01494 960-FILL-LAST-FM #ADD 01524 999-SAVE-LAST-FM COPY AUDIT-CODE-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 01525 / L 999-SAVE-LAST-FM #ENDSCN = BA05162 !*CMP2.10 01/08/02 SVMHLPS 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6004 * ******************************************************************************** #SCN = BA05163 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00101D07 * 08JAN2002 RKK/299 * Symptom: Triple/Single DES Enhancement * Problem: None. * Fix: Added KEY6 entry. * Incremented BASE-ENTRY and BASE-ENTRIES-L. * Dependency: Add fix for SVMHLPS and run MAKE. * Reference: WO #000211-01 * 08JAN2002 TLE/310 * Symptom: Uplift DUKPT to Release 6.0. * Problem: None. * Fix: Added KEYD to BASE-TABLE. * Dependency: Apply fix to SECTBL, SVMHLPS and remake. * Reference: WO #011003-04. #ADD 00168 DATA DIVISION 05 FILLER PIC X(31) VALUE "KEY6KEY6 FILE". #ADD 00170 DATA DIVISION 05 FILLER PIC X(31) VALUE "KEYDDERIVATION KEY FILE". #REPLACE 00203D01 DATA DIVISION 05 BASE-ENTRY OCCURS 31 TIMES. #REPLACE 00206D01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 31. #ENDSCN = BA05163 !*CMP2.10 01/10/02 BAAFTM 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTM BAAFTM 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTM BAAFTM 6004 * ******************************************************************************** #SCN = BA05211 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6004 #NEWVERSION = 6005 #ADD 0088D0G # 10JAN2002 CKC/163 # Symptom: The Notify Server will not compile when From Host # Maintenance is not turned on in the MAKE files. # Problem: The Notify Server pulls in procedures from the # FHMS file on FH60FHM. If From Host Maintenance is # not turned on in the MAKE files (FHM_ON), the server # will not compile because the From Host Maintenance # code is not pulled in. # Fix: Added a condition statement around the "include" # statement for the Notify Server: If From Host # Maintenance is turned on, include the server, # otherwise, don't compile it. # Dependency: Apply fix to BAAFTM and reMAKE. # Reference: Case 342613. #ADD 0162C00 !IF $(fhm_on) = TRUE |THEN| !include $(baaft_svntfytm) !ENDIF #DELETE 0162C01 #ENDSCN = BA05211 !*CMP2.10 02/04/02 SECTBL 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6005 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6005 * ******************************************************************************** #SCN = BA05260 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00268E0I * 05FEB2002 KSS/718 * Symptom: BASE24 Release 6.0 PRM Components * Problem: None. * Fix: Merchant Interface Enhancement. * Dependency: Customers should refer to the update guide, * PI60SRC.PRMUPDT, when making the code with the * prm_on flag set to true. * Reference: WO #010102-02 #ADD 00650A01 05 MMF1 PIC X(35) VALUE "MMF 010018PSE MERCHANT MASTER FILE ". 05 MMF2 PIC X(35) VALUE "MMF 020018PSE MERCHANT MASTER FILE ". #ADD 00703A03 05 PTBL4 PIC X(35) VALUE "PTBL040018PRISM ROUTING TABLE FILE ". #REPLACE 00895E01 05 PROD-SCRN-ACC-TABL OCCURS 558 TIMES. #REPLACE 00908E01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 558. #ENDSCN = BA05260 !*CMP2.10 02/04/02 SVMHLPS 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6005 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6005 * ******************************************************************************** #SCN = BA05261 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00101E0E * 05FEB2002 KSS/718 * Symptom: BASE24 Release 6.0 PRM Components * Problem: None. * Fix: Merchant Interface Enhancement. * Dependency: Customers should refer to the update guide, * PI60SRC.PRMUPDT, when making the code with the * prm_on flag set to true. * Reference: WO #010102-02 #ADD 00530B02 DATA DIVISION VALUE "PTBLPRM ROUTING TABLE FILE". #DELETE 00530B03 DATA DIVISION #ADD 00530B05 DATA DIVISION 05 FILLER PIC X(31) VALUE "MMF PSE MERCHANT MASTER FILE". #REPLACE 00530B08 DATA DIVISION 05 PRISM-ENTRY OCCURS 3 TIMES. #ENDSCN = BA05261 !*CMP2.11 02/26/02 RQCAFS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6046 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6046 * ******************************************************************************** #SCN = BA05284 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00023t09 * 26FEB2002 WHB/1738 DLH/158 * Symptom: When adding or updating a CAF record with no * account information, the message "1 ACCOUNT ON * SCREEN 3 IS REQUIRED. PLEASE CORRECT ON SCREEN 3." * is displayed. * Problem: The CAF server/requester only allows the account * segment to be blank for card types AD, ST and SP. * Fix: For card types other then AD, ST and SP, the * account segment will be added to the record. * account segment will only contain the segment * length variable. The card type will not be * checked any more. * Modified: 450-SET-UP-ADD-CONTINUED * 470-SET-UP-UPDATE-CONTINUED * Dependency: Apply fix to SVCAFS and corresponding fix to * RQCAFS. Apply associated fixes to ATM AUTHS, * AUTHLIBS and AUTHG, POS AUTHLIBS and RTAUG, REFRS, * REFRG and FHMCAFS. * Reference: (Retro of SCN BA5B677 from Case #332341.) #DELETE 00945 /00946c03 450-SET-UP-ADD-CONTINUED #DELETE 01035 /01036J02 470-SET-UP-UPDATE-CONTINUED #ENDSCN = BA05284 !*CMP2.11 02/26/02 SVCAFS 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6027 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6027 * ******************************************************************************** #SCN = BA05285 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00013a0J * 26FEB2002 WHB/1738 DLH/158 * Symptom: When adding or updating a CAF record with no * account information, the message "1 ACCOUNT ON * SCREEN 3 IS REQUIRED. PLEASE CORRECT ON SCREEN 3." * is displayed. * Problem: The CAF server/requester only allows the account * segment to be blank for card types AD, ST and SP. * Fix: For card types other then AD, ST and SP, the * account segment will be added to the record. This * account segment will only contain the segment * length variable, which will be equal to 8 if no * account data is present in the record. * Modified: 315-DETERMINE-SEG31-LENGTH * Dependency: Apply fix to SVCAFS and corresponding fix to * RQCAFS. Apply associated fixes to ATM AUTHS, * AUTHLIBS and AUTHG, POS AUTHLIBS and RTAUG, REFRS, * REFRG and FHMCAFS. * Reference: (Retro of SCN BA5B678 from Case #332341.) #ADD 00883 315-DETERMINE-SEG31-LENGTH IF CALCULATED-SEG31-LGTH = 0 THEN ADD 8 TO CALCULATED-SEG31-LGTH ELSE ADD 10 TO CALCULATED-SEG31-LGTH END-IF. #DELETE 00884 315-DETERMINE-SEG31-LENGTH #ENDSCN = BA05285 !*CMP2.11 03/28/02 PITABLE 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.PITABLE PITABLE 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.PITABLE PITABLE 6002 * ******************************************************************************** #SCN = BA05335 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00060B0D * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added entries for "STORED VALUE" to the SEG-TABLE * and the SEG-DESCR-TABLE. * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #REPLACE 01179 05 STORED-VALUE PIC X VALUE "N". #REPLACE 01454 05 FILLER-25 PIC X(16) VALUE "STORED VALUE ". #ENDSCN = BA05335 !*CMP2.11 03/28/02 SECTBL 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6006 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6006 * ******************************************************************************** #SCN = BA05336 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00268A1Q * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * ACNF8, CPF10, and SVHF1. Increased PROD-SCRN- * ACC-TABL and PROD-MAX-TABL-ENTRIES by 3. * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #ADD 00307 05 ACNF8 PIC X(35) VALUE "ACNF081802PAGE 7 OF REC F ". #ADD 00414 05 CPF10 PIC X(35) VALUE "CPF 101800STORED VALUE INFO ". #ADD 00779 05 SVHF1 PIC X(35) VALUE "SVHF011800SVHF KEY SCREEN ". #REPLACE 00895F01 05 PROD-SCRN-ACC-TABL OCCURS 561 TIMES. #REPLACE 00908F01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 561. #ENDSCN = BA05336 !*CMP2.12 03/28/02 RQCPFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6048 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6048 * ******************************************************************************** #SCN = BA05339 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00022v0U * 28MAR2002 MJD/1573 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Uplifted the BASE24 Stored Value enhancement * from 5.3 to 6.0. Moved edit checks from the * requester (RQCPFS) to the server (SVCPFS) due to * code space limits in the requester. * Dependency: Restore Stored Value related files, modify the * appropriate CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #DELETE 00022v0V #DELETE 00022t0B #DELETE 00043m07/00043m08 DATA DIVISION #DELETE 00043m0C DATA DIVISION #DELETE 00043m0D DATA DIVISION #DELETE 00043m0E DATA DIVISION #DELETE 00043m0F DATA DIVISION #DELETE 00043m0G DATA DIVISION #DELETE 00043m0H DATA DIVISION #DELETE 00043m0I DATA DIVISION #DELETE 00043m0J DATA DIVISION #DELETE 00043m0K DATA DIVISION #ADD 00049 DATA DIVISION 05 K PIC S9(4) COMP. #DELETE 00058p03/00058p05 DATA DIVISION #DELETE 00066 /00067h03 DATA DIVISION #ADD 00068 DATA DIVISION 05 SAVE-FUNC-4-6 PIC S9(4) COMP. #DELETE 00073b03/00073F06 DATA DIVISION #ADD 00073F08 DATA DIVISION 05 TEMP-HOLD PIC X(4096). #DELETE 00073P00/00073l00 DATA DIVISION #DELETE 00073r00 DATA DIVISION #DELETE 00073u00 DATA DIVISION #DELETE 00073u01 DATA DIVISION #DELETE 00073u02 DATA DIVISION #DELETE 00073r02/00073q00 DATA DIVISION #DELETE 00073q02/00074u05 DATA DIVISION #ADD 00074u08 DATA DIVISION COPY SV-VALID-CARD-TYPES OF =BASRC_COBNAMES. 01 WS-STORED-VALUE. 05 WS-SV-CAF-TPLT-LGTH PIC S9(4) COMP VALUE 1. 05 WS-SV-MIN-LOAD PIC S9(18) COMP VALUE ZERO. 05 WS-SV-MAX-LOAD PIC S9(18) COMP VALUE ZERO. 05 WS-SV-MAX-AS-CASH PIC S9(18) COMP VALUE ZERO. 05 WS-SV-MAX-AS-CASH-REDEMPTION PIC S9(18) COMP VALUE ZERO. 05 WS-SV-MAX-CRD-BAL PIC S9(18) COMP VALUE ZERO. 05 WS-SV-CRD-EXP-DAT PIC X(4) VALUE SPACES. 05 WS-SV-CRD-DURATION PIC S9(4) COMP VALUE ZERO. 05 WS-SV-RETAILER-ID PIC X(19) VALUE SPACES. #DELETE 00074u09/00075 DATA DIVISION #ADD 00108h04 DATA DIVISION 05 CPF10 PIC X(4) VALUE "SV ". #DELETE 00108h05/00108o00 DATA DIVISION #ADD 00113o00 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 4, 5, 6, 7, 10 #DELETE 00113o01 DATA DIVISION #ADD 00113l00 DATA DIVISION 11, 14, 20, 21, 22, 48. #DELETE 00113l01 DATA DIVISION #ADD 00115u09 DATA DIVISION 10 REC-IMAGE-REST PIC X(1401). #DELETE 00115u0A DATA DIVISION #ADD 00115u0C DATA DIVISION 05 ERROR-INFO. 07 OVERLAY-NUM PIC 9(2). 07 ERR-CNT PIC 9(2). 05 SCN-TBL OCCURS 45 TIMES. 07 FLD-ID-NUM PIC 9(2). 07 FLD-INDEX-NUM PIC 9(2). 05 WS-PREFIX-IPM PIC X(11). 05 LEFTOVER PIC X(2462). #DELETE 00115u0D DATA DIVISION #DELETE 00123u0K/00123u0Q DATA DIVISION #DELETE 00123u0S/00123u0X DATA DIVISION #DELETE 00123u0Z/00123u11 DATA DIVISION #DELETE 00123u14/00123u15 DATA DIVISION #DELETE 00123u17/00123u18 DATA DIVISION #DELETE 00123u1A/00123u1D DATA DIVISION #DELETE 00123u1F/00123u1G DATA DIVISION #DELETE 00123u1I/00123u1J DATA DIVISION #DELETE 00123u1L/00123u1R DATA DIVISION #DELETE 00123u1T/00124F01 DATA DIVISION #ADD 00147h07 DATA DIVISION COPY SC-PSCPF10 OF =BAAFT_SCNCPFO. #DELETE 00147h08 DATA DIVISION #ADD 00195 200-GET-DATA 800-NEXT-VALID-OVERLAY-CPF , 800-PAGE-BACK-CPF , #DELETE 00196 /00197 200-GET-DATA #ADD 00320l04 245-FETCH-RECORD MOVE REC-IMAGE TO TEMP-HOLD #DELETE 00320l05 245-FETCH-RECORD #ADD 00320q03 245-FETCH-RECORD MOVE TEMP-HOLD TO REC-IMAGE #DELETE 00320q04 245-FETCH-RECORD #ADD 00449l01 400-PRE-MOVE-RECORD MOVE REC-IMAGE TO TEMP-HOLD. #DELETE 00450 400-PRE-MOVE-RECORD #ADD 00451 400-PRE-MOVE-RECORD MOVE TEMP-HOLD TO REC-IMAGE. #DELETE 00452 400-PRE-MOVE-RECORD #ADD 00484u09 400-MOVE-RECORD * MOVE THE STORED VALUE FIELDS INTO THE SCREEN FIELDS. MOVE CAF-TPLT-LGTH OF SEG24 TO WS-SV-CAF-TPLT-LGTH. MOVE MIN-LOAD OF SEG24 TO WS-SV-MIN-LOAD. MOVE MAX-LOAD OF SEG24 TO WS-SV-MAX-LOAD. MOVE MAX-AS-CASH OF SEG24 TO WS-SV-MAX-AS-CASH. MOVE MAX-AS-CASH-REDEMPTION OF SEG24 TO WS-SV-MAX-AS-CASH-REDEMPTION. MOVE MAX-CRD-BAL OF SEG24 TO WS-SV-MAX-CRD-BAL. MOVE CRD-EXP-DAT OF SEG24 TO WS-SV-CRD-EXP-DAT. MOVE CRD-DURATION OF SEG24 TO WS-SV-CRD-DURATION. MOVE RETAILER-ID OF SEG24 TO WS-SV-RETAILER-ID. #ADD 00492 400-SAVE-RECORD MOVE 0 TO CHRGBACK-UPDATE OF SEG2 ELSE MOVE WS-CHRGBACK-UPDATE TO CHRGBACK-UPDATE OF SEG2. #DELETE 00493 400-SAVE-RECORD #ADD 00493d05 400-SAVE-RECORD MOVE "0" TO PIN-CHK OF SEG0 ELSE MOVE WS-PIN-CHK-CV TO PIN-CHK OF SEG0. #DELETE 00493d06 400-SAVE-RECORD #ADD 00493d0B 400-SAVE-RECORD MOVE "0" TO CV-CHK OF SEG0 ELSE MOVE WS-CV-CHK-CV TO CV-CHK OF SEG0. #DELETE 00493d0C 400-SAVE-RECORD #ADD 00497 400-SAVE-RECORD MOVE 0 TO RPRSNT-UPDATE OF SEG2 ELSE MOVE WS-RPRSNT-UPDATE TO RPRSNT-UPDATE OF SEG2. #DELETE 00498 400-SAVE-RECORD #ADD 00498u08 400-SAVE-RECORD * IF THE EXP-CHK-IND FLAG IS SET TO ZERO IN SCREEN 1 WITH A * STORED VALUE CRD-TYP, FORCE ZEROS IN STORED VALUE EXPIRATION * DATE AND DURATION FIELDS. IF WS-OVERLAY = 1 MOVE CRD-TYP OF SEG0 OF CPF TO VALID-SV-CARD-TYPE IF SV-CARD-TYPE-RELOAD OR SV-CARD-TYPE-NON-RELOAD IF EXP-CHK-IND = 0 MOVE ZEROES TO WS-SV-CRD-EXP-DAT MOVE ZEROES TO WS-SV-CRD-DURATION. * MOVE THE SCREEN FIELDS INTO THE STORED VALUE SEGMENT. MOVE WS-SV-CAF-TPLT-LGTH TO CAF-TPLT-LGTH OF SEG24. MOVE WS-SV-MIN-LOAD TO MIN-LOAD OF SEG24. MOVE WS-SV-MAX-LOAD TO MAX-LOAD OF SEG24. MOVE WS-SV-MAX-AS-CASH TO MAX-AS-CASH OF SEG24. MOVE WS-SV-MAX-AS-CASH-REDEMPTION TO MAX-AS-CASH-REDEMPTION OF SEG24. MOVE WS-SV-MAX-CRD-BAL TO MAX-CRD-BAL OF SEG24. MOVE WS-SV-CRD-EXP-DAT TO CRD-EXP-DAT OF SEG24. MOVE WS-SV-CRD-DURATION TO CRD-DURATION OF SEG24. MOVE WS-SV-RETAILER-ID TO RETAILER-ID OF SEG24. * INITIALIZE THE STORED VALUE FIELDS ON A READ OR READ NEXT * SO THAT PREVIOUS VALUES ARE NOT CARRIED FORWARD. IF TRAN-CDE = 11 MOVE 1 TO CAF-TPLT-LGTH OF SEG24 MOVE "0000" TO CRD-EXP-DAT OF SEG24 MOVE ZEROES TO MIN-LOAD OF SEG24, MAX-LOAD OF SEG24, MAX-AS-CASH OF SEG24, MAX-AS-CASH-REDEMPTION OF SEG24, MAX-CRD-BAL OF SEG24, CRD-DURATION OF SEG24. #ADD 00628 450-SET-UP-ADD * * SAVE-FUNC-4-6 SAVES TERMINATION-STATUS VALUE REQUIRED IN * 481-CHECK-LAST-ACCT-NO (ADD=4) (UPDATE=6) * MOVE TERMINATION-STATUS TO SAVE-FUNC-4-6. #ADD 00657 470-SET-UP-UPDATE * * SAVE-FUNC-4-6 SAVES TERMINATION-STATUS VALUE REQUIRED IN * 481-CHECK-LAST-ACCT-NO (ADD=4) (UPDATE=6) * MOVE TERMINATION-STATUS TO SAVE-FUNC-4-6. #ADD 00670 480-DATA-CHECK PERFORM 480-CLEAR-ERROR-INFO. PERFORM 400-SET-UP. PERFORM 400-SAVE-RECORD. MOVE WS-PREFIX TO WS-PREFIX-IPM. MOVE 21 TO TRAN-CDE. PERFORM 800-INITIALIZE-MESSAGE. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST PERFORM 480-DATA-CHECK-RETURN. PERFORM 550-TABLE-LOOK-UP. 480-CLEAR-ERROR-INFO. MOVE WS-OVERLAY TO OVERLAY-NUM. MOVE 0 TO ERR-CDE. MOVE 0 TO ERR-CNT. PERFORM 480-CLEAR-ERROR-TABLE VARYING I FROM 1 BY 1 UNTIL I > 45. 480-CLEAR-ERROR-TABLE. MOVE 0 TO FLD-ID-NUM (I), FLD-INDEX-NUM (I). 480-DATA-CHECK-RETURN. MOVE REC-IMAGE-CPF TO CPF. * * READ NEXT RECORD, CLEAR DATA, AND PAGE BACK FUNCTIONS * REQUIRE TABLE LOOK-UP: * IF SAVE-FUNC-KEY = 7 OR 9 OR 11 PERFORM 550-TABLE-LOOK-UP. PERFORM 990-DISPLAY-RECORD. IF ERR-CNT > 0 IF ERR-CDE = ZERO MOVE 11 TO ERR-CDE. PERFORM 481-CHECK-LAST-ACCT-NO. PERFORM 481-CHECK-SV-ADD-UPD. * * IF LAST ACCT NO (PAGE 20) EDIT FAILED ERROR 44 IN * 481-CHECK-LAST-ACCT-NO OR STORED VALUE EDIT ERROR 45, * SKIP OVERLAY ERROR LOGIC: * IF ERR-CDE = 44 OR 45 NEXT SENTENCE ELSE IF ERR-CNT > 0 MOVE "BAD" TO VALID-DATA PERFORM ONE OF 480-CHK-OVERLAY-1, 480-CHK-OVERLAY-2, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-4, 480-CHK-OVERLAY-5, 480-CHK-OVERLAY-6, 480-CHK-OVERLAY-7, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-10, 480-CHK-OVERLAY-11, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-14, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-20, 480-CHK-OVERLAY-21, 480-CHK-OVERLAY-22, DEPENDING ON WS-OVERLAY. * * NOTE: DUMMY PARAGRAPHS REQUIRED FOR PROPER FUNCTIONING OF * "PERFORM DEPENDING ON" LOGIC. * 480-CHK-OVERLAY-DUMMY. 480-CHK-OVERLAY-1. PERFORM 480-ERR-FLAG-OV-1 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-2. PERFORM 480-ERR-FLAG-OV-2 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-4. PERFORM 480-ERR-FLAG-OV-4 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-5. PERFORM 480-ERR-FLAG-OV-5 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-6. PERFORM 480-ERR-FLAG-OV-6 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-7. PERFORM 480-ERR-FLAG-OV-7 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-10. PERFORM 480-ERR-FLAG-OV-10 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-11. PERFORM 480-ERR-FLAG-OV-11 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-14. PERFORM 480-ERR-FLAG-OV-14 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-20. PERFORM 480-ERR-FLAG-OV-20 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-21. PERFORM 480-ERR-FLAG-OV-21 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-22. PERFORM 480-ERR-FLAG-OV-22 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-ERR-FLAG-OV-1. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-BASE-FIELD-1, 480-FLAG-BASE-FIELD-2, 480-FLAG-BASE-FIELD-3, 480-FLAG-OV-1-FIELD-1, 480-FLAG-OV-1-FIELD-2, 480-FLAG-OV-1-FIELD-3, 480-FLAG-OV-1-FIELD-4, 480-FLAG-OV-1-FIELD-5, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-7, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-10, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-12, 480-FLAG-OV-1-FIELD-13, 480-FLAG-OV-1-FIELD-14, 480-FLAG-OV-1-FIELD-15, 480-FLAG-OV-1-FIELD-16, 480-FLAG-OV-1-FIELD-17, 480-FLAG-OV-1-FIELD-18, 480-FLAG-OV-1-FIELD-19, 480-FLAG-OV-1-FIELD-20, 480-FLAG-OV-1-FIELD-21, 480-FLAG-OV-1-FIELD-22, 480-FLAG-OV-1-FIELD-23, 480-FLAG-OV-1-FIELD-24, 480-FLAG-OV-1-FIELD-25, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-27, DEPENDING ON K. 480-FLAG-BASE-FIELD-1. TURN TEMP SERROR IN P-PREFIX. SET NEW-CURSOR AT P-PREFIX. 480-FLAG-BASE-FIELD-2. TURN TEMP SERROR IN P-PAN-LGTH. SET NEW-CURSOR AT P-PAN-LGTH. 480-FLAG-BASE-FIELD-3. TURN TEMP SERROR IN P-FIID. SET NEW-CURSOR AT P-FIID. 480-FLAG-OV-DUMMY. 480-FLAG-OV-1-FIELD-1. TURN TEMP SERROR IN P-CRD-TYP. SET NEW-CURSOR AT P-CRD-TYP. 480-FLAG-OV-1-FIELD-2. TURN TEMP SERROR IN P-CRD-PROF. SET NEW-CURSOR AT P-CRD-PROF. 480-FLAG-OV-1-FIELD-3. TURN TEMP SERROR IN P-MBR-LGTH. SET NEW-CURSOR AT P-MBR-LGTH. 480-FLAG-OV-1-FIELD-4. TURN TEMP SERROR IN P-TRK-PREF. SET NEW-CURSOR AT P-TRK-PREF. 480-FLAG-OV-1-FIELD-5. TURN TEMP SERROR IN P-TRK1-MBR-OFST. SET NEW-CURSOR AT P-TRK1-MBR-OFST. 480-FLAG-OV-1-FIELD-7. TURN TEMP SERROR IN P-MBR-OFST. SET NEW-CURSOR AT P-MBR-OFST. 480-FLAG-OV-1-FIELD-10. TURN TEMP SERROR IN P-TRK1-DAT-OFST. SET NEW-CURSOR AT P-TRK1-DAT-OFST. 480-FLAG-OV-1-FIELD-12. TURN TEMP SERROR IN P-DAT-OFST. SET NEW-CURSOR AT P-DAT-OFST. 480-FLAG-OV-1-FIELD-13. TURN TEMP SERROR IN P-TRK1-MIN-LGTH. SET NEW-CURSOR AT P-TRK1-MIN-LGTH. 480-FLAG-OV-1-FIELD-14. TURN TEMP SERROR IN P-TRK1-MAX-LGTH. SET NEW-CURSOR AT P-TRK1-MAX-LGTH. 480-FLAG-OV-1-FIELD-15. TURN TEMP SERROR IN P-TRK2-MIN-LGTH. SET NEW-CURSOR AT P-TRK2-MIN-LGTH. 480-FLAG-OV-1-FIELD-16. TURN TEMP SERROR IN P-TRK2-MAX-LGTH. SET NEW-CURSOR AT P-TRK2-MAX-LGTH. 480-FLAG-OV-1-FIELD-17. TURN TEMP SERROR IN P-BAD-TRK-DISP. SET NEW-CURSOR AT P-BAD-TRK-DISP. 480-FLAG-OV-1-FIELD-18. TURN TEMP SERROR IN P-ACC-TYPE. SET NEW-CURSOR AT P-ACC-TYPE. 480-FLAG-OV-1-FIELD-19. TURN TEMP SERROR IN P-PREFIX-RTE. SET NEW-CURSOR AT P-PREFIX-RTE. 480-FLAG-OV-1-FIELD-20. TURN TEMP SERROR IN P-EXP-CHK-IND. SET NEW-CURSOR AT P-EXP-CHK-IND. 480-FLAG-OV-1-FIELD-21. TURN TEMP SERROR IN P-MOD10-CHK. SET NEW-CURSOR AT P-MOD10-CHK. 480-FLAG-OV-1-FIELD-22. TURN TEMP SERROR IN P-TTL-WDLLMT. SET NEW-CURSOR AT P-TTL-WDLLMT. 480-FLAG-OV-1-FIELD-23. TURN TEMP SERROR IN P-OFFL-WDLLMT. SET NEW-CURSOR AT P-OFFL-WDLLMT. 480-FLAG-OV-1-FIELD-24. TURN TEMP SERROR IN P-TTL-CCALMT. SET NEW-CURSOR AT P-TTL-CCALMT. 480-FLAG-OV-1-FIELD-25. TURN TEMP SERROR IN P-OFFL-CCALMT. SET NEW-CURSOR AT P-OFFL-CCALMT. 480-FLAG-OV-1-FIELD-27. TURN TEMP SERROR IN P-OFFL-AGGR-LMT. SET NEW-CURSOR AT P-OFFL-AGGR-LMT. 480-ERR-FLAG-OV-2. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-2-FIELD-2, 480-FLAG-OV-DUMMY, 480-FLAG-OV-2-FIELD-4, 480-FLAG-OV-2-FIELD-5, 480-FLAG-OV-2-FIELD-6, 480-FLAG-OV-2-FIELD-7, 480-FLAG-OV-2-FIELD-8, 480-FLAG-OV-2-FIELD-9, 480-FLAG-OV-DUMMY, 480-FLAG-OV-2-FIELD-11, 480-FLAG-OV-DUMMY, 480-FLAG-OV-2-FIELD-13, 480-FLAG-OV-2-FIELD-14, 480-FLAG-OV-2-FIELD-15, 480-FLAG-OV-2-FIELD-16, 480-FLAG-OV-2-FIELD-17, 480-FLAG-OV-2-FIELD-18, 480-FLAG-OV-2-FIELD-19, 480-FLAG-OV-2-FIELD-20, 480-FLAG-OV-2-FIELD-21, 480-FLAG-OV-2-FIELD-22, DEPENDING ON K. 480-FLAG-OV-2-FIELD-2. TURN TEMP SERROR IN P-VRFY-TYP. SET NEW-CURSOR AT P-VRFY-TYP. 480-FLAG-OV-2-FIELD-4. TURN TEMP SERROR IN P-BAD-PIN-DISP. SET NEW-CURSOR AT P-BAD-PIN-DISP. 480-FLAG-OV-2-FIELD-5. TURN TEMP SERROR IN P-CRD-HLD-SELCT. SET NEW-CURSOR AT P-CRD-HLD-SELCT. 480-FLAG-OV-2-FIELD-6. TURN TEMP SERROR IN P-ALGO-NUM-LOC. SET NEW-CURSOR AT P-ALGO-NUM-LOC. 480-FLAG-OV-2-FIELD-7. TURN TEMP SERROR IN P-PIN-CHK. SET NEW-CURSOR AT P-PIN-CHK. 480-FLAG-OV-2-FIELD-8. TURN TEMP SERROR IN P-PIN-OFST-LOC. SET NEW-CURSOR AT P-PIN-OFST-LOC. 480-FLAG-OV-2-FIELD-9. TURN TEMP SERROR IN P-PIN-TRIES-RESET-OPTION. SET NEW-CURSOR AT P-PIN-TRIES-RESET-OPTION. 480-FLAG-OV-2-FIELD-11. TURN TEMP SERROR IN P-CV-CHECK-TYPE. SET NEW-CURSOR AT P-CV-CHECK-TYPE. 480-FLAG-OV-2-FIELD-13. TURN TEMP SERROR IN P-CV-CHK. SET NEW-CURSOR AT P-CV-CHK. 480-FLAG-OV-2-FIELD-14. TURN TEMP SERROR IN P-CV-EFF-DAT. SET NEW-CURSOR AT P-CV-EFF-DAT. 480-FLAG-OV-2-FIELD-15. TURN TEMP SERROR IN P-MCV-EFF-DAT. SET NEW-CURSOR AT P-MCV-EFF-DAT. 480-FLAG-OV-2-FIELD-16. TURN TEMP SERROR IN P-DAT-CHK-TYP. SET NEW-CURSOR AT P-DAT-CHK-TYP. 480-FLAG-OV-2-FIELD-17. TURN TEMP SERROR IN P-TRK1-CV-OFST. SET NEW-CURSOR AT P-TRK1-CV-OFST. 480-FLAG-OV-2-FIELD-18. TURN TEMP SERROR IN P-TRK1-SC-OFST. SET NEW-CURSOR AT P-TRK1-SC-OFST. 480-FLAG-OV-2-FIELD-19. TURN TEMP SERROR IN P-CV-OFST. SET NEW-CURSOR AT P-CV-OFST. 480-FLAG-OV-2-FIELD-20. TURN TEMP SERROR IN P-SC-OFST. SET NEW-CURSOR AT P-SC-OFST. 480-FLAG-OV-2-FIELD-21. TURN TEMP SERROR IN P-MCV-BAD-DISP. SET NEW-CURSOR AT P-MCV-BAD-DISP. 480-FLAG-OV-2-FIELD-22. TURN TEMP SERROR IN P-CV-BAD-DISP(I). SET NEW-CURSOR AT P-CV-BAD-DISP(I). 480-ERR-FLAG-OV-4. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-4-FIELD-1, 480-FLAG-OV-4-FIELD-2, 480-FLAG-OV-4-FIELD-3, 480-FLAG-OV-4-FIELD-4, 480-FLAG-OV-DUMMY, 480-FLAG-OV-4-FIELD-6, 480-FLAG-OV-DUMMY, 480-FLAG-OV-4-FIELD-8, 480-FLAG-OV-4-FIELD-9, 480-FLAG-OV-4-FIELD-10, 480-FLAG-OV-4-FIELD-11, 480-FLAG-OV-4-FIELD-12, DEPENDING ON K. 480-FLAG-OV-4-FIELD-1. TURN TEMP SERROR IN P-TTL-ATM-WDLLMT. SET NEW-CURSOR AT P-TTL-ATM-WDLLMT. 480-FLAG-OV-4-FIELD-2. TURN TEMP SERROR IN P-OFFL-ATM-WDLLMT. SET NEW-CURSOR AT P-OFFL-ATM-WDLLMT. 480-FLAG-OV-4-FIELD-3. TURN TEMP SERROR IN P-TTL-CCA-ATM-LMT. SET NEW-CURSOR AT P-TTL-CCA-ATM-LMT. 480-FLAG-OV-4-FIELD-4. TURN TEMP SERROR IN P-OFFL-CCA-ATM-LMT. SET NEW-CURSOR AT P-OFFL-CCA-ATM-LMT. 480-FLAG-OV-4-FIELD-6. TURN TEMP SERROR IN P-STD-CCA-INCR. SET NEW-CURSOR AT P-STD-CCA-INCR. 480-FLAG-OV-4-FIELD-8. TURN TEMP SERROR IN P-ATM-ISS-TXN-PRFL. SET NEW-CURSOR AT P-ATM-ISS-TXN-PRFL. 480-FLAG-OV-4-FIELD-9. TURN TEMP SERROR IN P-DEP-CR-PERCENT. SET NEW-CURSOR AT P-DEP-CR-PERCENT. 480-FLAG-OV-4-FIELD-10. TURN TEMP SERROR IN P-NUM-DEP-CR-LMT. SET NEW-CURSOR AT P-NUM-DEP-CR-LMT. 480-FLAG-OV-4-FIELD-11. TURN TEMP SERROR IN P-CR-PER-DEP-LMT. SET NEW-CURSOR AT P-CR-PER-DEP-LMT. 480-FLAG-OV-4-FIELD-12. TURN TEMP SERROR IN P-DEP-CR-LMT. SET NEW-CURSOR AT P-DEP-CR-LMT. 480-ERR-FLAG-OV-5. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-5-FIELD-1, 480-FLAG-OV-5-FIELD-2, 480-FLAG-OV-5-FIELD-3, 480-FLAG-OV-5-FIELD-4, 480-FLAG-OV-5-FIELD-5, 480-FLAG-OV-5-FIELD-6, 480-FLAG-OV-5-FIELD-7, 480-FLAG-OV-5-FIELD-8, 480-FLAG-OV-5-FIELD-9, DEPENDING ON K. 480-FLAG-OV-5-FIELD-1. TURN TEMP SERROR IN P-NCD-TTL-WDL-LMT. SET NEW-CURSOR AT P-NCD-TTL-WDL-LMT. 480-FLAG-OV-5-FIELD-2. TURN TEMP SERROR IN P-NCD-OFFL-WDL-LMT. SET NEW-CURSOR AT P-NCD-OFFL-WDL-LMT. 480-FLAG-OV-5-FIELD-3. TURN TEMP SERROR IN P-NCD-TTL-CCA-LMT. SET NEW-CURSOR AT P-NCD-TTL-CCA-LMT. 480-FLAG-OV-5-FIELD-4. TURN TEMP SERROR IN P-NCD-OFFL-CCA-LMT. SET NEW-CURSOR AT P-NCD-OFFL-CCA-LMT. 480-FLAG-OV-5-FIELD-5. TURN TEMP SERROR IN P-NCD-CONTENT-CDE(I). SET NEW-CURSOR AT P-NCD-CONTENT-CDE(I). 480-FLAG-OV-5-FIELD-6. TURN TEMP SERROR IN P-NCD-CONTENT-TTL-WDL-LMT(I). SET NEW-CURSOR AT P-NCD-CONTENT-TTL-WDL-LMT(I). 480-FLAG-OV-5-FIELD-7. TURN TEMP SERROR IN P-NCD-CONTENT-OFFL-WDL-LMT(I). SET NEW-CURSOR AT P-NCD-CONTENT-OFFL-WDL-LMT(I). 480-FLAG-OV-5-FIELD-8. TURN TEMP SERROR IN P-NCD-CONTENT-TTL-CCA-LMT(I). SET NEW-CURSOR AT P-NCD-CONTENT-TTL-CCA-LMT(I). 480-FLAG-OV-5-FIELD-9. TURN TEMP SERROR IN P-NCD-CONTENT-OFFL-CCA-LMT(I). SET NEW-CURSOR AT P-NCD-CONTENT-OFFL-CCA-LMT(I). 480-ERR-FLAG-OV-6. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-6-FIELD-1, 480-FLAG-OV-6-FIELD-2, 480-FLAG-OV-6-FIELD-3, 480-FLAG-OV-6-FIELD-4, 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-6, 480-FLAG-OV-6-FIELD-7, 480-FLAG-OV-6-FIELD-8, 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-10, 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-12, 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-14, DEPENDING ON K. 480-FLAG-OV-6-FIELD-1. TURN TEMP SERROR IN P-POS-TTL-WDLLMT. SET NEW-CURSOR AT P-POS-TTL-WDLLMT. 480-FLAG-OV-6-FIELD-2. TURN TEMP SERROR IN P-POS-OFFL-WDLLMT. SET NEW-CURSOR AT P-POS-OFFL-WDLLMT. 480-FLAG-OV-6-FIELD-3. TURN TEMP SERROR IN P-TTL-POS-CCALMT. SET NEW-CURSOR AT P-TTL-POS-CCALMT. 480-FLAG-OV-6-FIELD-4. TURN TEMP SERROR IN P-OFFL-POS-CCALMT. SET NEW-CURSOR AT P-OFFL-POS-CCALMT. 480-FLAG-OV-6-FIELD-6. TURN TEMP SERROR IN P-OFFL-POS-PURLMT. SET NEW-CURSOR AT P-OFFL-POS-PURLMT. 480-FLAG-OV-6-FIELD-7. TURN TEMP SERROR IN P-TTL-CR-PER-RFND. SET NEW-CURSOR AT P-TTL-CR-PER-RFND. 480-FLAG-OV-6-FIELD-8. TURN TEMP SERROR IN P-OFFL-CR-PER-RFND. SET NEW-CURSOR AT P-OFFL-CR-PER-RFND. 480-FLAG-OV-6-FIELD-10. TURN TEMP SERROR IN P-OFFL-RFND-CR-LMT. SET NEW-CURSOR AT P-OFFL-RFND-CR-LMT. 480-FLAG-OV-6-FIELD-12. TURN TEMP SERROR IN P-POS-STD-CCA-INCR. SET NEW-CURSOR AT P-POS-STD-CCA-INCR. 480-FLAG-OV-6-FIELD-14. TURN TEMP SERROR IN P-POS-ISS-TXN-PRFL. SET NEW-CURSOR AT P-POS-ISS-TXN-PRFL. 480-ERR-FLAG-OV-7. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-7-FIELD-2, 480-FLAG-OV-7-FIELD-3, 480-FLAG-OV-7-FIELD-4, 480-FLAG-OV-7-FIELD-5, 480-FLAG-OV-7-FIELD-6, 480-FLAG-OV-7-FIELD-7, 480-FLAG-OV-7-FIELD-8, 480-FLAG-OV-7-FIELD-9, 480-FLAG-OV-7-FIELD-10, 480-FLAG-OV-7-FIELD-11, DEPENDING ON K. 480-FLAG-OV-7-FIELD-2. TURN TEMP SERROR IN P-MAX-PRE-AUTH-HLDS. SET NEW-CURSOR AT P-MAX-PRE-AUTH-HLDS. 480-FLAG-OV-7-FIELD-3. TURN TEMP SERROR IN P-CHRGBACK-UPDATE. SET NEW-CURSOR AT P-CHRGBACK-UPDATE. 480-FLAG-OV-7-FIELD-4. TURN TEMP SERROR IN P-RPRSNT-UPDATE. SET NEW-CURSOR AT P-RPRSNT-UPDATE. 480-FLAG-OV-7-FIELD-5. TURN TEMP SERROR IN P-COMBO-DFLT. SET NEW-CURSOR AT P-COMBO-DFLT. 480-FLAG-OV-7-FIELD-6. TURN TEMP SERROR IN P-DFLT-ACCT(I). SET NEW-CURSOR AT P-DFLT-ACCT(I). 480-FLAG-OV-7-FIELD-7. TURN TEMP SERROR IN P-ISS. SET NEW-CURSOR AT P-ISS. 480-FLAG-OV-7-FIELD-8. TURN TEMP SERROR IN X-ISS-DESCR. SET NEW-CURSOR AT X-ISS-DESCR. 480-FLAG-OV-7-FIELD-9. TURN TEMP SERROR IN P-PIN-REQ. SET NEW-CURSOR AT P-PIN-REQ. 480-FLAG-OV-7-FIELD-10. TURN TEMP SERROR IN P-ADDR-VRFY-ALGO. SET NEW-CURSOR AT P-ADDR-VRFY-ALGO. 480-FLAG-OV-7-FIELD-11. TURN TEMP SERROR IN P-ADDR-VRFY. SET NEW-CURSOR AT P-ADDR-VRFY. 480-ERR-FLAG-OV-10. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-10-FIELD-6, 480-FLAG-OV-10-FIELD-7, 480-FLAG-OV-DUMMY, 480-FLAG-OV-10-FIELD-9, DEPENDING ON K. 480-FLAG-OV-10-FIELD-6. TURN TEMP SERROR IN P-SV-CRD-EXP-DAT. SET NEW-CURSOR AT P-SV-CRD-EXP-DAT. 480-FLAG-OV-10-FIELD-7. TURN TEMP SERROR IN P-SV-CRD-DURATION. SET NEW-CURSOR AT P-SV-CRD-DURATION. 480-FLAG-OV-10-FIELD-9. TURN TEMP SERROR IN P-SV-CAF-TPLT-LGTH. SET NEW-CURSOR AT P-SV-CAF-TPLT-LGTH. 480-ERR-FLAG-OV-11. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-11-FIELD-1, 480-FLAG-OV-11-FIELD-2, 480-FLAG-OV-11-FIELD-3, 480-FLAG-OV-11-FIELD-4, 480-FLAG-OV-11-FIELD-5, 480-FLAG-OV-11-FIELD-6, 480-FLAG-OV-11-FIELD-7, 480-FLAG-OV-11-FIELD-8, 480-FLAG-OV-11-FIELD-9, 480-FLAG-OV-11-FIELD-10, 480-FLAG-OV-11-FIELD-11, 480-FLAG-OV-11-FIELD-12, 480-FLAG-OV-11-FIELD-13, 480-FLAG-OV-11-FIELD-14, 480-FLAG-OV-11-FIELD-15, 480-FLAG-OV-11-FIELD-16, 480-FLAG-OV-11-FIELD-17, DEPENDING ON K. 480-FLAG-OV-11-FIELD-1. TURN TEMP SERROR IN P-EMV-CHK. SET NEW-CURSOR AT P-EMV-CHK. 480-FLAG-OV-11-FIELD-2. TURN TEMP SERROR IN P-KEYI-GRP. SET NEW-CURSOR AT P-KEYI-GRP. 480-FLAG-OV-11-FIELD-3. TURN TEMP SERROR IN P-CAM-CHK-TYP. SET NEW-CURSOR AT P-CAM-CHK-TYP. 480-FLAG-OV-11-FIELD-4. TURN TEMP SERROR IN P-CHECK-HOST-ON. SET NEW-CURSOR AT P-CHECK-HOST-ON. 480-FLAG-OV-11-FIELD-5. TURN TEMP SERROR IN P-CHECK-FALLBK-ON. SET NEW-CURSOR AT P-CHECK-FALLBK-ON. 480-FLAG-OV-11-FIELD-6. TURN TEMP SERROR IN P-CHECK-TVR-CVR. SET NEW-CURSOR AT P-CHECK-TVR-CVR. 480-FLAG-OV-11-FIELD-7. TURN TEMP SERROR IN P-CHECK-HOST-ROLC. SET NEW-CURSOR AT P-CHECK-HOST-ROLC. 480-FLAG-OV-11-FIELD-8. TURN TEMP SERROR IN P-BAD-CAM-ACTN-1. SET NEW-CURSOR AT P-BAD-CAM-ACTN-1. 480-FLAG-OV-11-FIELD-9. TURN TEMP SERROR IN P-BAD-CAM-ACTN-2. SET NEW-CURSOR AT P-BAD-CAM-ACTN-2. 480-FLAG-OV-11-FIELD-10. TURN TEMP SERROR IN P-ATC-CHK. SET NEW-CURSOR AT P-ATC-CHK. 480-FLAG-OV-11-FIELD-11. TURN TEMP SERROR IN P-FORCE-ONL-FALLBACK-CHK. SET NEW-CURSOR AT P-FORCE-ONL-FALLBACK-CHK. 480-FLAG-OV-11-FIELD-12. TURN TEMP SERROR IN P-FALLBACK-ACTN-ATM. SET NEW-CURSOR AT P-FALLBACK-ACTN-ATM. 480-FLAG-OV-11-FIELD-13. TURN TEMP SERROR IN P-FALLBACK-ACTN-POS. SET NEW-CURSOR AT P-FALLBACK-ACTN-POS. 480-FLAG-OV-11-FIELD-14. TURN TEMP SERROR IN P-STATUS-CHECK-ACT-INDEX. SET NEW-CURSOR AT P-STATUS-CHECK-ACT-INDEX. 480-FLAG-OV-11-FIELD-15. TURN TEMP SERROR IN P-EMV-ISS-APPL-DATA. SET NEW-CURSOR AT P-EMV-ISS-APPL-DATA. 480-FLAG-OV-11-FIELD-16. TURN TEMP SERROR IN P-EMV-PREFIX-ROUTING. SET NEW-CURSOR AT P-EMV-PREFIX-ROUTING. 480-FLAG-OV-11-FIELD-17. TURN TEMP SERROR IN P-EMV-ISS. SET NEW-CURSOR AT P-EMV-ISS. 480-ERR-FLAG-OV-14. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-14-FIELD-1, 480-FLAG-OV-14-FIELD-2, 480-FLAG-OV-14-FIELD-3, 480-FLAG-OV-14-FIELD-4, 480-FLAG-OV-14-FIELD-5, 480-FLAG-OV-14-FIELD-6, 480-FLAG-OV-14-FIELD-7, DEPENDING ON K. 480-FLAG-OV-14-FIELD-1. TURN TEMP SERROR IN C-MIN-AMT. SET NEW-CURSOR AT C-MIN-AMT. 480-FLAG-OV-14-FIELD-2. TURN TEMP SERROR IN C-TTL-CHK-LMT. SET NEW-CURSOR AT C-TTL-CHK-LMT. 480-FLAG-OV-14-FIELD-3. TURN TEMP SERROR IN C-OFFL-CHK-LMT. SET NEW-CURSOR AT C-OFFL-CHK-LMT. 480-FLAG-OV-14-FIELD-4. TURN TEMP SERROR IN C-TTL-CSF-LMT. SET NEW-CURSOR AT C-TTL-CSF-LMT. 480-FLAG-OV-14-FIELD-5. TURN TEMP SERROR IN C-OFFL-CSF-LMT. SET NEW-CURSOR AT C-OFFL-CSF-LMT. 480-FLAG-OV-14-FIELD-6. TURN TEMP SERROR IN C-CHK-BASE-FLG. SET NEW-CURSOR AT C-CHK-BASE-FLG. 480-FLAG-OV-14-FIELD-7. TURN TEMP SERROR IN C-CSF-CHK-BASE-FLG. SET NEW-CURSOR AT C-CSF-CHK-BASE-FLG. 480-ERR-FLAG-OV-20. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-20-FIELD-1, 480-FLAG-OV-20-FIELD-2, 480-FLAG-OV-20-FIELD-3, 480-FLAG-OV-20-FIELD-4, 480-FLAG-OV-20-FIELD-5, 480-FLAG-OV-20-FIELD-6, 480-FLAG-OV-20-FIELD-7, 480-FLAG-OV-20-FIELD-8, 480-FLAG-OV-20-FIELD-9, 480-FLAG-OV-20-FIELD-10, 480-FLAG-OV-20-FIELD-11, 480-FLAG-OV-20-FIELD-12, 480-FLAG-OV-20-FIELD-13, 480-FLAG-OV-20-FIELD-14, DEPENDING ON K. 480-FLAG-OV-20-FIELD-1. TURN TEMP SERROR IN C-VENDOR-TYPE. SET NEW-CURSOR AT C-VENDOR-TYPE. 480-FLAG-OV-20-FIELD-2. TURN TEMP SERROR IN C-STOCK-TYPE. SET NEW-CURSOR AT C-STOCK-TYPE. 480-FLAG-OV-20-FIELD-3. TURN TEMP SERROR IN C-LENGTH-OF-ISSUE. SET NEW-CURSOR AT C-LENGTH-OF-ISSUE. 480-FLAG-OV-20-FIELD-4. TURN TEMP SERROR IN C-REISSUE-CYCLE. SET NEW-CURSOR AT C-REISSUE-CYCLE. 480-FLAG-OV-20-FIELD-5. TURN TEMP SERROR IN C-CHECK-DIGIT-ALGO. SET NEW-CURSOR AT C-CHECK-DIGIT-ALGO. 480-FLAG-OV-20-FIELD-6. TURN TEMP SERROR IN C-PRODUCTION-CYCLE. SET NEW-CURSOR AT C-PRODUCTION-CYCLE. 480-FLAG-OV-20-FIELD-7. TURN TEMP SERROR IN C-PIN-LENGTH. SET NEW-CURSOR AT C-PIN-LENGTH. 480-FLAG-OV-20-FIELD-8. TURN TEMP SERROR IN C-EXPIRATION-CYCLE. SET NEW-CURSOR AT C-EXPIRATION-CYCLE. 480-FLAG-OV-20-FIELD-9. TURN TEMP SERROR IN C-PIN-GEN-TYP. SET NEW-CURSOR AT C-PIN-GEN-TYP. 480-FLAG-OV-20-FIELD-10. TURN TEMP SERROR IN C-PIN-MAILER-CONTROL1. SET NEW-CURSOR AT C-PIN-MAILER-CONTROL1. 480-FLAG-OV-20-FIELD-11. TURN TEMP SERROR IN C-CARD-CARRIER-CONTROL1. SET NEW-CURSOR AT C-CARD-CARRIER-CONTROL1. 480-FLAG-OV-20-FIELD-12. TURN TEMP SERROR IN C-LAST-ACCT-NO. SET NEW-CURSOR AT C-LAST-ACCT-NO. 480-FLAG-OV-20-FIELD-13. TURN TEMP SERROR IN C-CARD-STATUS1. SET NEW-CURSOR AT C-CARD-STATUS1. 480-FLAG-OV-20-FIELD-14. TURN TEMP SERROR IN C-TAPE-LABEL-TYPE1. SET NEW-CURSOR AT C-TAPE-LABEL-TYPE1. 480-ERR-FLAG-OV-21. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-21-FIELD-1, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-21-FIELD-6, DEPENDING ON K. 480-FLAG-OV-21-FIELD-1. TURN TEMP SERROR IN C-EMB-FMT-TYPE. SET NEW-CURSOR AT C-EMB-FMT-TYPE. 480-FLAG-OV-21-FIELD-6. TURN TEMP SERROR IN C-ENC-FMT-TYPE. SET NEW-CURSOR AT C-ENC-FMT-TYPE. 480-ERR-FLAG-OV-22. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-22-FIELD-1, 480-FLAG-OV-22-FIELD-2, 480-FLAG-OV-22-FIELD-3, 480-FLAG-OV-22-FIELD-4, 480-FLAG-OV-22-FIELD-5, 480-FLAG-OV-22-FIELD-6, 480-FLAG-OV-22-FIELD-7, 480-FLAG-OV-22-FIELD-8, 480-FLAG-OV-22-FIELD-9, 480-FLAG-OV-22-FIELD-10, 480-FLAG-OV-22-FIELD-11, 480-FLAG-OV-22-FIELD-12, 480-FLAG-OV-22-FIELD-13, 480-FLAG-OV-22-FIELD-14, 480-FLAG-OV-22-FIELD-15, 480-FLAG-OV-22-FIELD-16, DEPENDING ON K. 480-FLAG-OV-22-FIELD-1. TURN TEMP SERROR IN D-FORMAT-CODE. SET NEW-CURSOR AT D-FORMAT-CODE. 480-FLAG-OV-22-FIELD-2. TURN TEMP SERROR IN D-COUNTRY-CODE. SET NEW-CURSOR AT D-COUNTRY-CODE. 480-FLAG-OV-22-FIELD-3. TURN TEMP SERROR IN D-CRNCY-CODE. SET NEW-CURSOR AT D-CRNCY-CODE. 480-FLAG-OV-22-FIELD-4. TURN TEMP SERROR IN D-CRNCY-EXP. SET NEW-CURSOR AT D-CRNCY-EXP. 480-FLAG-OV-22-FIELD-5. TURN TEMP SERROR IN D-CYCLE-LEN. SET NEW-CURSOR AT D-CYCLE-LEN. 480-FLAG-OV-22-FIELD-6. TURN TEMP SERROR IN D-RETRY-CNT. SET NEW-CURSOR AT D-RETRY-CNT. 480-FLAG-OV-22-FIELD-7. TURN TEMP SERROR IN D-ALGO-ID. SET NEW-CURSOR AT D-ALGO-ID. 480-FLAG-OV-22-FIELD-8. TURN TEMP SERROR IN D-INTRCHG-CNTL. SET NEW-CURSOR AT D-INTRCHG-CNTL. 480-FLAG-OV-22-FIELD-9. TURN TEMP SERROR IN D-RELAY-MARKER. SET NEW-CURSOR AT D-RELAY-MARKER. 480-FLAG-OV-22-FIELD-10. TURN TEMP SERROR IN D-ATALLA-OFST. SET NEW-CURSOR AT D-ATALLA-OFST. 480-FLAG-OV-22-FIELD-11. TURN TEMP SERROR IN D-ACCT-LENGTH. SET NEW-CURSOR AT D-ACCT-LENGTH. 480-FLAG-OV-22-FIELD-12. TURN TEMP SERROR IN D-DFLT-PRI-TYP. SET NEW-CURSOR AT D-DFLT-PRI-TYP. 480-FLAG-OV-22-FIELD-13. TURN TEMP SERROR IN D-DFLT-DDA-SAN-TYP. SET NEW-CURSOR AT D-DFLT-DDA-SAN-TYP. 480-FLAG-OV-22-FIELD-14. TURN TEMP SERROR IN D-DFLT-SAV-SAN-TYP. SET NEW-CURSOR AT D-DFLT-SAV-SAN-TYP. 480-FLAG-OV-22-FIELD-15. TURN TEMP SERROR IN D-DFLT-NO-SAN-TYP. SET NEW-CURSOR AT D-DFLT-NO-SAN-TYP. 480-FLAG-OV-22-FIELD-16. TURN TEMP SERROR IN D-IND-FMT-TYPE. SET NEW-CURSOR AT D-IND-FMT-TYPE. 481-CHECK-LAST-ACCT-NO. * C-LAST-ACCT-NO IF WS-SITE-PROD-IND (13) = "1" AND (A-ACCESS (20) = "Y" OR U-ACCESS (20) = "Y") AND (SAVE-FUNC-4-6 = 4 OR SAVE-FUNC-4-6 = 6) MOVE LAST-ACCT-NO OF SEG12 TO WS-LAST-ACCT-PREFIX COMPUTE P = PREFIX-LGTH + 1 PERFORM 490-PREFIX-PAD UNTIL P > 11 IF WS-LAST-ACCT-PREFIX NOT EQUAL WS-PREFIX OR WS-LAST-ACCT-PREFIX EQUAL SPACES OR WS-LAST-ACCT-PREFIX EQUAL ZEROES MOVE SPACES TO WS-LAST-ACCT-PREFIX MOVE SPACES TO LAST-ACCT-NO OF SEG12 MOVE 44 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE SET NEW-CURSOR AT P-PREFIX MOVE "CARD 'LAST ACCOUNT NUMBER' IS REQUIRED ON PAGE - "20" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE PERFORM 495-ACCT-LEN-CHECK. * * ALLOW PAGE FORWARD, PAGE BACK, OR GO TO SCREEN FUNCTIONS TO * FIX EDIT PROBLEM WITH LAST ACCT (PAGE 20): * IF ERR-CDE = 44 IF SAVE-FUNC-KEY = 8 OR 10 OR 11 MOVE "YES" TO VALID-DATA. 481-CHECK-SV-ADD-UPD. * * ALLOW PAGE FORWARD, PAGE BACK, OR GO TO SCREEN FUNCTIONS TO * FIX STORED VALUE EDIT PROBLEM: * IF ERR-CDE = 45 IF SAVE-FUNC-KEY = 8 OR 10 OR 11 MOVE "YES" TO VALID-DATA ELSE MOVE "BAD" TO VALID-DATA MOVE "N" TO FLAG-MOVE. #DELETE 00671 /01168 480-DATA-CHECK #DELETE 01168s00 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s01 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s02 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s03 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s04 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s05 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s06 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s07 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s08 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s09 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0A 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0B 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0C 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0D 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0E 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0F 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0G 481-ATM-ISS-TXN-PRFL-CHECK #DELETE 01168s0H 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0I 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0J 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0K 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0L 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0M 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0N 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0O 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0P 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0Q 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0R 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0S 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0T 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0U 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0V 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0W 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0X 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01168s0Y 481-POS-ISS-TXN-PRFL-CHECK #DELETE 01169 /01169m2U 490-LENGTH-CHECK #DELETE 01229 /01250 497-COMPARE-LENGTHS #ADD 01530h04 570-DISPLAY-OVERLAY-10 TURN PROTECTED IN SC-DATA. DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY OVERLAY OVERLAY-10 AT OVERLAY-AREA. DISPLAY OVERLAY-10. IF U-ACCESS(10) = "N" AND A-ACCESS(7) = "N" TURN PROTECTED IN OVERLAY-10. #ADD 01538o02 595-CLEAR-DATA LGTH OF SEG23, LGTH OF SEG24. #DELETE 01538m03 595-CLEAR-DATA #ADD 01577e03 595-CLEAR-DATA PERFORM 596-INIT-STORED-VALUE. #DELETE 01577e04/01577h08 595-CLEAR-DATA #DELETE 01584u01 595-CLEAR-DATA #DELETE 01584P05 595-CLEAR-DATA #ADD 01611 595-SCREEN-INIT PERFORM 800-NEXT-VALID-OVERLAY-CPF. 596-INIT-STORED-VALUE. MOVE ZEROES TO WS-SV-MIN-LOAD, WS-SV-MAX-LOAD, WS-SV-MAX-AS-CASH, WS-SV-MAX-AS-CASH-REDEMPTION, WS-SV-MAX-CRD-BAL, WS-SV-CRD-DURATION, MIN-LOAD OF SEG24, MAX-LOAD OF SEG24, MAX-AS-CASH OF SEG24, MAX-AS-CASH-REDEMPTION OF SEG24, MAX-CRD-BAL OF SEG24, CRD-DURATION OF SEG24. MOVE 1 TO CAF-TPLT-LGTH OF SEG24, WS-SV-CAF-TPLT-LGTH. MOVE "0000" TO CRD-EXP-DAT OF SEG24, WS-SV-CRD-EXP-DAT. MOVE SPACES TO WS-SV-RETAILER-ID, RETAILER-ID. 800-PAGE-BACK-CPF. * * THIS PARAGRAPH IS IDENTICAL TO 800-PAGE-BACK OF * FILE-MAINTENANCE-800-4096-EXT OF =BASRC_BACOUTLS, WITH THE * EXCEPTION OF SETTING THE VALID-DATA SWITCH TO "NO" BEFORE * PERFORMING 800-BACK-ONE-OVERLAY. THIS MODIFICATION WAS REQUIRED * AFTER MOVING EDIT CHECK LOGIC TO SVCPFS. * MOVE "NO" TO VALID-DATA. MOVE 0 TO WS-OVERLAY-TEMP. IF INIT-FLAG NOT = 1 PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT ELSE MOVE "NO" TO VALID-DATA PERFORM 800-BACK-ONE-OVERLAY UNTIL VALID-DATA = "YES" PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. 800-NEXT-VALID-OVERLAY-CPF. * * THIS PARAGRAPH IS IDENTICAL TO 800-NEXT-VALID-OVERLAY OF * FILE-MAINTENANCE-800-4096-EXT OF =BASRC_BACOUTLS, WITH THE * EXCEPTION OF SETTING THE VALID-DATA SWITCH TO "NO" BEFORE * PERFORMING 800-NEXT-OVERLAY. THIS MODIFICATION WAS REQUIRED * AFTER MOVING EDIT CHECK LOGIC TO SVCPFS. * MOVE "NO" TO VALID-DATA. MOVE 0 TO WS-OVERLAY-TEMP. IF INIT-FLAG NOT = 1 PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT ELSE MOVE "NO" TO VALID-DATA PERFORM 800-NEXT-OVERLAY UNTIL VALID-DATA = "YES" PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. #DELETE 01612 /01614s03 595-SCREEN-INIT #ENDSCN = BA05339 !*CMP2.11 03/28/02 SVCPFS 6023 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6023 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6023 * ******************************************************************************** #SCN = BA05340 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6023 #NEWVERSION = 6024 #ADD 00017W0F * 28MAR2002 MJD/1573 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Uplifted the BASE24 Stored Value enhancement * from 5.3 to 6.0. Moved edit checks from the * requester (RQCPFS) to the server (SVCPFS) due to * code space limits in the requester. * Dependency: Restore Stored Value related files, modify the * appropriate CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #DELETE 00017W0G #ADD 00225V00 DATA DIVISION 10 REC-IMAGE-REST PIC X(1401). #DELETE 00225V01 DATA DIVISION #ADD 00225U07 DATA DIVISION 05 ERROR-INFO. 07 OVERLAY-NUM PIC 9(2). 07 ERR-CNT PIC 9(2). 05 SCN-TBL OCCURS 45 TIMES. 07 FLD-ID-NUM PIC 9(2). 07 FLD-INDEX-NUM PIC 9(2). 05 WS-PREFIX-IPM PIC X(11). 05 LEFTOVER PIC X(2462). #DELETE 00225V03/00225V04 DATA DIVISION #ADD 00245V00 DATA DIVISION 01 WS-RECORD-HOLD PIC X(1424). #DELETE 00245V01 DATA DIVISION #ADD 00292O05 DATA DIVISION * Added for SV (Stored Value) support of screen overlay 10. 05 SV-SEG-LGTH PIC S9(4) COMP VALUE 96. #ADD 00370 DATA DIVISION 05 M PIC S9(4) COMP VALUE ZERO. #ADD 00399K02 DATA DIVISION / * FIELDS REQUIRED FOR EDIT CHECKS 01 VALID-DATA PIC X(4). 01 FLAG-MOVE PIC X VALUE " ". 88 MOVE-MESSAGE VALUE "Y". 88 DONT-MOVE-MESSAGE VALUE "N". 01 SPACE-SWITCH PIC X VALUE SPACE. 01 WS-I PIC 99. 01 CRD-PROF-REDF. 05 CRD-PROF-R PIC X OCCURS 2 TIMES. 01 DATA-CHECK PIC 99 VALUE 21. 01 WS-CV-EFF-DAT-CHK. 05 YY PIC 9(2). 05 MM PIC 9(2). 88 VALID-MM VALUE 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12. 05 CV-NUMERIC-MONTH REDEFINES MM. 10 MONTH-BYTE1 PIC 9. 10 MONTH-BYTE2 PIC 9. 01 WS-PIN-CHK-TYP-ERR-MSG. 05 FILLER PIC X(46) VALUE "PIN CHK TYP MUST BE 01-05 IF PIN VERIFICATION ". 05 FILLER PIC X(22) VALUE "KEYA GRP IS NOT BLANK ". 01 MCV-YEAR PIC S9(04) COMP. 01 MCV-MONTH PIC S9(04) COMP. 01 WS-CHAR-FLAG PIC X VALUE "Y". COPY NCD-CONTENTS-TABLE OF "=BASRC_COBNAMES". 01 NCD-MISC. 05 NCD-DESC-MATCH-FLG PIC 99 VALUE 0. 88 NCD-NO-MATCH VALUE 0. 88 NCD-MATCH-FOUND VALUE 1. 05 WS-NCD-CONTENT-ERR. 10 FILLER PIC X(13) VALUE "CONTENT CODE ". 10 NCD-J-VALUE PIC 99 VALUE 0. 10 FILLER PIC X(14) VALUE " MUST BE 02 - ". 10 WS-NCD-CONTENT-CDE-MAX PIC 99 VALUE 0. 01 VALID-ISS PIC XX. 88 VALID-ISS-NUM VALUE "00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10" THRU "99". 01 WS-VERIFY-DATE. 05 VERIFY-YR PIC 99. 88 VALID-YR VALUE 00 THRU 99. 05 VERIFY-MTH PIC 99. 88 VALID-MTH VALUE 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12. 01 BAD-FLAG PIC X VALUE " ". 88 FOUND-BAD VALUE "Y". 01 WS-LEN-CHECK32 PIC X(32). 01 WS-RD-LEN32 REDEFINES WS-LEN-CHECK32. 05 LEN-POS32 PIC X OCCURS 32 TIMES. 01 FIRST-CHAR PIC X. 01 NO-MORE-CHARS PIC X. 01 WS-EMV-PREFIX-RTE PIC X. 88 VALID-PREFIX-RTE VALUE "0" THRU "9", "A", " ". 01 WS-EMV-ACTION-INDEX PIC X. 88 VALID-ACTION-INDEX VALUE "1", "2", "3", "4". 01 WS-EMV-ISS-APPL-DATA PIC X. 88 VALID-ISS-APPL-DATA VALUE "0" THRU "2". 01 WS-SEG12. 05 WS-VENDOR-TYPE PIC X(01) VALUE SPACES. 88 VALID-VENDOR-TYPE VALUE "A" THRU "Z". 05 WS-STOCK-TYPE PIC X(01) VALUE SPACES. 88 VALID-STOCK-TYPE VALUE "A" THRU "Z". 05 WS-PIN-MAILER-CONTROL PIC X(01) VALUE SPACES. 88 VALID-PIN-MAILER-CONTROL VALUE "0" THRU "2". 05 WS-PIN-GEN-TYP-CONTROL PIC X(9). 05 WS-CARD-CARRIER-CONTROL PIC X(01) VALUE SPACES. 88 VALID-CARD-CARRIER-CONTROL VALUE "0" THRU "2". 05 WS-CARD-STATUS PIC X(02) VALUE SPACES. 88 VALID-CARD-STATUS VALUE "00" THRU "07". 05 WS-TAPE-LABEL-TYPE PIC X(03) VALUE SPACES. 88 VALID-TAPE-LABEL-TYPE VALUE "BUR", "IBM", "DOS", "NON". 05 WS-REMAINDER PIC S9(04) COMP. 05 WS-TEMP PIC S9(04) COMP. 05 WS-EMB-FMT-TYPE PIC X(02) VALUE SPACES. 88 VALID-EMB-FMT-TYPE VALUE "00" THRU "03". 05 WS-ENC-FMT-TYPE PIC X(02) VALUE SPACES. 88 VALID-ENC-FMT-TYPE VALUE "00" THRU "01". 05 WS-FORMAT-CODE PIC X(2). 88 VALID-FORMAT-CODE VALUE "00" THRU "01". 05 WS-IND-FMT-TYPE PIC X(02) VALUE "00". 88 VALID-IND-FMT-TYPE VALUE "00" THRU "02". 01 WS-LAST-ACCT-PREFIX. 05 WS-LAST-ACCT-PRE-R PIC X OCCURS 11 TIMES. 01 WS-LAST-ACCT PIC X(28). 01 WS-LAST-ACCT-R REDEFINES WS-LAST-ACCT. 05 WS-LAST-ACCT-NUM-CHAR PIC X OCCURS 28 TIMES. 01 NUM-FLAG PIC X VALUE SPACES. 88 VALID-NUM VALUE "0" THRU "9". 01 WS-ATM-ISS-TXN-PRFL. 05 WS-ATM-ISS-TXN-PRFL-CHAR PIC X OCCURS 16 TIMES. 01 WS-POS-ISS-TXN-PRFL. 05 WS-POS-ISS-TXN-PRFL-CHAR PIC X OCCURS 16 TIMES. COPY SV-VALID-CARD-TYPES OF "=BASRC_COBNAMES". * END FIELDS REQUIRED FOR EDIT CHECKS #ADD 00442 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = DATA-CHECK PERFORM 480-DATA-CHECK ELSE #ADD 00620U0Z 310-UPDATE-REC MOVE SV-SEG-LGTH TO LGTH OF SEG24 OF CPF MOVE SEG-SV-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG24 OF CPF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG24 OF CPF #ADD 00749 500-ADD-RCD 480-DATA-CHECK. MOVE REC-IMAGE-CPF TO CPF. PERFORM 480-DATA-CHECK-SCREEN. MOVE CPF TO REC-IMAGE-CPF. PERFORM 90-SERVER-REPLY. 480-DATA-CHECK-SCREEN. MOVE "Y" TO FLAG-MOVE. IF OVERLAY-NUM = 1 PERFORM 480-DATA-CHECK-SCREEN1 ELSE IF OVERLAY-NUM = 2 PERFORM 480-DATA-CHECK-SCREEN2 ELSE IF OVERLAY-NUM = 4 PERFORM 480-DATA-CHECK-SCREEN4 ELSE IF OVERLAY-NUM = 5 PERFORM 480-DATA-CHECK-SCREEN5 ELSE IF OVERLAY-NUM = 6 PERFORM 480-DATA-CHECK-SCREEN6 ELSE IF OVERLAY-NUM = 7 PERFORM 480-DATA-CHECK-SCREEN7 ELSE IF OVERLAY-NUM = 10 PERFORM 480-DATA-CHECK-SCREEN10 ELSE IF OVERLAY-NUM = 11 PERFORM 480-DATA-CHECK-SCREEN11 ELSE IF OVERLAY-NUM = 14 PERFORM 480-DATA-CHECK-SCREEN14 ELSE IF OVERLAY-NUM = 20 PERFORM 480-DATA-CHECK-SCREEN20 ELSE IF OVERLAY-NUM = 21 PERFORM 480-DATA-CHECK-SCREEN21 ELSE IF OVERLAY-NUM = 22 PERFORM 480-DATA-CHECK-SCREEN22. * THIS STORED VALUE EDIT EXECUTED FROM ANY SCREEN: IF ERR-CNT > 0 NEXT SENTENCE ELSE MOVE CRD-TYP OF SEG0 OF CPF TO VALID-SV-CARD-TYPE IF SV-CARD-TYPE-RELOAD OR SV-CARD-TYPE-NON-RELOAD IF EXP-CHK-IND OF SEG0 OF CPF NOT = 0 AND CRD-EXP-DAT OF SEG24 OF CPF = ZEROES AND CRD-DURATION OF SEG24 OF CPF = ZEROES * ERR-CDE 45 IS CHECKED IN RQCPFS: MOVE 45 TO ERR-CDE OF MSG-ERR-EXT IF MOVE-MESSAGE MOVE "SV EXP DATE/DURATION REQUIRED IF EXP CHECK TYPE - " <> 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN1. IF WS-PREFIX-IPM = SPACES ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID PREFIX - SPACES NOT ALLOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE PERFORM 490-LENGTH-CHECK. IF PAN-LGTH OF SEG0 OF CPF < 5 OR PAN-LGTH OF CPF > 19 ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PAN LENGTH RANGE IS 5-19" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. PERFORM 497-COMPARE-LENGTHS. IF FIID OF SEG0 OF CPF = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES ARE NOT ALLOWED FOR FIID" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-TYP OF SEG0 OF CPF = SPACES ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID CARD TYPE (SPACES)" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CARD-PROFILE OF SEG0 OF CPF NOT = SPACES IF CARD-PROFILE OF SEG0 OF CPF NOT = "**" MOVE CARD-PROFILE OF SEG0 OF CPF TO CRD-PROF-REDF IF CRD-PROF-R(1) = SPACE ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "LEADING SPACES NOT ALLOWED IN CARD PROFILE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ( CRD-PROF-R(1) NOT ALPHABETIC AND CRD-PROF-R(1) NOT NUMERIC ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD PROFILE MUST BE ALPHANUMERIC OR '**' " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CARD-PROFILE OF SEG0 OF CPF NOT = "**" AND CARD-PROFILE OF SEG0 OF CPF NOT = SPACES MOVE CARD-PROFILE OF SEG0 OF CPF TO CRD-PROF-REDF IF ( CRD-PROF-R(2) NOT ALPHABETIC AND CRD-PROF-R(2) NOT NUMERIC AND CRD-PROF-R(2) NOT = SPACE ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD PROFILE MUST BE ALPHANUMERIC OR '**' " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( MBR-LGTH OF SEG0 OF CPF NOT = 0 AND MBR-LGTH OF SEG0 OF CPF NOT = 1 AND MBR-LGTH OF SEG0 OF CPF NOT = 2 AND MBR-LGTH OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MEMBER LENGTH MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( TRK-PREF OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK PREFERENCE MUST BE '0' OR '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PAN-ACCESS-TYP OF SEG0 OF CPF = "1" IF TRK-PREF OF SEG0 OF CPF = 1 AND TRK1-MBR-OFST OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE " MBR # OFFSET CANNOT BE 0 WITH A PAN ACCESS - "TYPE OF 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PAN-ACCESS-TYP OF SEG0 OF CPF = "1" IF TRK-PREF OF SEG0 OF CPF = 0 AND MBR-OFST OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE " MBR # OFFSET CANNOT BE 0 WITH A PAN ACCESS - "TYPE OF 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EXP-CHK-IND OF SEG0 OF CPF = "1" IF TRK-PREF OF SEG0 OF CPF = 1 AND TRK1-DAT-OFST OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXP DATE OFFSET CANNOT BE '0' WITH AN EXP CHECK - " TYPE OF '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EXP-CHK-IND OF SEG0 OF CPF = "1" IF TRK-PREF OF SEG0 OF CPF = 0 AND DAT-OFST OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXP DATE OFFSET CANNOT BE '0' WITH AN EXP CHECK - " TYPE OF '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK1-MIN-LGTH OF SEG0 OF CPF > 31 ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 1 MIN LENGTH CAN RANGE FROM 0 - 31" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK1-MAX-LGTH OF SEG0 OF CPF > 68 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 1 MAX LENGTH CAN RANGE FROM 0 - 68" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK1-MAX-LGTH OF SEG0 OF CPF < TRK1-MIN-LGTH OF SEG0 OF CPF AND TRK1-MAX-LGTH OF SEG0 OF CPF > 0 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 1 MAX LENGTH MUST BE GREATER OR EQUAL TO - "TRACK 1 MIN LENGTH OR 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK1-MAX-LGTH OF SEG0 OF CPF NOT = ZERO AND TRK1-MAX-LGTH OF SEG0 OF CPF < PAN-LGTH OF SEG0 OF CPF AND TRK-PREF OF SEG0 OF CPF = 1 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 1 MAX LENGTH CAN NOT BE LESS THEN THE PAN - " LENGTH" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK2-MIN-LGTH OF SEG0 OF CPF > 40 ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 2 MIN LENGTH CAN RANGE FROM 0 - 40" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK2-MAX-LGTH OF SEG0 OF CPF > 40 ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 2 MAX LENGTH CAN RANGE FROM 0 - 40" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK2-MAX-LGTH OF SEG0 OF CPF < TRK2-MIN-LGTH OF SEG0 OF CPF AND TRK2-MAX-LGTH OF SEG0 OF CPF > 0 ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 2 MAX LENGTH MUST BE GREATER OR EQUAL TO - "TRACK 2 MIN LENGTH OR 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TRK2-MAX-LGTH OF SEG0 OF CPF NOT = ZERO AND TRK2-MAX-LGTH OF SEG0 OF CPF < PAN-LGTH OF SEG0 OF CPF AND TRK-PREF OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRACK 2 MAX LENGTH CAN NOT BE LESS THEN THE PAN - " LENGTH" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( BAD-TRK-DISP OF SEG0 OF CPF NOT = "0" AND BAD-TRK-DISP OF SEG0 OF CPF NOT = "1" AND BAD-TRK-DISP OF SEG0 OF CPF NOT = "2" AND BAD-TRK-DISP OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD TRK LEN MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PAN-ACCESS-TYP OF SEG0 OF CPF NOT = "0" AND PAN-ACCESS-TYP OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PAN ACCESS TYPE MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PREFIX-RTE OF SEG0 OF CPF NOT = "A" AND PREFIX-RTE OF SEG0 OF CPF NOT = "0" AND PREFIX-RTE OF SEG0 OF CPF NOT = "1" AND PREFIX-RTE OF SEG0 OF CPF NOT = "2" AND PREFIX-RTE OF SEG0 OF CPF NOT = "3" AND PREFIX-RTE OF SEG0 OF CPF NOT = "4" AND PREFIX-RTE OF SEG0 OF CPF NOT = "5" AND PREFIX-RTE OF SEG0 OF CPF NOT = "6" AND PREFIX-RTE OF SEG0 OF CPF NOT = "7" AND PREFIX-RTE OF SEG0 OF CPF NOT = "8" AND PREFIX-RTE OF SEG0 OF CPF NOT = "9" ) ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PREFIX ROUTING MUST BE '0' THRU '9' OR 'A'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EXP-CHK-IND OF SEG0 OF CPF NOT = "0" AND EXP-CHK-IND OF SEG0 OF CPF NOT = "1" AND EXP-CHK-IND OF SEG0 OF CPF NOT = "2" ) ADD 1 TO ERR-CNT MOVE 23 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXP CHECK TYPE MUST BE 0, 1, OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( MOD10-CHK OF SEG0 OF CPF NOT = "0" AND MOD10-CHK OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 24 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR MOD10-CHECK ARE '0' AND '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF SEG0 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 25 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG0 OF CPF > TTL-WDL-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 26 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED THE TOTAL WI - "THDRAWAL LIMIT " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG0 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 26 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED OFF - "LINE AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG0 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 27 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE - "LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG0 OF CPF > TTL-CCA-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 28 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED THE TOTAL LI - "MIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG0 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 28 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED OF - "FLINE AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-AGGR-LMT OF SEG0 OF CPF > AGGR-LMT OF SEG0 OF CPF IF AGGR-LMT OF SEG0 OF CPF < OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 30 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE AGGREGATE LIMIT MUST NOT EXCEED THE TOTAL LI - "MIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN2. * SCREEN 2 WAS ADDED AS A RESULT OF RELEASE 5.0 IF PV-KEYA-GRP OF SEG0 OF CPF NOT = SPACES AND (PIN-VRFY-TYP OF SEG0 OF CPF NOT = "01" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "02" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "03" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "04" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "05") ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-PIN-CHK-TYP-ERR-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF PV-KEYA-GRP OF SEG0 OF CPF = SPACES AND (PIN-VRFY-TYP OF SEG0 OF CPF NOT = "00" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "99") ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN CHK TYP MUST BE 00 OR 99 IF PIN VERIFICATIO - "N KEYA GRP IS BLANK" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (BAD-PIN-DISP OF SEG0 OF CPF NOT = 0 AND BAD-PIN-DISP OF SEG0 OF CPF NOT = 1) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD PIN ACTION MUST BE '0' OR '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-HLD-SELCT OF SEG0 OF CPF = "Y" AND PIN-OFST-LOC OF SEG0 OF CPF NOT = 2 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARDHOLDER PIN SELECT MUST BE 'N' WHEN POFST/P - "VV LOC IS 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-HLD-SELCT OF SEG0 OF CPF = "Y" AND (PIN-VRFY-TYP OF SEG0 OF CPF NOT = "01" AND PIN-VRFY-TYP OF SEG0 OF CPF NOT = "02" ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARDHOLDER PIN SELECT MUST BE 'N' WHEN PIN CHE - "CK TYPE IS NOT 01 OR 02" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-HLD-SELCT OF SEG0 OF CPF NOT = "Y" AND CRD-HLD-SELCT OF SEG0 OF CPF NOT = "N" ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARDHOLDER PIN SELECT MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PIN-VRFY-TYP OF SEG0 OF CPF = "02" IF (ALGO-NUM-LOC OF SEG0 OF CPF NOT = 0 AND ALGO-NUM-LOC OF SEG0 OF CPF NOT = 1 AND ALGO-NUM-LOC OF SEG0 OF CPF NOT = 2) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ALGO NUMBER LOC MUST BE '0', '1' OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE NEXT SENTENCE ELSE IF ALGO-NUM-LOC OF SEG0 OF CPF NOT = 0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ALGO NUMBER LOC MUST BE '0'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PIN-CHK OF SEG0 OF CPF NOT = "0" AND PIN-CHK OF SEG0 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK IF HOST ONLINE PIN MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PIN-OFST-LOC OF SEG0 OF CPF = 1 IF TRK-PREF = 1 AND TRK1-POFST-OFST = 0 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "POFST/PVV FIELD ON SCREEN 1 CANNOT BE '0' IF - " POFST/PVV LOC IS 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PIN-OFST-LOC OF SEG0 OF CPF = 1 IF TRK-PREF = 0 AND POFST-OFST = 0 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "POFST/PVV FIELD ON SCREEN 1 CANNOT BE '0' IF - " POFST/PVV LOC IS 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (PIN-OFST-LOC OF SEG0 OF CPF NOT = 0 AND PIN-OFST-LOC OF SEG0 OF CPF NOT = 1 AND PIN-OFST-LOC OF SEG0 OF CPF NOT = 2) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "POFST/PVV LOC MUST BE '0', '1' OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (PIN-TRIES-RESET-OPTION OF SEG0 OF CPF NOT = 0 AND PIN-TRIES-RESET-OPTION OF SEG0 OF CPF NOT = 1 AND PIN-TRIES-RESET-OPTION OF SEG0 OF CPF NOT = 2 AND PIN-TRIES-RESET-OPTION OF SEG0 OF CPF NOT = 3 AND PIN-TRIES-RESET-OPTION OF SEG0 OF CPF NOT = 4) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN TRIES RESET OPTION MUST BE '0', '1', '2', - "'3' OR '4'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND CV-CHK-TYP OF SEG0 OF CPF NOT = 1 AND CV-CHK-TYP OF SEG0 OF CPF NOT = 2 AND CV-CHK-TYP OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV CHECK TYPE MUST BE '0', '1', '2', OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK OF SEG0 OF CPF NOT = "0" AND CV-CHK OF SEG0 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK IF HOST ONLINE CV MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 IF CV-EFF-DAT OF SEG0 OF CPF = SPACES ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV DATE IS A REQUIRED FIELD WHEN CHECK TYPE - "IS NOT ZERO." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE CV-EFF-DAT OF SEG0 OF CPF TO WS-CV-EFF-DAT-CHK IF MONTH-BYTE2 = SPACES ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) MOVE "00" TO MM OF WS-CV-EFF-DAT-CHK IF MOVE-MESSAGE MOVE "CV DATE MONTH CAN NOT END IN A SPACE, CV DAT - "E MUST BE IN YYMM FORMAT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF NOT VALID-MM ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV DATE MONTH MUST BE '01' - '12' -- FORM - "AT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND CV-CHK-TYP OF SEG0 OF CPF NOT = 3) IF MANUAL-CV-EFF-DAT OF SEG0 OF CPF = ZEROS ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL CV DATE IS REQUIRED WHEN CHECK TYPE I - "S NOT 0 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE DIVIDE MANUAL-CV-EFF-DAT OF SEG0 OF CPF BY 100 GIVING MCV-YEAR MULTIPLY MCV-YEAR BY 100 GIVING MCV-YEAR SUBTRACT MCV-YEAR FROM MANUAL-CV-EFF-DAT OF SEG0 OF CPF GIVING MCV-MONTH IF MCV-MONTH < 1 OR MCV-MONTH > 12 ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL CV DATE MONTH MUST BE '01' - '12' - "-- FORMAT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (DAT-CHK-TYP OF SEG0 OF CPF NOT = 0 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 1 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 2 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DATA CHECK TYPE MUST BE '0', '1', '2', OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND TRK1-CV-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 1 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CVD OFST CANNOT BE 0 IF CV CHECK TYP IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND TRK1-SC-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 1 ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SRVC CODE OFST CANNOT BE 0 IF CV CHECK TYP IS - "NOT 0." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND CV-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CVD OFST CANNOT BE 0 IF CV CHECK TYP IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND SC-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SRVC CODE OFST CANNOT BE 0 IF CV CHECK TYP IS - "NOT 0." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (MANUAL-CV-BAD-DISP OF SEG0 OF CPF NOT = 0 AND MANUAL-CV-BAD-DISP OF SEG0 OF CPF NOT = 1 AND MANUAL-CV-BAD-DISP OF SEG0 OF CPF NOT = 2 AND MANUAL-CV-BAD-DISP OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CV ACTION MUST BE '0', '1', '2', OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (CV-BAD-DISP OF SEG0 OF CPF(1) NOT = "0" AND CV-BAD-DISP OF SEG0 OF CPF(1) NOT = "1" AND CV-BAD-DISP OF SEG0 OF CPF(1) NOT = "2" AND CV-BAD-DISP OF SEG0 OF CPF(1) NOT = "3" ) ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) MOVE 1 TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CV ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (CV-BAD-DISP OF SEG0 OF CPF(2) NOT = "0" AND CV-BAD-DISP OF SEG0 OF CPF(2) NOT = "1" AND CV-BAD-DISP OF SEG0 OF CPF(2) NOT = "2" AND CV-BAD-DISP OF SEG0 OF CPF(2) NOT = "3" ) ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) MOVE 2 TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CV ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN4. IF TTL-WDL-LMT OF SEG1 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM DAILY WITHDRAWAL CANNOT EXCEED AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF SEG1 OF CPF < OFFL-WDL-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE ATM WITHDRAWAL LIMIT MUST NOT EXCEED THE D - "AILY LIMIT " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG1 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM OFFLINE CANNOT EXCEED AGGREGATE OFFLINE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG1 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CCA DAILY WITHDRAWAL CANNOT EXCEED AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG1 OF CPF > ZERO IF TTL-CCA-LMT OF SEG1 OF CPF < MIN-CCA-AMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM CASH ADVANCE MUST NOT EXCEED TOTAL C - "ASH ADVANCE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG1 OF CPF < OFFL-CCA-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED THE T - "OTAL LIMIT " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG1 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CCA OFFLINE CANNOT EXCEED AGGREGATE OFFLINE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG1 OF CPF > ZERO IF OFFL-CCA-LMT OF SEG1 OF CPF < MIN-CCA-AMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM CASH ADVANCE MUST NOT EXCEED OFFLINE - " CASH ADVANCE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF STD-CCA-INCR OF SEG1 OF CPF > TTL-CCA-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STANDARD CCA INCREMENT MUST NOT EXCEED TOTAL - "CCA LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF STD-CCA-INCR OF SEG1 OF CPF > OFFL-CCA-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STANDARD CCA INCREMENT MUST NOT EXCEED OFFLINE - "CCA LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DEP-CR-PERCENT OF SEG1 OF CPF > 100 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DEPOSIT CREDIT PERCENT MUST BE 0 TO 100 %" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DEP-CR-PERCENT OF SEG1 OF CPF > 0 IF NUM-DEP-CR-LMT OF SEG1 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAXIMUM NUMBER OF DEPOSIT CREDITS REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DEP-CR-PERCENT OF SEG1 OF CPF > 0 IF CR-PER-DEP-LMT OF SEG1 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAXIMUM CREDIT PER DEPOSIT REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DEP-CR-PERCENT OF SEG1 OF CPF > 0 AND DEP-CR-LMT OF SEG1 OF CPF > 0 IF CR-PER-DEP-LMT OF SEG1 OF CPF > DEP-CR-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAX CREDIT PER DEPOSIT MUST NOT EXCEED MAX D - "EPOSIT CREDIT AMOUNT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DEP-CR-PERCENT OF SEG1 OF CPF > 0 IF DEP-CR-LMT OF SEG1 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAXIMUM DEPOSIT CREDIT AMOUNT REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ISS-TXN-PRFL OF SEG1 OF CPF = SPACES NEXT SENTENCE ELSE MOVE "Y" TO WS-CHAR-FLAG MOVE ISS-TXN-PRFL OF SEG1 OF CPF TO WS-ATM-ISS-TXN-PRFL PERFORM 481-ATM-ISS-TXN-PRFL-CHECK VARYING M FROM 1 BY 1 UNTIL M > 16. 480-DATA-CHECK-SCREEN5. * * Added to support NCD screen overlay-5. * Verify CASH-VAL-LMT of NCD segment 23 fields. * IF TTL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF TTL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "NCD WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE - "LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > TTL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD WITHDRAWAL LIMIT MUST NOT EXCEED NC - "D TOTAL WITHDRAWAL LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD WITHDRAWAL LIMIT MUST NOT EXCEED OF - "FLINE AGGREGATE LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF TTL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "NCD CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > TTL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD CREDIT CRD LMT MUST NOT EXCEED NCD - "TOTAL CREDIT CRD LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > ZERO IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD CREDIT CARD LIMIT MUST NOT EXCEED O - "FFLINE AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * * Verify NCD(1) AND NCD(2) OF SEG23 fields. * PERFORM 485-VERIFY-NCD-LMT VARYING I FROM 1 BY 1 UNTIL I > 2. 480-DATA-CHECK-SCREEN6. IF TTL-WDL-LMT OF SEG2 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL CANNOT EXCEED AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF SEG2 OF CPF < OFFL-WDL-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL - "LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG2 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT CANNOT EXCEED OFFLINE - "AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG2 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CASH ADVANCE LIMIT CANNOT EXCEED AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG2 OF CPF > ZERO IF TTL-CCA-LMT OF SEG2 OF CPF < MIN-CCA-AMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM CASH ADVANCE MUST NOT EXCEED TOTAL C - "ASH ADVANCE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG2 OF CPF > TTL-CCA-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CASH ADVANCE CANNOT EXCEED TOTAL CASH A - "DVANCE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG2 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CASH ADVANCE LIMIT CANNOT EXCEED AGGREGATE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG2 OF CPF > ZERO IF OFFL-CCA-LMT OF SEG2 < MIN-CCA-AMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM CASH ADVANCE MUST NOT EXCEED OFFLINE - " CASH ADVANCE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PUR-LMT OF SEG2 OF CPF > TTL-PUR-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PURCHASE LIMIT CANNOT EXCEED TOTAL PURCHASE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CR-PER-RFND-LMT OF SEG2 OF CPF > TTL-RFND-CR-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL PER REFUND LIMIT MUST NOT EXCEED TOTAL RE - "FUND LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CR-PER-RFND-LMT OF SEG2 OF CPF > TTL-CR-PER-RFND-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PER REFUND LIMIT MUST NOT EXCEED TOTAL - "PER REFUND LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CR-PER-RFND-LMT OF SEG2 OF CPF > OFFL-RFND-CR-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PER REFUND LIMIT MUST NOT EXCEED OFFLIN - "E REFUND LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-RFND-CR-LMT OF SEG2 OF CPF > TTL-RFND-CR-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE REFUND LIMIT MUST NOT EXCEED TOTAL REFU - "ND LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF STD-CCA-INCR OF SEG2 OF CPF > TTL-CCA-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STANDARD CCA INCREMENT MUST NOT EXCEED TOTAL CC - "A LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF STD-CCA-INCR OF SEG2 OF CPF > OFFL-CCA-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STANDARD CCA INCREMENT MUST NOT EXCEED OFFLINE - "CCA LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ISS-TXN-PRFL OF SEG2 OF CPF = SPACES NEXT SENTENCE ELSE MOVE "Y" TO WS-CHAR-FLAG MOVE ISS-TXN-PRFL OF SEG2 OF CPF TO WS-POS-ISS-TXN-PRFL PERFORM 481-POS-ISS-TXN-PRFL-CHECK VARYING M FROM 1 BY 1 UNTIL M > 16. 480-DATA-CHECK-SCREEN7. IF ( ( MAX-PRE-AUTH-HLDS OF SEG2 OF CPF NOT > 0 OR MAX-PRE-AUTH-HLDS OF SEG2 OF CPF NOT < 10 ) AND ( MAX-PRE-AUTH-HLDS OF SEG2 OF CPF NOT = 0 AND MAX-PRE-AUTH-HLDS OF SEG2 OF CPF NOT = 10 ) ) ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAXIMUM PRE AUTH HOLDS MUST BE 0 TO 10" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( CHRGBACK-UPDATE OF SEG2 OF CPF NOT = "0" AND CHRGBACK-UPDATE OF SEG2 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHARGEBACK UPDATE MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( RPRSNT-UPDATE OF SEG2 OF CPF NOT = "0" AND RPRSNT-UPDATE OF SEG2 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "REPRESENTMENT UPDATE MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( COMBO-DFLT OF SEG2 OF CPF NOT = 1 AND COMBO-DFLT OF SEG2 OF CPF NOT = 2 ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DEFAULT COMBO CARD TYPE MUST BE '1' OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DFLT-ACCT OF SEG2 OF CPF(1) = SPACES OR ( DFLT-ACCT OF SEG2 OF CPF(1) NOT = "00" AND DFLT-ACCT OF SEG2 OF CPF(1) NOT = "01" AND DFLT-ACCT OF SEG2 OF CPF(1) NOT = "11" AND DFLT-ACCT OF SEG2 OF CPF(1) NOT = "31" ) ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) MOVE 1 TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DEFAULT ACCOUNT TYPE MUST BE '00', '01', '11' OR '31'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DFLT-ACCT OF SEG2 OF CPF(2) = SPACES OR ( DFLT-ACCT OF SEG2 OF CPF(2) NOT = "00" AND DFLT-ACCT OF SEG2 OF CPF(2) NOT = "01" AND DFLT-ACCT OF SEG2 OF CPF(2) NOT = "11" AND DFLT-ACCT OF SEG2 OF CPF(2) NOT = "31" ) ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) MOVE 2 TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DEFAULT ACCOUNT TYPE MUST BE '00', '01', '11' OR '31'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DFLT-ACCT OF SEG2 OF CPF(3) = SPACES OR ( DFLT-ACCT OF SEG2 OF CPF(3) NOT = "00" AND DFLT-ACCT OF SEG2 OF CPF(3) NOT = "01" AND DFLT-ACCT OF SEG2 OF CPF(3) NOT = "11" AND DFLT-ACCT OF SEG2 OF CPF(3) NOT = "31" ) ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) MOVE 3 TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DEFAULT ACCOUNT TYPE MUST BE '00', '01', '11' OR '31'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ISS OF SEG2 OF CPF TO VALID-ISS IF (ISS OF SEG2 OF CPF NOT = SPACES) AND (VALID-ISS-NUM) IF ISS-DESCR OF SEG2 OF CPF = SPACES ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUER DESCRIPTION IS REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE NEXT SENTENCE ELSE ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUER MUST BE 00 - 99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PIN-REQ OF SEG2 OF CPF NOT = 0 AND PIN-REQ OF SEG2 OF CPF NOT = 1 AND PIN-REQ OF SEG2 OF CPF NOT = 2 ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN REQUIRED MUST BE '0', '1' OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * Makes sure WS-ADDR-VRFY-ALGO IS 'V' OR 'M' * This is not dependant on the purchase of Address Verification IF NOT (ADDR-VRFY-ALGO OF SEG2 OF CPF = "V" OR "M") ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ADDRESS VERIFICATION ALGO MUST BE 'V' OR 'M'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( ADDR-VRFY OF SEG2 OF CPF NOT = "Y" AND ADDR-VRFY OF SEG2 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ADDR VERIFY MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN10. IF EXP-CHK-IND OF SEG0 OF CPF NOT = 0 PERFORM 481-SV-EXP-DAT-CHECK ELSE IF CRD-EXP-DAT OF SEG24 OF CPF NOT = ZEROES ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXP DATE FIELD MUST BE ZEROES IF EXP CHEC - "K TYPE = 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EXP-CHK-IND OF SEG0 OF CPF NOT = 0 MOVE CRD-EXP-DAT OF SEG24 OF CPF TO WS-VERIFY-DATE IF WS-VERIFY-DATE NOT = ZEROES IF NOT VALID-MTH ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DATE MUST BE IN YEAR AND MONTH FORMAT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF NOT VALID-YR ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DATE MUST BE IN YEAR AND MONTH FORMAT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-DURATION OF SEG24 OF CPF < 0 OR CRD-DURATION OF SEG24 OF CPF > 120 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "VALID DURATION VALUES ARE BETWEEN ZERO AND 120" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EXP-CHK-IND OF SEG0 OF CPF NOT = 0 PERFORM 481-SV-EXP-DAT-CHECK ELSE IF CRD-DURATION OF SEG24 OF CPF NOT = ZEROES ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DURATION FIELD MUST BE ZEROES IF EXP CHEC - "K TYPE = 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CAF-TPLT-LGTH OF SEG24 OF CPF < 1 OR CAF-TPLT-LGTH OF SEG24 OF CPF > 19 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SV CAF LENGTH NEEDS TO BE BETWEEN 1 AND 19" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN11. IF EMV-CHK OF SEG9 OF CPF NOT = "N" AND EMV-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF KEYI-GRP OF SEG9 OF CPF NOT = SPACES MOVE KEYI-GRP OF SEG9 OF CPF TO WS-LEN-CHECK32 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES VARYING I FROM 1 BY 1 UNTIL I > 32 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMBEDDED SPACES ARE NOT ALLOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CAM-CHK-TYP OF SEG9 OF CPF NOT = "0" AND CAM-CHK-TYP OF SEG9 OF CPF NOT = "1" AND CAM-CHK-TYP OF SEG9 OF CPF NOT = "2" ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CAM CHECK TYPE MUST BE '0', '1' OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK HOST ONLINE CAM MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-FALLBACK OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-FALLBACK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "HOST ONLINE FALLBACK CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-TVR-CVR OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-TVR-CVR OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PRE SCREEN TVR/CVR CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-RSN-ONL-CDE OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-RSN-ONL-CDE OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PRE SCRN ONLINE CODE CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "0" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "1" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "2" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAM ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "0" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "1" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "2" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAM ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ATC-CHK OF SEG9 OF CPF NOT = "N" AND ATC-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATC SEQUENCE NUMBER CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "N" AND FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FORCE ONLINE FALLBACK CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION ATM MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "1" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION POS MUST BE 0,1 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ACTION-TABLE-INDEX OF SEG9 OF CPF TO WS-EMV-ACTION-INDEX. IF NOT VALID-ACTION-INDEX ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STATUS CHECKING ACTION INDEX MUST BE 1,2,3 OR 4" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE EMV-ISS-APPL-DATA-FRMT OF SEG9 OF CPF TO WS-EMV-ISS-APPL-DATA. IF NOT VALID-ISS-APPL-DATA ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUER APPL DATA FORMAT MUST BE 0,1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE EMV-PREFIX-RTE OF SEG9 OF CPF TO WS-EMV-PREFIX-RTE. IF NOT VALID-PREFIX-RTE ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PREFIX ROUTING MUST BE NUMERIC, 'A' OR SPACE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EMV-ISS OF SEG9 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV ISSUER MUST BE NUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN14. IF MIN-AMT OF SEG18 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM DISPENSE AMOUNT MUST NOT EXCEED AGGREGAT - "E LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF MIN-AMT OF SEG18 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MINIMUM DISPENSE AMOUNT MUST NOT EXCEED OFFLINE - "AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 OF CPF = "Y" AND TTL-CHK-LMT OF SEG18 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CHECK LIMIT MUST NOT EXCEED AGGREGATE LIM - "IT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CHK-LMT OF SEG18 OF CPF > TTL-CHK-LMT OF SEG18 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CHECK LIMIT MUST NOT EXCEED TOTAL CHECK - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 OF CPF = "Y" AND OFFL-CHK-LMT OF SEG18 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CHECK LIMIT MUST NOT EXCEED OFFLINE AGG - "REGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-BASE-FLG OF SEG18 OF CPF = "Y" AND TTL-CSF-CHK-LMT OF SEG18 OF CPF > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CSF CHECK LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CSF-CHK-LMT OF SEG18 OF CPF > TTL-CSF-CHK-LMT OF SEG18 OF CPF ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CSF CHECK LIMIT MUST NOT EXCEED TOTAL C - "SF CHECK LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-BASE-FLG OF SEG18 OF CPF = "Y" AND OFFL-CSF-CHK-LMT OF SEG18 OF CPF > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CSF CHECK LIMIT MUST NOT EXCEED OFFLINE - " AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 OF CPF NOT = "N" AND CHK-BASE-FLG OF SEG18 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK BASE USAGE/LIMIT FLAG MUST BE Y OR N" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-BASE-FLG OF SEG18 OF CPF NOT = "N" AND CSF-CHK-BASE-FLG OF SEG18 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CSF CHECK BASE USAGE/LIMIT FLAG MUST BE Y OR N" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN20. * C-VENDOR-TYPE MOVE VENDOR-TYPE OF SEG12 OF CPF TO WS-VENDOR-TYPE. IF NOT VALID-VENDOR-TYPE ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "VENDOR TYPE MUST BE A-Z" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-STOCK-TYPE MOVE STOCK-TYPE OF SEG12 OF CPF TO WS-STOCK-TYPE. IF NOT VALID-STOCK-TYPE ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STOCK TYPE MUST BE A-Z" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-LENGTH-OF-ISSUE DIVIDE LENGTH-OF-ISSUE OF SEG12 OF CPF BY 6 GIVING WS-TEMP. MULTIPLY WS-TEMP BY 6 GIVING WS-TEMP. SUBTRACT WS-TEMP FROM LENGTH-OF-ISSUE OF SEG12 OF CPF GIVING WS-REMAINDER. IF WS-REMAINDER NOT EQUAL TO ZEROES OR LENGTH-OF-ISSUE OF SEG12 OF CPF IS LESS THAN 6 OR LENGTH-OF-ISSUE OF SEG12 OF CPF IS GREATER THAN 192 ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "LENGTH OF ISSUE MUST BE 6-192 AND A MULTIPLE OF 6" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-REISSUE-CYCLE DIVIDE REISSUE-CYCLE OF SEG12 OF CPF BY 15 GIVING WS-TEMP. MULTIPLY WS-TEMP BY 15 GIVING WS-TEMP. SUBTRACT WS-TEMP FROM REISSUE-CYCLE OF SEG12 OF CPF GIVING WS-REMAINDER. IF WS-REMAINDER NOT EQUAL TO ZEROES OR REISSUE-CYCLE OF SEG12 OF CPF IS LESS THAN 30 OR REISSUE-CYCLE OF SEG12 OF CPF IS GREATER THAN 120 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "REISSUE CYCLE MUST BE 30-120 AND A MULTIPLE OF 15" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-CHECK-DIGIT-ALGO IF CHECK-DIGIT-ALGO OF SEG12 OF CPF NOT = 1 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK DIGIT ALGO MUST BE 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-PRODUCTION-CYCLE DIVIDE PRODUCTION-CYCLE OF SEG12 OF CPF BY 15 GIVING WS-TEMP. MULTIPLY WS-TEMP BY 15 GIVING WS-TEMP. SUBTRACT WS-TEMP FROM PRODUCTION-CYCLE OF SEG12 OF CPF GIVING WS-REMAINDER. IF WS-REMAINDER NOT EQUAL TO ZEROES OR PRODUCTION-CYCLE OF SEG12 OF CPF IS LESS THAN 15 OR PRODUCTION-CYCLE OF SEG12 OF CPF IS GREATER THAN 45 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PRODUCTION CYCLE MUST BE 15-45 AND A MULTIPLE O - "F 15" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-PIN-LENGTH IF PIN-LENGTH OF SEG12 OF CPF > 12 OR PIN-LENGTH OF SEG12 OF CPF < 4 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN LENGTH MUST BE 4 THROUGH 12" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-EXPIRATION-CYCLE IF (EXPIRATION-CYCLE OF SEG12 OF CPF < 0 OR EXPIRATION-CYCLE OF SEG12 OF CPF > 9999) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXPIRATION CYCLE MUST BE 0-9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-PIN-GEN-TYP IF PIN-GEN-TYP OF SEG12 OF CPF NOT EQUAL "N" AND PIN-GEN-TYP OF SEG12 OF CPF NOT EQUAL "R" ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN GENERATION TYPE MUST BE 'N'(NATURAL) OR 'R' - "(RANDOM)" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-PIN-MAILER-CONTROL1 MOVE PIN-MAILER-CONTROL OF SEG12 OF CPF TO WS-PIN-MAILER-CONTROL. IF NOT VALID-PIN-MAILER-CONTROL ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN MAILER CONTROL MUST BE 0-2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-CARD-CARRIER-CONTROL1 MOVE CARD-CARRIER-CONTROL OF SEG12 OF CPF TO WS-CARD-CARRIER-CONTROL. IF NOT VALID-CARD-CARRIER-CONTROL ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD CARRIER CONTROL MUST BE 0-2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-LAST-ACCT-NO MOVE LAST-ACCT-NO OF SEG12 OF CPF TO WS-LAST-ACCT-PREFIX. COMPUTE P = PREFIX-LGTH OF SEG0 OF CPF + 1. PERFORM 490-PREFIX-PAD UNTIL P > 11. IF WS-LAST-ACCT-PREFIX NOT EQUAL WS-PREFIX-IPM OR WS-LAST-ACCT-PREFIX EQUAL SPACES OR WS-LAST-ACCT-PREFIX EQUAL ZEROES MOVE SPACES TO WS-LAST-ACCT-PREFIX MOVE SPACES TO LAST-ACCT-NO OF SEG12 OF CPF MOVE 67 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "'LAST ACCOUNT NUMBER' MUST BEGIN WITH 'PREFIX'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE PERFORM 495-ACCT-LEN-CHECK. * C-CARD-STATUS1 MOVE CARD-STATUS OF SEG12 OF CPF TO WS-CARD-STATUS. IF NOT VALID-CARD-STATUS ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD STATUS MUST BE 00-07" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-TAPE-LABEL-TYPE1 MOVE TAPE-LABEL-TYP OF SEG12 OF CPF TO WS-TAPE-LABEL-TYPE. IF NOT VALID-TAPE-LABEL-TYPE ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TAPE LABEL TYPE MUST BE 'BUR', 'IBM', 'DOS' OR - "'NON'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN21. * C-EMB-FMT-TYPE MOVE EMBOSS-FORMAT-TYPE OF SEG12 OF CPF TO WS-EMB-FMT-TYPE. IF NOT VALID-EMB-FMT-TYPE ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMBOSS FORMAT TYPE MUST BE 00-03" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * C-ENC-FMT-TYPE MOVE ENCODE-FORMAT-TYPE OF SEG12 OF CPF TO WS-ENC-FMT-TYPE. IF NOT VALID-ENC-FMT-TYPE ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ENCODE FORMAT TYPE MUST BE 00 or 01" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN22. * D-FORMAT-CODE MOVE FORMAT-CODE OF TRACK3 OF SEG12 OF CPF TO WS-FORMAT-CODE. IF NOT VALID-FORMAT-CODE ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FORMAT CODE MUST BE 00 OR 01" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-COUNTRY-CODE IF COUNTRY-CODE OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "COUNTRY CODE MUST BE 000-999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-CRNCY-CODE IF CURRENCY-CODE OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CURRENCY CODE MUST BE 000-999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-CRNCY-EXP IF CURRENCY-EXPONENT OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CURRENCY EXPONENT MUST BE 0-9" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-CYCLE-LEN IF CYCLE-LENGTH OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CYCLE LENGTH MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-RETRY-CNT IF RETRY-COUNT OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "RETRY COUNT MUST BE 0-9" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-ALGO-ID IF (ALGO-ID OF TRACK3 OF SEG12 OF CPF NOT NUMERIC OR (ALGO-ID OF TRACK3 OF SEG12 OF CPF < 0 OR ALGO-ID OF TRACK3 OF SEG12 OF CPF > 19)) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ALGO ID MUST BE 00-19" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-INTRCHG-CNTL IF INTRCHG-CNTL OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INTRCHG CNTL MUST BE 0-9" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-RELAY-MARKER IF (RELAY-MARKER OF TRACK3 OF SEG12 OF CPF NOT NUMERIC OR (RELAY-MARKER OF TRACK3 OF SEG12 OF CPF < 0 OR RELAY-MARKER OF TRACK3 OF SEG12 OF CPF > 2)) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "RELAY MARKER MUST BE 0-2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-ATALLA-OFST IF ATALLA-OFFSET OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATALLA OFFSET MUST BE 000000-999999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-ACCT-LENGTH IF (ACCT-LENGTH OF TRACK3 OF SEG12 OF CPF NOT NUMERIC OR (ACCT-LENGTH OF TRACK3 OF SEG12 OF CPF < 0 OR ACCT-LENGTH OF TRACK3 OF SEG12 OF CPF > 28)) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACCT LENGTH MUST BE 00-28" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-DFLT-PRI-TYP IF DFLT-PRI-TYP OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DFLT PRI TYP MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-DFLT-DDA-SAN-TYP IF DFLT-DDA-SAN-TYP OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DFLT DDA SAN TYP MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-DFLT-SAV-SAN-TYP IF DFLT-SAV-SAN-TYP OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DFLT SAV SAN TYP MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-DFLT-NO-SAN-TYP IF DFLT-NO-SAN-TYP OF TRACK3 OF SEG12 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DFLT NO SAN TYP MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * D-IND-FMT-TYPE MOVE INDENT-FORMAT-TYPE OF SEG12 OF CPF TO WS-IND-FMT-TYPE. IF NOT VALID-IND-FMT-TYPE ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INDENT FORMAT TYPE MUST BE 00-02" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-EMBEDDED-SPACES. IF LEN-POS32(I) NOT = SPACES AND FIRST-CHAR = "N" MOVE "Y" TO FIRST-CHAR. IF LEN-POS32(I) = SPACES AND FIRST-CHAR = "Y" MOVE "Y" TO NO-MORE-CHARS. IF LEN-POS32(I) NOT = SPACES AND NO-MORE-CHARS = "Y" MOVE 32 TO I MOVE "Y" TO BAD-FLAG MOVE "Y" TO FLAG-MOVE. 481-ATM-ISS-TXN-PRFL-CHECK. IF WS-CHAR-FLAG = "N" AND WS-ATM-ISS-TXN-PRFL-CHAR(M) NOT = SPACES ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ISSUER TXN PROFILE - LEADING OR EMBEDDED SP - "ACES NOT ALLOWED" TO WS-ERR-TXT MOVE 16 TO M MOVE "N" TO FLAG-MOVE. IF WS-CHAR-FLAG = "Y" AND WS-ATM-ISS-TXN-PRFL-CHAR(M) = SPACES MOVE "N" TO WS-CHAR-FLAG. 481-POS-ISS-TXN-PRFL-CHECK. IF WS-CHAR-FLAG = "N" AND WS-POS-ISS-TXN-PRFL-CHAR(M) NOT = SPACES ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ISSUER TXN PROFILE - LEADING OR EMBEDDED SP - "ACES NOT ALLOWED" TO WS-ERR-TXT MOVE 16 TO M MOVE "N" TO FLAG-MOVE. IF WS-CHAR-FLAG = "Y" AND WS-POS-ISS-TXN-PRFL-CHAR(M) = SPACES MOVE "N" TO WS-CHAR-FLAG. 481-SV-EXP-DAT-CHECK. IF CRD-EXP-DAT OF SEG24 OF CPF = "0000" AND CRD-DURATION OF SEG24 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EITHER EXP DATE OR DURATION MUST BE ENTERED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-EXP-DAT OF SEG24 OF CPF NOT = "0000" AND CRD-DURATION OF SEG24 OF CPF NOT = 0 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ONLY EXP DATE OR EXP DURATION CAN BE ENTERED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. * * If necessary, fill screen overlay NCD fields (1) or (2). * 485-VERIFY-NCD-LMT. MOVE 0 TO NCD-DESC-MATCH-FLG. PERFORM 485-VERIFY-NCD-C-CODE VARYING J FROM 1 BY 1 UNTIL J > NCD-CONTENTS-TBL-CNT OR NCD-MATCH-FOUND. IF NCD-NO-MATCH ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE I TO NCD-J-VALUE OF WS-NCD-CONTENT-ERR COMPUTE WS-NCD-CONTENT-CDE-MAX OF WS-NCD-CONTENT-ERR = NCD-CONTENTS-TBL-CNT + 1 MOVE WS-NCD-CONTENT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF TTL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "NCD WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE LI - "MIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF OFFL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > TTL-WDL-LMT OF NCD OF SEG23 OF CPF(I) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD WITHDRAWAL LIMIT MUST NOT EXCEED NCD - "TOTAL WITHDRAWAL LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF OFFL-WDL-LMT OF NCD OF SEG23 OF CPF(I) > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD WITHDRAWAL LIMIT MUST NOT EXCEED OFFL - "INE AGGREGATE LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF TTL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "NCD CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF OFFL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > TTL-CCA-LMT OF NCD OF SEG23 OF CPF(I) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD CREDIT CRD LMT MUST NOT EXCEED NCD TO - "TAL CREDIT CRD LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > ZERO IF OFFL-CCA-LMT OF NCD OF SEG23 OF CPF(I) > OFFL-AGGR-LMT OF SEG0 OF CPF ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE NCD CREDIT CARD LIMIT MUST NOT EXCEED OFF - "LINE AGGREGATE LMT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 485-VERIFY-NCD-C-CODE. IF NCD-CDE OF NCD OF SEG23 OF CPF(I) = SPACES MOVE 1 TO NCD-DESC-MATCH-FLG ELSE IF NCD-CDE OF NCD OF SEG23 OF CPF(I) = NCD-CONTENTS OF NCD-CONTENTS-TBL-R(J) MOVE 1 TO NCD-DESC-MATCH-FLG. 490-LENGTH-CHECK. MOVE ZEROES TO PREFIX-LGTH. MOVE SPACES TO WS-LEN-CHECK, SPACE-SWITCH. MOVE WS-PREFIX-IPM TO WS-LEN-CHECK. PERFORM 495-DETERMINE-LEN VARYING I FROM 1 BY 1 UNTIL I > 11. 490-PREFIX-PAD. MOVE " " TO WS-LAST-ACCT-PRE-R (P). ADD 1 TO P. 495-DETERMINE-LEN. IF LEN-POS(I) = SPACES IF I = 1 IF WS-PREFIX-IPM NOT = SPACES MOVE 13 TO ERR-CDE OF MSG-ERR-EXT MOVE 12 TO I ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID PREFIX -- LEADING SPACES NOT ALLOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = SPACE MOVE I TO WS-I SUBTRACT 1 FROM WS-I GIVING PREFIX-LGTH OF SEG0 OF CPF MOVE "X" TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF LEN-POS(I) NUMERIC IF I = 11 MOVE 11 TO PREFIX-LGTH OF SEG0 OF CPF ELSE IF SPACE-SWITCH = SPACE NEXT SENTENCE ELSE MOVE 13 TO ERR-CDE OF MSG-ERR-EXT MOVE 12 TO I ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID PREFIX -- INTERVENING SPACES NOT - "ALLOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE 13 TO ERR-CDE OF MSG-ERR-EXT MOVE 12 TO I ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID PREFIX -- MUST BE NUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 495-ACCT-LEN-CHECK. MOVE LAST-ACCT-NO OF SEG12 OF CPF TO WS-LAST-ACCT. PERFORM 495-CHECK-LAST-ACCT-NUM VARYING I FROM 1 BY 1 UNTIL I > 28 OR VALID-DATA = "BAD". IF VALID-DATA NOT = "BAD" MOVE 0 TO SPACE-SWITCH PERFORM 495-CHECK-IMPROPER-SPACES VARYING I FROM 1 BY 1 UNTIL I > 28 OR VALID-DATA = "BAD". IF VALID-DATA NOT = "BAD" * Verify that 'LAST ACCOUNT NUMBER' * contains 'PAN LENGTH' digits. MOVE PAN-LGTH OF SEG0 OF CPF TO I COMPUTE J = I + 1 IF WS-LAST-ACCT-NUM-CHAR (I) NOT = SPACE AND WS-LAST-ACCT-NUM-CHAR (J) = SPACE NEXT SENTENCE ELSE MOVE 13 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF OVERLAY-NUM = 20 MOVE "'LAST ACCOUNT NUMBER' LENGTH MUST MATCH 'PAN - " LENGTH'" TO WS-ERR-TXT ELSE MOVE "'LAST ACCOUNT NUMBER' LENGTH MUST MATCH 'PAN - " LENGTH' ON PAGE 20" TO WS-ERR-TXT. 495-CHECK-LAST-ACCT-NUM. MOVE WS-LAST-ACCT-NUM-CHAR (I) TO NUM-FLAG IF NUM-FLAG NOT = SPACE IF NOT VALID-NUM MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) MOVE 13 TO ERR-CDE OF MSG-ERR-EXT IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF OVERLAY-NUM = 20 MOVE "'LAST ACCOUNT NUMBER' MUST BE NUMERIC" TO WS-ERR-TXT ELSE MOVE "'LAST ACCOUNT NUMBER' MUST BE NUMERIC ON PAG - "E 20" TO WS-ERR-TXT. 495-CHECK-IMPROPER-SPACES. IF WS-LAST-ACCT-NUM-CHAR (I) = SPACE IF I = 1 MOVE 29 TO I MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) MOVE 13 TO ERR-CDE OF MSG-ERR-EXT IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF OVERLAY-NUM = 20 MOVE "LEADING SPACES NOT ALLOWED IN 'LAST ACCOUNT - "NUMBER'" TO WS-ERR-TXT ELSE MOVE "LEADING SPACES NOT ALLOWED IN 'LAST ACCOUNT - "NUMBER' ON PAGE 20" TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 0 MOVE 1 TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 1 MOVE 29 TO I MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) MOVE 13 TO ERR-CDE OF MSG-ERR-EXT IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF OVERLAY-NUM = 20 MOVE "EMBEDDED SPACES NOT ALLOWED IN 'LAST ACCOUNT - " NUMBER'" TO WS-ERR-TXT ELSE MOVE "EMBEDDED SPACES NOT ALLOWED IN 'LAST ACCOUNT - " NUMBER' ON PAGE 20" TO WS-ERR-TXT. 497-COMPARE-LENGTHS. IF (PAN-LGTH OF SEG0 OF CPF = ZERO) OR (PAN-LGTH OF SEG0 OF CPF = SPACES) MOVE 13 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PAN LENGTH CANNOT BE ZERO OR SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF PAN-LGTH OF SEG0 OF CPF NOT = ZERO IF PAN-LGTH OF SEG0 OF CPF NOT > PREFIX-LGTH OF SEG0 OF CPF MOVE 13 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ERROR - PAN LENGTH MUST BE > PREFIX LENGTH" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00822U1I 510-RCD-ADD IF ERR-NBR = 0 IF BYTE-MAP-R(25) = 0 AND WS-SITE-PROD-IND(25) = 1 MOVE SV-SEG-LGTH TO LGTH OF SEG24 OF CPF MOVE SEG-SV-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG24 OF CPF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG24 OF CPF ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG24 OF CPF, PTR-ARRAY, SEG-SV-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "24" TO ADD-SEG-NUM MOVE ADD-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG. #ADD 01312O09 911-RCD-RETRIEVE IF WS-GUAR-ERR = 0 IF BYTE-MAP-R(25) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-SV-C, SEG24 OF CPF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "24" TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-CPF-ERROR-TEXT-FILL. #ADD 01341O09 912-RCD-REPLACE IF NO-ERROR IF WS-GUAR-ERR = 0 IF BYTE-MAP-R(25) = 1 OR WS-SITE-PROD-IND(25) = 1 ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG24 OF CPF, PTR-ARRAY, SEG-SV-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "24" TO RCD-REPL-SEG-NUM PERFORM 912-REPLACE-ERROR. #ADD 01380U0M 917-RCD-WRITE MOVE SV-SEG-LGTH TO LGTH OF SEG24 OF CPF. MOVE SEG-SV-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG24 OF CPF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG24 OF CPF. #ENDSCN = BA05340 !*CMP2.11 03/28/02 RQIDFS 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQIDFS RQIDFS 6054 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQIDFS RQIDFS 6054 * ******************************************************************************** #SCN = BA05342 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6054 #NEWVERSION = 6055 #ADD 00115$0H * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added support for PBF4-NAME OF IDF. * Modified paragraph: * 481-ERR-FLAG-OV-1 * Added paragraph: * 481-FLAG-OV-1-FIELD-10 * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #REPLACE 01592$05/01592$05 OFFSET 0 481-ERR-FLAG-OV-1 481-FLAG-OV-1-FIELD-9, 481-FLAG-OV-1-FIELD-10 #ADD 01603$0G 481-FLAG-OV-1-FIELD-9 481-FLAG-OV-1-FIELD-10. TURN TEMP SERROR IN I-PBF4-NAME. SET NEW-CURSOR AT I-PBF4-NAME. #ENDSCN = BA05342 !*CMP2.11 03/28/02 SVIDFS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVIDFS SVIDFS 6047 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVIDFS SVIDFS 6047 * ******************************************************************************** #SCN = BA05343 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00043u10 * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added support for PBF4-NAME OF IDF. Added one * occurrence of BASE-F-NAMES. * Modified paragraphs: * 480-BASE-FILENAMES-CHECK * 480-BASE-DATA-CHECK * 483-POS-AUTH-TYPE-CHECK * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #REPLACE 00308u02 DATA DIVISION 05 BASE-F-NAMES PIC X(35) OCCURS 8 TIMES. #ADD 00868u0A 480-BASE-FILENAMES-CHECK MOVE PBF4-NAME OF IDF TO BASE-F-NAMES( 8 ). #REPLACE 00868u0C 480-BASE-FILENAMES-CHECK PERFORM VARYING X FROM 1 BY 1 UNTIL X > 8 #ADD 00881f0H 480-BASE-DATA-CHECK MOVE "IF PBF-NAME 1, 2, OR 3 IS PRESENT, ALL THREE NA - "MES MUST BE ENTERED" TO WS-ERR-TXT #DELETE 00881f0I/00881f0J 480-BASE-DATA-CHECK #ADD 02157 483-POS-AUTH-TYPE-CHECK IF ( PBF1-NAME OF IDF = SPACES OR PBF2-NAME OF IDF = SPACES OR PBF3-NAME OF IDF = SPACES ) AND PBF4-NAME OF IDF = SPACES #DELETE 02158 /02160 483-POS-AUTH-TYPE-CHECK #ENDSCN = BA05343 !*CMP2.11 03/28/02 RQECFS 6033 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFS RQECFS 6033 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFS RQECFS 6033 * ******************************************************************************** #SCN = BA05345 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6033 #NEWVERSION = 6034 #ADD 00019g0D * 28MAR2002 BEM/348 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: 1. Added code to validate data in Stored Value * extract lines on screen #7. * 2. Added code to initialize data in Stored * Value extract lines on screen #7. * 3. Added variables and code to initialize SVHF * date fields if old records contain garbage data * due to lack of prior initialization. * Modified Procs: 400-MOVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #ADD 00105 DATA DIVISION 01 CHECK-VALID-DAT. 05 CHECK-YY PIC 9(2) VALUE 0. 88 YY-VALID VALUE 00 THRU 99. 05 CHECK-MM PIC 9(2) VALUE 0. 88 MM-VALID VALUE 01 THRU 12. 05 CHECK-DD PIC 9(2) VALUE 0. 88 DD-VALID VALUE 01 THRU 31. #ADD 00152g03 400-MOVE-RECORD IF SVHF-STRT-DAT OF ECF NOT NUMERIC MOVE SPACES TO SVHF-STRT-DAT OF ECF ELSE MOVE SVHF-STRT-DAT TO CHECK-VALID-DAT IF NOT YY-VALID OR NOT MM-VALID OR NOT DD-VALID MOVE SPACES TO SVHF-STRT-DAT OF ECF. IF SVHF-END-DAT OF ECF NOT NUMERIC MOVE SPACES TO SVHF-END-DAT OF ECF ELSE MOVE SVHF-END-DAT TO CHECK-VALID-DAT IF NOT YY-VALID OR NOT MM-VALID OR NOT DD-VALID MOVE SPACES TO SVHF-END-DAT OF ECF. #DELETE 00152Z00/00152Z02 400-MOVE-RECORD #ADD 00654 480-DATA-CHECK IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP NOT = "Y" AND NOT = "N" MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-FILE-MAP IF MOVE-MESSAGE MOVE "SVHF MUST BE 'Y' OR 'N'" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-FILE-MAP MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" IF SVHF-STRT-DAT OF FILE-MAP OF SEG0 = SPACES MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-STRT-DAT IF MOVE-MESSAGE MOVE "START DATE IS A REQUIRED FIELD" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-STRT-DAT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" IF SVHF-STRT-DAT OF FILE-MAP OF SEG0 NOT NUMERIC MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-STRT-DAT IF MOVE-MESSAGE MOVE "START DATE MUST BE NUMERIC AND IN YYMMDD - " FORMAT" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-STRT-DAT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" MOVE SVHF-STRT-TIM OF FILE-MAP OF SEG0 TO WS-VALIDATE-TIME MOVE VALID-HR TO VALIDATE-HOURS-FLAG MOVE VALID-MM TO VALIDATE-MINUTES-FLAG IF VALID-HOURS AND VALID-MINUTES NEXT SENTENCE ELSE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-STRT-TIM IF MOVE-MESSAGE MOVE "START HH MUST BE 00 THRU 23, MM MUST BE - "00 THRU 59 " TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-STRT-TIM MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" IF SVHF-END-DAT OF FILE-MAP OF SEG0 = SPACES MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-END-DAT IF MOVE-MESSAGE MOVE "END DATE IS A REQUIRED FIELD" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-END-DAT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" IF SVHF-END-DAT OF FILE-MAP OF SEG0 NOT NUMERIC MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-END-DAT IF MOVE-MESSAGE MOVE "END DATE MUST BE NUMERIC AND IN YYMMDD F - "ORMAT" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-END-DAT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 7 IF SVHF OF FILE-MAP = "Y" MOVE SVHF-END-TIM OF FILE-MAP OF SEG0 TO WS-VALIDATE-TIME MOVE VALID-HR TO VALIDATE-HOURS-FLAG MOVE VALID-MM TO VALIDATE-MINUTES-FLAG IF VALID-HOURS AND VALID-MINUTES NEXT SENTENCE ELSE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-END-TIM IF MOVE-MESSAGE MOVE "END HH MUST BE 00 THRU 23, MM MUST BE 00 - " THRU 59 " TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-END-TIM MOVE "N" TO FLAG-MOVE. #DELETE 00655e00/00675X02 480-DATA-CHECK #ADD 01090f02 595-CLEAR-DATA MOVE SPACES TO SVHF-STRT-DAT. MOVE SPACES TO SVHF-END-DAT. #DELETE 01090f03/01091X06 595-CLEAR-DATA #ENDSCN = BA05345 !*CMP2.11 03/28/02 SVMHLPS 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6006 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6006 * ******************************************************************************** #SCN = BA05346 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00101B0E * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added SVHF to BASE-TABLE. Incremented BASE-ENTRY * and BASE-ENTRIES-L. * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #ADD 00192 DATA DIVISION 05 FILLER PIC X(31) VALUE "SVHFSTORED VALUE HISTORY FILE". #REPLACE 00203E01 DATA DIVISION 05 BASE-ENTRY OCCURS 32 TIMES. #REPLACE 00206E01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 32. #ENDSCN = BA05346 !*CMP2.11 03/28/02 SVPBFS 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVPBFS SVPBFS 6019 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVPBFS SVPBFS 6019 * ******************************************************************************** #SCN = BA05347 , FILEID = SVPBFS #VOLUME = $ROOK.BA60AFT #FILE = SVPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00013S0E * 28MAR2002 DMA/20 * Symptom: Stored Value Release 6.0 uplift * Problem: None. * Fix: Added support for PBF4-NAME OF IDF. * Modified paragraphs: * 100-DETERMINE-TRAN-CODE * 903-FILENAME-FILL * 903-SET-THE-FLAG * 906-DETERMINE-ACCT-TYPE * Dependency: Restore SV-related files, modify the appropriate * CUSTMACS flags, and run MAKE. * Reference: WO #020117-41 (BASE24-stored value Release 6.0 * uplift) #ADD 00383 DATA DIVISION 88 SV-ACCT VALUE "V". #ADD 00435P02 DATA DIVISION 01 WS-SITE-PROD. 05 WS-SITE-PROD-IND PIC X OCCURS 256 TIMES. #ADD 00542P0F DATA DIVISION 05 WS-SEG-SV-IDX PIC S9(4) COMP VALUE 25. #ADD 00590K02 100-DETERMINE-TRAN-CODE MOVE SITE-PROD-IND OF MSG-FILE-MAINT-2048-EXT TO WS-SITE-PROD. #ADD 01316 903-FILENAME-FILL IF SV-ACCT IF PBF4-NAME OF IDF NOT = SPACES MOVE PBF4-NAME OF IDF TO F-NAME(K) ELSE IF PBF1-NAME OF IDF NOT = SPACES MOVE PBF1-NAME OF IDF TO F-NAME(K) ELSE MOVE 61 TO WS-GUAR-ERR ELSE #REPLACE 01341I03/01341I03 OFFSET 0 903-SET-THE-FLAG PBF3-NAME OF IDF = PBF1-NAME OF IDF AND ( PBF4-NAME OF IDF = PBF1-NAME OF IDF OR PBF4-NAME OF IDF = SPACES ) #REPLACE 01341I07/01341I07 OFFSET 0 903-SET-THE-FLAG = SPACES AND PBF4-NAME OF IDF = SPACES #ADD 01375 906-DETERMINE-ACCT-TYPE IF REC-TYPE = "09" AND WS-SITE-PROD-IND( WS-SEG-SV-IDX ) = ON-ID MOVE "V" TO ACCT-FLAG END-IF #ENDSCN = BA05347 !*CMP2.12 04/05/02 RQECFS 6034 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFS RQECFS 6034 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFS RQECFS 6034 * ******************************************************************************** #SCN = BA05379 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6034 #NEWVERSION = 6035 #DELETE 00019A01/00019W0E #ADD 00019h0I * 03APR2002 JFU/543 * Symptom: Unable to create an extract disk file that was * buffered. * Problem: Same as symptom. * Fix: Added support for the FILE-BUFFERED field in the * base segment of the ECF. * Dependency: Apply fix to RQECFS, SCRNECF, and reMake. * Reference: Case #344465 #ADD 00148g03 400-VALIDATE-DATA IF FILE-BUFFERED OF ECF NOT = "Y" MOVE "N" TO FILE-BUFFERED OF ECF. #DELETE 00148X00/00148X0G 400-VALIDATE-DATA #REPLACE 00152g03/00152h00 400-MOVE-RECORD IF FILE-BUFFERED OF ECF NOT = "Y" MOVE "N" TO FILE-BUFFERED OF ECF. #REPLACE 00844g03/00844g04 481-CHECK-IF-SITE-HAS-PROD IF FILE-BUFFERED OF ECF NOT = "Y" MOVE "N" TO FILE-BUFFERED OF ECF. #REPLACE 01048g03/01048g03 OFFSET 0 570-DISPLAY-OVERLAY-3 IF FILE-BUFFERED OF ECF NOT = "Y" MOVE "N" TO FILE-BUFFERED OF ECF. #ADD 01080X0S 595-CLEAR-DATA MOVE "N" TO FILE-BUFFERED OF ECF. #DELETE 01080X0T/01081d02 595-CLEAR-DATA #REPLACE 01101Z00 595-CLEAR-DATA MOVE "N" TO FILE-BUFFERED OF ECF. #ENDSCN = BA05379 !*CMP2.12 05/03/02 RQECFS 6035 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFS RQECFS 6035 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFS RQECFS 6035 * ******************************************************************************** #SCN = BA05411 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6035 #NEWVERSION = 6036 #ADD 00019i0D * 27APR2002 jfu/543 * Symptom: Extract not running until the physical EOF. * Problem: Extract stops at the initial EOF. * Fix: Extract was enhanced to support either extracting * to the initial EOF or the physical EOF. * Added support for the READ-PAST-INITIAL-EOF field * in the base segment of the ECF. * Dependency: Apply the fix to DDLFECF, RQECFS, SCRNECF and * reMake. * Reference: Case #347208 #ADD 00148 400-VALIDATE-DATA IF READ-PAST-INITIAL-EOF OF ECF NOT = "Y" MOVE "N" TO READ-PAST-INITIAL-EOF OF ECF. #ADD 00152 400-MOVE-RECORD IF READ-PAST-INITIAL-EOF OF ECF NOT = "Y" MOVE "N" TO READ-PAST-INITIAL-EOF OF ECF. #ADD 00345X0Q 480-DATA-CHECK IF WS-OVERLAY = 1 IF READ-PAST-INITIAL-EOF OF ECF NOT = "Y" MOVE "N" TO READ-PAST-INITIAL-EOF OF ECF. #REPLACE 01054X00 595-CLEAR-DATA MOVE "N" TO READ-PAST-INITIAL-EOF OF ECF. #ENDSCN = BA05411 !*CMP2.12 05/02/02 RQKEYIS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYIS RQKEYIS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYIS RQKEYIS 6000 * ******************************************************************************** #SCN = BA05405 , FILEID = RQKEYIS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYIS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00072 * 02MAY2002 ckc/163 * Symptom: Termination status 53 is generated when the user * enters the first screen, inputs valid key values * including dates and presses F1. * Problem: In paragraph 480-data-check, BEGIN-DAT and END-DAT * from the KEYI structure are moved to VALID-DATE. * When initially entering the screen, these values * are blank. VALID-DATE expects numeric values and, * therefore, termination status 53 is generated. * Fix: Modified the 480-data-check paragraph to move * WS-BEGIN-DAT and WS-END-DAT to VALID-DATE because * they are the fields being checked and because * they will have valid data in them. * Modified paragraph: 480-data-check * Dependency: Apply fix to RQKEYIS and run MAKE. * Reference: Case #336654. #ADD 00778 480-DATA-CHECK MOVE WS-BEG-DAT TO VALID-DATE. #DELETE 00779 480-DATA-CHECK #ADD 00842 480-DATA-CHECK MOVE WS-END-DAT TO VALID-DATE. #DELETE 00843 480-DATA-CHECK #ENDSCN = BA05405 !*CMP2.12 05/22/02 SVISECS 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVISECS SVISECS 6025 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVISECS SVISECS 6025 * ******************************************************************************** #SCN = BA05433 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 01101X0F * 21MAY2002 WHB/1738 MEP/2128. * Symptom: The SEC server logs the message "ERROR DURING SCRN * ACCESS RECORD ADD FOR" at the bottom of the * screen. * Problem: The table that holds information for the logical * networks using the security server has 4 entries. * In situations where more than 4 logical networks * use the same security server, an index to this * table can get a value larger then 4. This results * in overwriting other data. * Fix: Modified the code to ensure index stays between * 1 and 4. * Modified: 200-DETERMINE-TRAN-CODE * Dependency: Apply fix to SVISECS and re-make. * Reference: (Retro of BA5B686 from Case #339178). * 21MAY2002 WHB/1738 MEP/2128. * Symptom: Users that have never logged on to the BASE24 * system already have a last logon date. * Problem: The LAST-LOGON-DAT-TIM field does not get cleared * for new records added to the SEC using the ADD or * ADD-LIKE functions. * Fix: Modified the code to set the LAST-LOGON-DAT-TIM * field to zeroes for newly added records. * Modified: 540-ADD-SEC-RCD * 600-ADD-LIKE-SEC-RCD * Dependency: Apply fix to SVISECS and re-make. * Reference: (Retro of BA5B690 from Case #342576). #REPLACE 03234 200-DETERMINE-TRAN-CODE IF T >= 4 #ADD 04834W03 540-ADD-SEC-RCD MOVE ZEROES TO LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(1), LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(2), LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(3) #ADD 06021A06 600-ADD-LIKE-SEC-RCD MOVE ZEROES TO LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(1), LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(2), LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(3) #ENDSCN = BA05433 !*CMP2.12 05/30/02 SVTDFLTG6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVTDFLTG SVTDFLTG 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVTDFLTG SVTDFLTG 6000 * ******************************************************************************** #SCN = BA05472 , FILEID = SVTDFLTG #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00044 ! 01JUN2002 JFP/1694 ! ! Symptom: Transaction Security Services Enhancement ! ! Problem: None. ! ! Fix: Pull in tss_constants from baddltal and added field, ! ! sec_dev_typ, to the TDF table definition. This field ! ! contains the value of the SECURE-DEV-TYP LCONF ! ! parameter. ! ! Dependency: Apply fixes to SVTDFLTG, SVTDFLTS, SVPTDTS, SVATDTS ! ! and run MAKE. ! ! Reference: WO #000211-01 ! #ADD 00066 ?nolist, source =basrc_baddltal( ? fname_lgth_constants ? init_constants ? keyposn_mde_constants ? posn_typ_constants ? tss_constants ? write_mode_constants ? ) #DELETE 00067 /00073 #ADD 00078 ! tss_constants ! #ADD 00380 ! ! ! The value of the SECURE-DEV-TYP LCONF parameter. ! ! ! string sec_dev_typ[ 0:2 ]; ! ! ! The value of the LN-IND LCONF parameter. ! ! ! string ln_ind[ 0:1 ]; #ENDSCN = BA05472 !*CMP2.12 05/30/02 SVTDFLTS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVTDFLTS SVTDFLTS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVTDFLTS SVTDFLTS 6000 * ******************************************************************************** #SCN = BA05473 , FILEID = SVTDFLTS #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00044 ! 01JUN2002 JFP/1694 ! ! Symptom: Transaction Security Services Enhancement ! ! Problem: None. ! ! Fix: Added code to look up the SECURE-DEV-TYP and LN-IND ! ! LCONF parameters and set the sec_dev_typ and ln_ind ! ! fields in the TDF table structure (tdf_tbl) to the ! ! value of the appropriate parameter. ! ! Modified proc: svtdfl_ab_assigns_params_get ! ! Dependency: Apply fixes to SVTDFLTG, SVTDFLTS, SVPTDTS, SVATDTS ! ! and run MAKE. ! ! Reference: WO #000211-01 ! #ADD 00388 SVTDFL_AB_ASSIGNS_PARAMS_GET ?page "sub_param_retrv - svtdfl_ab_assigns_params_get" !################################################################ !# # !# sub_param_retrv # !# # !# This subprocedure retrieves the parameters from the LCONF # !# and handles any errors that occur. # !# # !# INPUT PARAMETERS: # !# # !# OUTPUT PARAMETERS: # !# # !# RETURN: # !# # !################################################################ int subproc sub_param_retrv; begin stat := lib_lconf_read( stat_detl, lconf_num, lconf, lconf_key ); case stat of begin lib_ok_l -> begin return true; end; lib_param_miss_l -> begin ! ! ! Parameter missing. ! ! ! msg.msg_header.err_status.err_cde := stat_detl.cde2; msg.msg_header.err_txt ':=' err_msg_d & proc_name_d -> @eptr; err_txt_lgth := @eptr '-' @msg.msg_header.err_txt; call cntl_util_srv_shutdown( msg, msg.msg_header.err_txt, err_txt_lgth ); return false; end; lib_stat_detl_see_l -> begin ! ! ! File system error. ! ! ! if lib_nsk_file_sys_err_d( stat, stat_detl ) then begin if ( stat_detl.cde1 = lib_read_err_l ) and ( stat_detl.cde2 = fe_eof_l ) then begin ! ! ! End of file. Ensure the text is defaulted ! ! to spaces because it will be moved to the ! ! tdf_tbl structure. ! ! ! init_d( lconf.param_msg.ptxt, " ", $len( lconf.param_msg.ptxt ) ); return true; end else begin ! ! ! Error other than read error or end of file.! ! ! msg.msg_header.repl_cde := resp_bad_l; msg.msg_header.err_status.err_cde := stat_detl.cde2; call svtdfl_msg_log( msg, err_lconf_param_l, stat_detl.cde2, ! msg_set !, lconf_key.item_name ); return false; end; end else begin ! ! ! Internal error. ! ! ! msg.msg_header.err_status.err_cde := stat_detl.cde2; msg.msg_header.err_txt ':=' err_msg_d & proc_name_d -> @eptr; err_txt_lgth := @eptr '-' @msg.msg_header.err_txt; call cntl_util_srv_shutdown( msg, msg.msg_header.err_txt, err_txt_lgth ); return false; end; end; otherwise -> begin ! ! ! Unrecognizable status. ! ! ! msg.msg_header.err_status.err_cde := stat; msg.msg_header.err_txt ':=' err_msg_d & proc_name_d -> @eptr; err_txt_lgth := @eptr '-' @msg.msg_header.err_txt; call cntl_util_srv_shutdown( msg, msg.msg_header.err_txt, err_txt_lgth ); return false; end; end; ! of case ! return true; end; ! of subproc sub_param_retrv ! ?page "svtdfl_ab_assigns_params_get" !################################################################ !# # !# This is the main body for PROC svtdfl_ab_assigns_params_get # !# # !################################################################ ! #DELETE 00389 SVTDFL_AB_ASSIGNS_PARAMS_GET #ADD 00774 SVTDFL_AB_ASSIGNS_PARAMS_GET ! ! ! Get SECURE-DEV-TYP parameter from the LCONF ! ! ! lconf_key.item_typ := lconf_tbl[ i ].typ; lconf_key.item_name ':=' lconf_tbl[ i ].asgn_txt for $len( lconf_key.item_name ); if sub_param_retrv then begin tdf_tbl[ tdf_idx ].sec_dev_typ ':=' lconf.param_msg.ptxt for $min( lconf.param_msg.plgth, $occurs( tdf_tbl[ tdf_idx ].sec_dev_typ ) ); end else begin return false; end; ! ! ! Get LN-IND parameter from the LCONF if the security ! ! device type is "TSS". ! ! ! if tdf_tbl[ tdf_idx ].sec_dev_typ = secure_dev_typ_tss_d then begin i := i + 1; lconf_key.item_typ := lconf_tbl[ i ].typ; lconf_key.item_name ':=' lconf_tbl[ i ].asgn_txt for $len( lconf_key.item_name ); if sub_param_retrv then begin ! ! ! Ensure no spaces are preceding the indicator. ! ! ! i := -1; do begin i := i + 1; end until lconf.param_msg.ptxt.byte[ i ] <> " " or i >= $len( lconf.param_msg.ptxt ); if i >= $len( lconf.param_msg.ptxt ) then begin tdf_tbl[ tdf_idx ].ln_ind ':=' lconf.param_msg.ptxt for $min( lconf.param_msg.plgth, $occurs( tdf_tbl[ tdf_idx ].ln_ind ) ); end else begin tdf_tbl[ tdf_idx ].ln_ind ':=' lconf.param_msg.ptxt.byte[ i ] for $min( lconf.param_msg.plgth, $occurs( tdf_tbl[ tdf_idx ].ln_ind ) ); end; end else begin return false; end; end; #ENDSCN = BA05473 !*CMP2.12 06/04/02 RQCAFS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6047 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6047 * ******************************************************************************** #SCN = BA05484 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00023u0K * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for the account qualifier on screens * 3 and 4. * Dependency: Apply fixes to RQCAFS, SVCAFS, SCRNCAF and run * MAKE. * Reference: WO #020417-01 #ADD 00045 DATA DIVISION 07 M-QUAL PIC X. #ADD 00052 DATA DIVISION 07 WS-QUAL PIC X. #ADD 00224 DATA DIVISION 15 MAC-QUAL PIC X. #ADD 00232t00 DATA DIVISION 05 LEFTOVER PIC X(374). #DELETE 00232t01 DATA DIVISION #ADD 01514B08 481-CHECK-OVERLAY-3 IF TIP (I) NOT = SPACES IF M-QUAL OF WS-ACCT-FIRST-10(I) NOT = "0" AND M-QUAL OF WS-ACCT-FIRST-10(I) NOT = "1" AND M-QUAL OF WS-ACCT-FIRST-10(I) NOT = "2" AND M-QUAL OF WS-ACCT-FIRST-10(I) NOT = "3" AND M-QUAL OF WS-ACCT-FIRST-10(I) NOT = " " MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-QUAL(I) IF MOVE-MESSAGE SET NEW-CURSOR AT C-QUAL(I) MOVE "QUAL MUST BE '0', '1', '2' OR '3'" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01547a08 481-CHECK-OVERLAY-4 IF WS-TYPE (I) NOT = SPACES IF WS-QUAL (I) NOT = "0" AND WS-QUAL (I) NOT = "1" AND WS-QUAL (I) NOT = "2" AND WS-QUAL (I) NOT = "3" AND WS-QUAL (I) NOT = " " MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C1-QUAL(I) IF MOVE-MESSAGE SET NEW-CURSOR AT C1-QUAL(I) MOVE "QUAL MUST BE '0', '1', '2' OR '3'" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01845 550-ACCOUNT-LOOK-UP IF TIP (X) = "21" OR "41" OR "42" OR "43" OR "50" OR "51" OR "52" OR "53" OR "54" OR "55" OR "90" OR "60" #DELETE 01846 /01847 550-ACCOUNT-LOOK-UP #ADD 01925 550-ACCOUNT2-LOOK-UP IF WS-TYPE(X) = "21" OR "41" OR "42" OR "43" OR "50" OR "51" OR "52" OR "53" OR "54" OR "55" OR "90" OR "60" #DELETE 01926 /01927 550-ACCOUNT2-LOOK-UP #ENDSCN = BA05484 !*CMP2.12 06/04/02 SVCAFS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6028 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6028 * ******************************************************************************** #SCN = BA05485 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00013b0J * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for the account qualifier on screens * 3 and 4. * Dependency: Apply fixes to RQCAFS, SVCAFS, SCRNCAF and run * MAKE. * Reference: WO #020417-01 #ADD 00273 DATA DIVISION 15 MAC-QUAL PIC X. #ADD 00281X03 DATA DIVISION 05 LEFTOVER PIC X(122). #DELETE 00281X04 DATA DIVISION #ADD 00762 206-MOVE-DEPENDING-ACCTS MOVE QUAL OF SEG31 (I) TO MAC-QUAL(I). #ADD 02035 999-MOVE-DEPENDING-ACCTS MOVE MAC-QUAL (I) TO QUAL OF SEG31 (I). #ENDSCN = BA05485 !*CMP2.12 06/04/02 RQIDFS 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQIDFS RQIDFS 6055 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQIDFS RQIDFS 6055 * ******************************************************************************** #SCN = BA05486 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00115%0D * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for OTHER ACCT PROCESSING on screen * 2. In addition, added support for the OTHER * account type option for the FAST CASH ACCOUNT TYPE * on screen 13. * Dependency: Apply fixes to RQIDFS, SVIDFS, SCRNIDF, DDLFIDF * and reMAKE. * Reference: WO #020417-01 #ADD 00130g07 DATA DIVISION 05 WS-OTHER-ACCT-PROC-DESC PIC X(8). #ADD 00130z00 DATA DIVISION 05 FILLER PIC X(186). #DELETE 00130z01 DATA DIVISION #ADD 01002 400-VALIDATE-DATA IF OTHER-ACCT-TYP = SPACE MOVE "D" TO OTHER-ACCT-TYP. #ADD 01345 450-SET-UP-ADD IF OTHER-ACCT-TYP = SPACE MOVE "D" TO OTHER-ACCT-TYP. #ADD 01390 470-SET-UP-UPDATE IF OTHER-ACCT-TYP = SPACE MOVE "D" TO OTHER-ACCT-TYP. #REPLACE 01614U05/01614U05 OFFSET 0 481-ERR-FLAG-OV-2 481-FLAG-OV-2-FIELD-10, 481-FLAG-OV-2-FIELD-11 #ADD 01633 481-FLAG-OV-2-FIELD-10 481-FLAG-OV-2-FIELD-11. TURN TEMP SERROR IN I-OTHER-ACCT-PROC-OPT. SET NEW-CURSOR AT I-OTHER-ACCT-PROC-OPT. #ADD 02831 570-DISPLAY-OVERLAY-2 IF OTHER-ACCT-TYP = SPACES MOVE "D" TO OTHER-ACCT-TYP. #ADD 03118M01 595-CLEAR-DATA MOVE "D" TO OTHER-ACCT-TYP. #ENDSCN = BA05486 !*CMP2.12 06/04/02 SVIDFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVIDFS SVIDFS 6048 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVIDFS SVIDFS 6048 * ******************************************************************************** #SCN = BA05487 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00043v0E * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for OTHER ACCT PROCESSING on screen * 2. In addition, added support for the OTHER * account type option for the FAST CASH ACCOUNT TYPE * on screen 13. * Dependency: Apply fixes to RQIDFS, SVIDFS, SCRNIDF, DDLFIDF * and reMAKE. * Reference: WO #020417-01 #ADD 00123q0G DATA DIVISION 09 WS-OTHER-ACCT-PROC-DESC PIC X(8). 09 WS-PIN-TRIES-RESET-DESC PIC X(145). 09 FILLER PIC X(186). #DELETE 00123q0H/00123q0I DATA DIVISION #ADD 00947 480-BASE-DATA-CHECK IF OVERLAY-NUM = 2 IF OTHER-ACCT-TYP = SPACES ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "OTHER ACCOUNT PROCESSING MUST BE 'C' OR 'D'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01122g07 480-ATM-DATA-CHECK - "'31' OR '60'" TO WS-ERR-TXT #DELETE 01122g08 480-ATM-DATA-CHECK #ADD 02528b1W 550-TBL-LOOKUP IF OVERLAY-NUM = 2 MOVE SPACES TO WS-OTHER-ACCT-PROC-DESC IF OTHER-ACCT-TYP = "C" MOVE "(CREDIT) " TO WS-OTHER-ACCT-PROC-DESC ELSE IF OTHER-ACCT-TYP = "D" OR OTHER-ACCT-TYP = SPACES MOVE "(DEBIT ) " TO WS-OTHER-ACCT-PROC-DESC ELSE MOVE "(******)" TO WS-OTHER-ACCT-PROC-DESC. #ADD 02528b76 550-TBL-LOOKUP IF FAST-CASH-ACCT = "60" MOVE ACCT-TRAN(17) TO FAST-CASH-DESC ELSE #ENDSCN = BA05487 !*CMP2.12 06/04/02 RQPBFS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQPBFS RQPBFS 6026 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQPBFS RQPBFS 6026 * ******************************************************************************** #SCN = BA05489 , FILEID = RQPBFS #VOLUME = $ROOK.BA60AFT #FILE = RQPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00023Z0C * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for the OTHER account type option * for the ACCOUNT TYPE on screen 1. * Dependency: Apply fixes to RQPBFS, SVPBFS and run MAKE. * Reference: WO #020417-01 #ADD 00098R00 DATA DIVISION 41, 42, 43, 50 THRU 55, 60. #DELETE 00098R01 DATA DIVISION #ADD 01335 550-TABLE-LOOK-UP ELSE IF ACCT-TYP = "60" MOVE "60" TO HOLD-TYP PERFORM 550-SEARCH-TABLE VARYING I FROM 1 BY 1 UNTIL I > 18 #ENDSCN = BA05489 !*CMP2.12 06/04/02 SVPBFS 6020 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVPBFS SVPBFS 6020 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVPBFS SVPBFS 6020 * ******************************************************************************** #SCN = BA05490 , FILEID = SVPBFS #VOLUME = $ROOK.BA60AFT #FILE = SVPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6020 #NEWVERSION = 6021 #ADD 00013T0E * 01JUN2002 DLH/158 * Symptom: MAC MAS Release 6.0 Uplift. * Problem: None. * Fix: Uplifted the MAC MAS enhancement from 5.3 to 6.0. * Added support for the OTHER account type option * for the ACCOUNT TYPE on screen 1. * Dependency: Apply fixes to RQPBFS, SVPBFS and run MAKE. * Reference: WO #020417-01 #ADD 01379 906-DETERMINE-ACCT-TYPE ELSE IF REC-TYPE = "60" AND OTHER-ACCT-TYP OF SEG0 OF IDF = "D" MOVE "D" TO ACCT-FLAG ELSE IF REC-TYPE = "60" AND OTHER-ACCT-TYP OF SEG0 OF IDF = "C" MOVE "C" TO ACCT-FLAG #ENDSCN = BA05490 !*CMP2.12 06/25/02 RQCPFS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6049 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6049 * ******************************************************************************** #SCN = BA05524 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00022w0B * 10JUN2002 MEP/2128 * Symptom: Error on requester call when F9 pressed after an * incorrect FIID entered on screen 1 * Problem: When a user does a read of a record then types an * incorrect FIID on screen 1 and performs a read, * the correct record is returned but the FIID * displays the one entered and not the FIID of the * record. This also causes an error on the * requester call when F9, F11 and Go To Screen * functions are called. * Fix: Move the FIID of the record when re-displaying * Screen 1 after an incorrect value is entered in * the FIID. When F9, F11, and Go To screen are * requested if FIID on screen does not equal the * FIID of the CPF record, move the FIID of the CPF * to the screen. * Procs changed: * 245-FETCH-RECORD 200-GET-DATA * 800-PAGE-BACK-CPF * 800-NEXT-VALID-OVERLAY-CPF * Procs added: * 800-GO-TO-SCREEN-CPF * Dependency: Apply fix to RQCPFS and re-MAKE. * Reference: Case #348635 #REPLACE 00194 200-GET-DATA 800-GO-TO-SCREEN-CPF , #ADD 00323 245-FETCH-RECORD IF WS-FIID NOT = FIID OF USER-CONTEXT-EXT MOVE WS-FIID TO FIID OF USER-CONTEXT-EXT PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD ELSE PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD #DELETE 00324 /00325 245-FETCH-RECORD #ADD 01611w0X 800-PAGE-BACK-CPF IF WS-FIID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FIID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. #DELETE 01611w0Y 800-PAGE-BACK-CPF #ADD 01611w0k 800-NEXT-VALID-OVERLAY-CPF 800-GO-TO-SCREEN-CPF. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE "NO" TO VALID-DATA. IF INIT-FLAG NOT = 1 IF WS-FIID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FIID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT ELSE PERFORM 800-VALID-SCREEN PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. #ADD 01611w0v 800-NEXT-VALID-OVERLAY-CPF IF WS-FIID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FIID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. #DELETE 01611w0w 800-NEXT-VALID-OVERLAY-CPF #ENDSCN = BA05524 !*CMP2.12 06/24/02 SECTBL 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6007 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6007 * ******************************************************************************** #SCN = BA05525 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00268G0A * 22JUN2002 CM/1627 * Symptom: Support eCheck Transactions (Check Authorization * 3.1 enhancement Version 2). * Problem: None. * Fix: Added screen Transaction Detail Screen 3. * Added * 05 TDT3 PIC X(35) VALUE * "TDT 03001DTDT ROW DETAIL SCREEN 2 ". * under 01 PROD-SCRN-ACCESS-TABLE-DATA. * Added 1 to PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES. * Dependency: Apply fix and recompile SVISECS. * See the eCheck enhancement implementation guide * for complete installation instructions. * Reference: WO #001129-41 (CU015) #ADD 00781A02 05 TDT3 PIC X(35) VALUE "TDT 03001DTDT ROW DETAIL SCREEN 2 ". #ADD 00895G00 05 PROD-SCRN-ACC-TABL OCCURS 562 TIMES. #DELETE 00895G01 #ADD 00908G00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 562. #DELETE 00908G01 #ENDSCN = BA05525 !*CMP2.12 07/03/02 SECTBL 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6008 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6008 * ******************************************************************************** #SCN = BA05541 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00268H0G * 16MAY2002 DRA/124 BN/517 * Symptom: Add Dassault DH Support. * Problem: None * Fix: Added Dassault Device Screen #46 to the DCT Main * Menu. Increased PROD-SCRN-ACC-TABL 1 to 563 and * PROD-MAX-TABL-ENTRIES by 1 to 563. * Dependency: Restore files for the BA60AFT subvolume, modify * the appropriate CUSTMACS flags, and run Make. * Reference: WO #000211-01. #ADD 00463 05 DCT46 PIC X(35) VALUE "DCT 46001ADASSAULT DEVICE CONTROL ". #ADD 00893 05 PROD-SCRN-ACC-TABL OCCURS 563 TIMES. #DELETE 00894 /00896 #ADD 00906 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 563. #DELETE 00907 / L #ENDSCN = BA05541 !*CMP2.12 07/10/02 SVLNCFTS6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVLNCFTS SVLNCFTS 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVLNCFTS SVLNCFTS 6002 * ******************************************************************************** #SCN = BA06001 , FILEID = SVLNCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00043B0G ! 10JUL2002 jfu/543 mjd/1573 ! Symptom: Incompatibility between LNCF Server and BASE24 ! Configuration Manager ! Problem: Trap 0 (invalid address) occurred when the number of ! opened LCONF files exceeded the maximum allowed in the ! LNCF table. The LNCF-UTIL-MSG-LOG procedure passed ! along optional params to the LNCF-UTIL-MSG-LOG-FRMT ! procedure even though the params were not passed in ! original call to LNCF-UTIL-MSG-LOG. ! The BASE24 Configuration Manager in capture mode ! changed the LCONF file name, and the new file name was ! placed in the LNCF table instead of the file name ! from the requester. When the LNCF table was searched ! with the file name from the requester, a match was not ! found and the trap 0 error occurred on the sixth ! message from the requester. ! Fix: Only pass along the optional params to the ! LNCF-UTIL-MSG-LOG-FRMT procedure if it is present. ! Add a search LCONF file name entry to the LNCF table ! that stores the LCONF file name from the requester. ! Change the LNCF table search logic to search for the ! search (requester) file name, not the LCONF file name ! actually used for I/O. ! Modified procs: lncf_a_init ! lncf_util_file_idx_get ! lncf_util_msg_log ! lncf_util_tbl_maint ! Dependency: Apply fix to SVLNCFTG, SVLNCFTS and run Make. ! Reference: Case #349737 #DELETE 00043B0H #ADD 00290 LNCF_A_INIT lncf_tbl_g[ i ].srch_lncf_fnam ':=' null_fname_d; #ADD 04091 LNCF_UTIL_FILE_IDX_GET temp_fnam ':=' tbl.srch_lncf_fnam for fic_lgth_fname_l; #DELETE 04092 LNCF_UTIL_FILE_IDX_GET #REPLACE 05489 /05489 OFFSET 0 LNCF_UTIL_MSG_LOG opt_param_d( param1 ), opt_param_d( param2 ), opt_param_d( param3 ) ); #ADD 08442 LNCF_UTIL_TBL_MAINT ! ! Save the LNCF filename from the requester as the search ! filename entry in the LNCF table prior to the LNCF open in ! case the BASE24 Configuration Manager (BCM) changes the ! LNCF filename during the file open. ! lncf_tbl_g[ cur_lncf_idx_g ].srch_lncf_fnam ':=' rec_image.lncf_nam for fic_lgth_fname_l; #ENDSCN = BA06001 !*CMP2.12 07/10/02 SVLNCFTG6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVLNCFTG SVLNCFTG 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVLNCFTG SVLNCFTG 6001 * ******************************************************************************** #SCN = BA06002 , FILEID = SVLNCFTG #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00043A0D ! 10JUL2002 jfu/543 mjd/1573 ! Symptom: Incompatibility between LNCF Server and BASE24 ! Configuration Manager. ! Problem: The BASE24 Configuration Manager in capture mode ! changed the LCONF file name, and the new file name was ! placed in the LNCF table instead of the file name ! from the requester. When the LNCF table was searched ! with the file name from the requester, a match was not ! found and the trap 0 error occurred on the sixth ! message from the requester. ! Fix: Add a search LCONF file name entry to LNCF Table that ! stores the LCONF file name from the requester. This ! will enable a match on the LCONF file name when the ! BASE24 Configuration Manager changes the LCONF file ! name received from the requester. ! Dependency: Apply fix to SVLNCFTG, SVLNCFTS, and run Make. ! Reference: Case #349737 #ADD 00509 string srch_lncf_fnam[ 0: ( fic_lgth_fname_l - 1 ) ]; #ENDSCN = BA06002 !*CMP2.12 07/24/02 SECTBL 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6009 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6009 * ******************************************************************************** #SCN = BA06022 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00268I09 * 28JUL2002 CLR/451 * Symptom: Stored Value History File is on the Base Product * Menu * Problem: Should be on the POS Product Menu * Fix: Modified SVHF entries to point to the POS menu. * Modified ACNF screen 8 to point to 00 segment. * Dependency: Apply fix to SECTBL, SVMHLPS and run MAKE. * Reference: Case #348307 #DELETE 00268I0A/00268G0B #REPLACE 00307G01 05 ACNF8 PIC X(35) VALUE "ACNF080002PAGE 7 OF REC F ". #REPLACE 00779G01 05 SVHF1 PIC X(35) VALUE "SVHF010002SVHF KEY SCREEN ". #ENDSCN = BA06022 !*CMP2.12 07/30/02 SVMHLPS 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6007 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6007 * ******************************************************************************** #SCN = BA06023 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00101G0A * 28JUL2002 CLR/451 * Symptom: Stored Value History File on the Base Product Menu * Problem: Should be on the POS Product Menu * Fix: Added SVHF to POS-TABLE. Incremented POS-ENTRY * and POS-ENTRIES-L. * Removed SVHF from BASE-TABLE. Decremented * BASE-ENTRY and BASE-ENTRIES-L. * Dependency: Apply fix to SECTBL, SVMHLPS and run MAKE. * Reference: Case #348307 #DELETE 00192G00/00192G03 DATA DIVISION #REPLACE 00203G01 DATA DIVISION 05 BASE-ENTRY OCCURS 31 TIMES. #REPLACE 00206G01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 31. #ADD 00291 DATA DIVISION 05 FILLER PIC X(31) VALUE "SVHFSTORED VALUE HISTORY FILE ". #REPLACE 00296D01 DATA DIVISION 05 POS-ENTRY OCCURS 29 TIMES. #REPLACE 00299D01 DATA DIVISION 01 POS-ENTRIES-L PIC S9(4) COMP VALUE 29. #ENDSCN = BA06023 !*CMP2.12 08/06/02 SECTBL 6010 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6010 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6010 * ******************************************************************************** #SCN = BA06035 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6010 #NEWVERSION = 6011 #ADD 00268J0C * 06AUG2002 WSR/406 * Symptom: Base24-refunds release 3.1 version 4 enhancements * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * RAA17, RAF17, RAI17, and RAP17. Increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 4 * Dependency: Apply fix and recompile SVISECS. * Reference: WO #020129-41 (Addition of Selling Employee ID). * WO #020129-43 (Table/Column Additions). #ADD 00307A06 05 RAA17 PIC X(35) VALUE "ACTA17001EEXPANDED AUTH LID INFO ". #ADD 00307A0G 05 RAF17 PIC X(35) VALUE "ACTF17001EEXPANDED AUTH LID INFO ". #ADD 00307A0Q 05 RAI17 PIC X(35) VALUE "ACTI17001EEXPANDED AUTH LID INFO ". #ADD 00307A10 05 RAP17 PIC X(35) VALUE "ACTP17001EEXPANDED AUTH LID INFO ". #REPLACE 00893I01 05 PROD-SCRN-ACC-TABL OCCURS 567 TIMES. #REPLACE 00906I01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 567. #ENDSCN = BA06035 !*CMP2.13 10/21/02 RQCAFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6048 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6048 * ******************************************************************************** #SCN = BA06108 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00023v0A * 21OCT2002 BJK/1691 * Symptom: When the record being viewed has accounts linked * to it (visible on screens 3 and/or 4) and F6 is * pressed to read the next record which doesn't * have any accounts linked, the accounts from the * previous record still appear on screens 3 and/or * 4, although they do not exist on disk. * Problem: A fix was made to allow cards other than ST and SP * to not have any accounts linked to it. The error * message no longer appears, but the account * counter, WS-ACCT-CNT, is not getting reset. * Fix: A previous fix was made in SVCAFS to add the * account segment, SEG31, when no accounts were * linked and to set the segment length to 8. The * account length will now be checked to determine * if the length of SEG31 is equal to 8. If it is, * the ACCT-CNT in SEG31 will be set to 0, which in * turn sets WS-ACCT-CNT to 0. * Modified Procs: * 400-DO-REST-OF-MOVES * Dependency: Apply fixes to RQCAFS and SVCAFS and run MAKE. * Reference: Case #354303 #ADD 00600 400-DO-REST-OF-MOVES * * The length of SEG31 will be 8 if no accounts are linked and * the card type is not ST or SP. * IF ACCT-CNT < 0 OR ACCT-CNT > 16 OR LGTH OF SEG-LGTH OF SEG31 = 8 MOVE 0 TO ACCT-CNT. #DELETE 00601 /00602 400-DO-REST-OF-MOVES #ENDSCN = BA06108 !*CMP2.13 10/21/02 SVCAFS 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6029 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6029 * ******************************************************************************** #SCN = BA06109 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00013c0A * 21OCT2002 BJK/1691 * Symptom: When the record being viewed has accounts linked * to it (visible on screens 3 and/or 4) and F6 is * pressed to read the next record which doesn't * have any accounts linked, the accounts from the * previous record still appear on screens 3 and/or * 4, although they do not exist on disk. * Problem: A fix was made to allow cards other than ST and SP * to not have any accounts linked to it. The error * message no longer appears, but the account * counter, ACCT-CNT, is not getting reset. * Fix: When the card type is ST or SP, ACCT-CNT in SEG31 * will be set to 0 to ensure that screens 3 and/or * 4 reflect the record on disk and no account * information is displayed. * Modified Procs: * 930-CHECK-SSB-VALUES * Dependency: Apply fixes to RQCAFS and SVCAFS and run MAKE. * Reference: Case #354303 #ADD 01987N0H 930-CHECK-SSB-VALUES * * Since the card type is ST or SP and SEG31 cannot exist with * these type of cards, make sure the account count is set to * zero to reflect that there are no accounts linked. The * requester uses the ACCT-CNT to determine if there are accounts * linked to this card. * MOVE ZERO TO ACCT-CNT OF SEG31 OF CAF #ENDSCN = BA06109 !*CMP2.13 11/13/02 SVCPFS 6024 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6024 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6024 * ******************************************************************************** #SCN = BA06134 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6024 #NEWVERSION = 6025 #ADD 00017X0B * 13NOV2002 MEP/2128 * Symptom: After changing LNETs, records are added to the * wrong LNET. * Problem: The FILE-INDICATOR may get reset erroneously which * causes the records to be written to the wrong LNET * Fix: Call 923-FILL-INSTITUTION-TBL to determine the * correct file indicator when doing a read next as * all other record functions call. * Procs modified: * 600-READ-NEXT-RCD * Dependency: Fix SVCPFS and run MAKE. * Reference: Case #354923 #ADD 00828U01 600-READ-NEXT-RCD PERFORM 923-FILL-INSTITUTION-TBL. #DELETE 00828U02/00834 600-READ-NEXT-RCD #ENDSCN = BA06134 !*CMP2.13 12/02/02 PITABLE 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.PITABLE PITABLE 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.PITABLE PITABLE 6003 * ******************************************************************************** #SCN = BA06142 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00060C0A * 27NOV2002 CLR/451 * Symptom: Security Server can't display descriptions for CSM * Product. * Problem: Lengths of some entries in PRODUCT-DESC-TABLE are * too long. * Fix: Changed length of entries 60-99 and 160-199 in * the PRODUCT-DESC-TABLE from 16 to 12. * Dependency: Apply fix to PITABLE and run MAKE. * Reference: Case #355823 #ADD 00407 05 AMER-FILLER-60 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-61 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-62 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-63 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-64 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-65 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-66 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-67 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-68 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-69 PIC X(12) VALUE "UNDEFINED ". * 70-79 Reserved for use by Asia / Pacific Development. 05 AP-FILLER-70 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-71 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-72 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-73 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-74 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-75 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-76 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-77 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-78 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-79 PIC X(12) VALUE "UNDEFINED ". * 80-89 Reserved for use by EMEA Development. 05 EMEA-FILLER-80 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-81 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-82 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-83 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-84 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-85 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-86 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-87 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-88 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-89 PIC X(12) VALUE "UNDEFINED ". * 90-99 Reserved for use by Customer Specific Development. 05 CSM-FILLER-90 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-91 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-92 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-93 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-94 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-95 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-96 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-97 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-98 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-99 PIC X(12) VALUE "UNDEFINED ". #DELETE 00408 /00450 #ADD 00511 05 AMER-FILLER-160 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-161 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-162 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-163 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-164 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-165 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-166 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-167 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-168 PIC X(12) VALUE "UNDEFINED ". 05 AMER-FILLER-169 PIC X(12) VALUE "UNDEFINED ". * 170-179 Reserved for use by Asia / Pacific Development. 05 AP-FILLER-170 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-171 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-172 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-173 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-174 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-175 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-176 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-177 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-178 PIC X(12) VALUE "UNDEFINED ". 05 AP-FILLER-179 PIC X(12) VALUE "UNDEFINED ". * 180-189 Reserved for use by EMEA Development. 05 EMEA-FILLER-180 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-181 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-182 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-183 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-184 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-185 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-186 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-187 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-188 PIC X(12) VALUE "UNDEFINED ". 05 EMEA-FILLER-189 PIC X(12) VALUE "UNDEFINED ". * 190-199 Reserved for use by Customer Specific Development. 05 CSM-FILLER-190 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-191 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-192 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-193 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-194 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-195 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-196 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-197 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-198 PIC X(12) VALUE "UNDEFINED ". 05 CSM-FILLER-199 PIC X(12) VALUE "UNDEFINED ". #DELETE 00512 /00554 #ENDSCN = BA06142 !*CMP2.13 12/02/02 RQSECS 6020 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQSECS RQSECS 6020 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQSECS RQSECS 6020 * ******************************************************************************** #SCN = BA06143 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6020 #NEWVERSION = 6021 #ADD 00019T0J * 27NOV2002 CLR/451 * Symptom: SEC server not showing all files on file access * after a call to NCSS Requester. * Problem: NCSS server does not handle extended messages. * If a product greater than 32 is used, data from * SITE-PROD-IND / USER-PROD-IND in USER-CONTEXT-EXT * are lost after the call to the NCSS requester. * Fix: Save the data from SITE-PROD-IND and USER-PROD-IND * in USER-CONTEXT-EXT to temporary variables when * filling USER-CONTEXT to send the the NCSS * requester. Move the data back into * USER-CONTEXT-EXT after the call to the requester. * Paragraphs modified: * 800-SEND-NCSS-RQST * Dependency: Apply fix to RQSECS and run MAKE. * Reference: Case: #352849 **************************************************************** #DELETE 00019T0K/00019S0B IDENTIFICATION DIVISION #ADD 00037C04 DATA DIVISION 01 TEMP-USER-PROD-IND-EXT PIC X(256). 01 TEMP-SITE-PROD-IND-EXT PIC X(256). #ADD 00931T07 800-SEND-NCSS-RQST MOVE USER-PROD-IND OF USER-CONTEXT-EXT TO TEMP-USER-PROD-IND-EXT. MOVE SITE-PROD-IND OF USER-CONTEXT-EXT TO TEMP-SITE-PROD-IND-EXT. #ADD 00931O0F 800-SEND-NCSS-RQST MOVE TEMP-USER-PROD-IND-EXT TO USER-PROD-IND OF USER-CONTEXT-EXT MOVE TEMP-SITE-PROD-IND-EXT TO SITE-PROD-IND OF USER-CONTEXT-EXT. #ENDSCN = BA06143 !*CMP2.13 12/08/02 SVCPFS 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6025 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6025 * ******************************************************************************** #SCN = BA06147 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00017Y0C * 08DEC2002 MEP/2128 * Symptom: After changing LNETs, records are added to the * wrong LNET. * Problem: The FILE-INDICATOR is still not always updated to * accurately reflect which LNET is currently in use * so records may be added to the wrong logical net. * Fix: Call 908-DETERMINE-LNET after the call to * 923-FILL-INSTITUTION-TBL to determine the * correct file indicator when doing a read next as * all other record functions call. * Procs modified: * 600-READ-NEXT-RCD * Dependency: Fix SVCPFS and run MAKE. * Reference: Case #354923 #DELETE 00828U01 600-READ-NEXT-RCD #ADD 00828Y05 600-READ-NEXT-RCD IF NO-ERROR PERFORM 908-DETERMINE-LNET VARYING J FROM 1 BY 1 UNTIL J > MAX-L-NETS #REPLACE 00835 /00837 600-READ-NEXT-RCD IF SAVE-KEY NOT = SPACES MOVE SAVE-KEY TO PRIKEY OF CPF ELSE #REPLACE 00837W01/00837W02 600-READ-NEXT-RCD MOVE REC-IMAGE-CPF OF MESSAGE-IO TO CPF PERFORM 620-CLEAR-SEG9. #ENDSCN = BA06147 !*CMP2.13 12/12/02 RQCPFS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6050 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6050 * ******************************************************************************** #SCN = BA06151 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00022x0O * 08DEC2002 VD/800 * Symptom: N5XXX CPM & BNA Enhancement. * Problem: None. * Fix: Modified code to support the CASH-DEP-CR-PERCENT * and CR-PER-CASH-DEP-LMT fields in the ATM segment. * Modified: 595-CLEAR-DATA * 400-MOVE-RECORD * Added: 480-ERR-FLAG-OV-4 * 480-FLAG-OV-4-FIELD-12 * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS, * and re-MAKE. * Reference: WO #020229-01 (N5XXX CPM and BNA Enhancement) #ADD 00465d0D 400-MOVE-RECORD IF CASH-DEP-CR-PERCENT > 100 MOVE ZERO TO CASH-DEP-CR-PERCENT, CR-PER-CASH-DEP-LMT. #ADD 00670w60 480-ERR-FLAG-OV-4 480-FLAG-OV-4-FIELD-13, 480-FLAG-OV-4-FIELD-14, #ADD 00670w6g 480-FLAG-OV-4-FIELD-12 480-FLAG-OV-4-FIELD-13. TURN TEMP SERROR IN P-CASH-DEP-CR-PERCENT. SET NEW-CURSOR AT P-CASH-DEP-CR-PERCENT. 480-FLAG-OV-4-FIELD-14. TURN TEMP SERROR IN P-CR-PER-CASH-DEP-LMT. SET NEW-CURSOR AT P-CR-PER-CASH-DEP-LMT. #ADD 01550 595-CLEAR-DATA CASH-DEP-CR-PERCENT, CR-PER-CASH-DEP-LMT, #ENDSCN = BA06151 !*CMP2.13 12/12/02 SVCPFS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6026 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6026 * ******************************************************************************** #SCN = BA06153 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00017Z0E * 08DEC2002 VD/800 * Symptom: N5XXX CPM & BNA Enhancement. * Problem: None. * Fix: Modified code to support the CASH-DEP-CR-PERCENT * and CR-PER-CASH-DEP-LMT fields in the ATM segment. * Modified: 480-DATA-CHECK-SCREEN4 * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS, * and re-MAKE. * Reference: WO #020229-01 (N5XXX CPM and BNA Enhancement) #ADD 00749XDE 480-DATA-CHECK-SCREEN4 IF CASH-DEP-CR-PERCENT OF SEG1 OF CPF > 100 ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CASH DEPOSIT CREDIT PERCENT MUST BE 0 TO 100 %" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CASH-DEP-CR-PERCENT OF SEG1 OF CPF > 0 AND DEP-CR-LMT OF SEG1 OF CPF > 0 IF CR-PER-CASH-DEP-LMT OF SEG1 OF CPF > DEP-CR-LMT OF SEG1 OF CPF ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAX CREDIT PER DEPOSIT MUST NOT EXCEED MAX D - "EPOSIT CREDIT AMOUNT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CASH-DEP-CR-PERCENT OF SEG1 OF CPF > 0 IF CR-PER-CASH-DEP-LMT OF SEG1 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MAXIMUM CREDIT PER CASH DEPOSIT REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA06153 !*CMP2.13 11/27/02 RQICFES 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQICFES RQICFES 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQICFES RQICFES 6000 * ******************************************************************************** #SCN = BA06140 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00049 * 25NOV2002 DOO/1693 * Symptom: Multiple Currency, Format 2, Discretionary Data, * and Switch Token Enhancements. * Problem: None. * Fix: Added Multiple Currency compatibility support. * Modified paragraphs: 400-MOVE-RECORD * 400-SAVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to DDLFICFE, RQICFES, and SCRNICFE and * re-MAKE. * Reference: WO #020627-01 #ADD 00129 DATA DIVISION 05 WS-MULT-CRNCY PIC X. #ADD 00733 400-MOVE-RECORD IF MULT-CRNCY = 1 MOVE "Y" TO WS-MULT-CRNCY ELSE IF MULT-CRNCY = 0 MOVE "N" TO WS-MULT-CRNCY. #ADD 00778 400-SAVE-RECORD IF WS-MULT-CRNCY = "Y" MOVE 1 TO MULT-CRNCY ELSE IF WS-MULT-CRNCY = "N" MOVE 0 TO MULT-CRNCY. #ADD 01049 480-DATA-CHECK IF WS-OVERLAY = 3 IF WS-MULT-CRNCY NOT = "Y" AND "N" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MULT-CRNCY IF MOVE-MESSAGE SET NEW-CURSOR AT S-MULT-CRNCY MOVE "MULTI CURRENCY MUST BE 'Y' OR 'N'" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01901 595-CLEAR-DATA MOVE ZERO TO MULT-CRNCY. #ADD 01960 595-CLEAR-DATA MOVE "N" TO WS-MULT-CRNCY. #ENDSCN = BA06140 !*CMP2.13 12/30/02 RQTCFXS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQTCFXS RQTCFXS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQTCFXS RQTCFXS 6000 * ******************************************************************************** #SCN = BA06164 , FILEID = RQTCFXS #VOLUME = $ROOK.BA60AFT #FILE = RQTCFXS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00051 * 30DEC2002 MEP/2128 * Symptom: Last record read is deleted instead of record * requested for deletion. * Problem: Program was not moving the transaction code * entered on the screen prior to deleting the * record. * Fix: Save the transaction code entered on the screen * prior to deleting the record. * Modified procs: * 460-SET-UP-DELETE. * Dependency: Apply fix to RQTCFXS and re-make. * Reference: Case #357288 #REPLACE 00523 460-SET-UP-DELETE PERFORM 400-SAVE-RECORD #ENDSCN = BA06164 !*CMP2.13 01/06/03 RQICFES 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQICFES RQICFES 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQICFES RQICFES 6001 * ******************************************************************************** #SCN = BA06166 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00049A0C * 03JAN2003 ahs/3152 * Symptom: The Adjustment Flag field (ADJ-FLG) in the POS * internal message is set "Y" or "N" on incoming * requests to RTAU, but RTAU expects "0" or "1". * Problem: The requester was saving the adjusment flag as "Y" * or "N" without translating it to 0" or "1". * Fix: Modified the requester to translate the adjustment * flag from "Y" and "N" when displayed to "0" and * "1" when the record is saved or read from file. * Modified paragraphs: 400-MOVE-RECORD * 400-SAVE-RECORD * Dependency: Apply fix to RQICFES and re-MAKE. Then perform a * READ followed by an UPDATE for all ICFE records to * change the adjustment flag stored in the ICFE * records. * Reference: Case #355837 #ADD 00733A06 400-MOVE-RECORD IF ADJ-FLG OF SEG2 = "0" MOVE "N" TO ADJ-FLG OF SEG2 ELSE IF ADJ-FLG OF SEG2 = "1" MOVE "Y" TO ADJ-FLG OF SEG2 #ADD 00778A06 400-SAVE-RECORD IF ADJ-FLG OF SEG2 = "N" MOVE "0" TO ADJ-FLG OF SEG2 ELSE IF ADJ-FLG OF SEG2 = "Y" MOVE "1" TO ADJ-FLG OF SEG2 #ENDSCN = BA06166 !*CMP2.13 01/15/03 RQCPFS 6051 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6051 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6051 * ******************************************************************************** #SCN = BA06183 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6051 #NEWVERSION = 6052 #ADD 00022y0D * 15JAN2003 SPA/211 * Symptom: Offline PIN Management Enhancement 01 * Problem: None. * Fix: Process the new fields added to CPF EMV screen 11 * OFFL-PIN-BAD-EXCD-ACT and OFFL-PIN-MGMT-ACT for * management of Offline PIN transactions. * Dependency: Apply fix to DDLFCPF, SCRNCPF, SVCPFS and run * MAKE. * Refer to BA60UD06.SCNPPOS2 for a complete listing * of dependencies. * Reference: WO #020715-04 #ADD 00060u04 DATA DIVISION 05 WS-BAD-OFFL-PIN-DESC PIC X(30). 05 WS-OFFL-PIN-MGMT-DESC PIC X(30). #DELETE 00060u05 DATA DIVISION #DELETE 00060o06/00060d00 DATA DIVISION #ADD 00670wAA 480-ERR-FLAG-OV-11 480-FLAG-OV-11-FIELD-18, 480-FLAG-OV-11-FIELD-19 #ADD 00670wAn 480-FLAG-OV-11-FIELD-10 480-FLAG-OV-11-FIELD-10. TURN TEMP SERROR IN P-ATC-CHK. SET NEW-CURSOR AT P-ATC-CHK. 480-FLAG-OV-11-FIELD-11. TURN TEMP SERROR IN P-FORCE-ONL-FALLBACK-CHK. SET NEW-CURSOR AT P-FORCE-ONL-FALLBACK-CHK. 480-FLAG-OV-11-FIELD-12. TURN TEMP SERROR IN P-BAD-OFFL-PIN-ACTN. SET NEW-CURSOR AT P-BAD-OFFL-PIN-ACTN. 480-FLAG-OV-11-FIELD-13. TURN TEMP SERROR IN P-OFFL-PIN-MGMT-ACTN. SET NEW-CURSOR AT P-OFFL-PIN-MGMT-ACTN. 480-FLAG-OV-11-FIELD-14. TURN TEMP SERROR IN P-FALLBACK-ACTN-ATM. SET NEW-CURSOR AT P-FALLBACK-ACTN-ATM. 480-FLAG-OV-11-FIELD-15. TURN TEMP SERROR IN P-FALLBACK-ACTN-POS. SET NEW-CURSOR AT P-FALLBACK-ACTN-POS. 480-FLAG-OV-11-FIELD-16. TURN TEMP SERROR IN P-STATUS-CHECK-ACT-INDEX. SET NEW-CURSOR AT P-STATUS-CHECK-ACT-INDEX. 480-FLAG-OV-11-FIELD-17. TURN TEMP SERROR IN P-EMV-ISS-APPL-DATA. SET NEW-CURSOR AT P-EMV-ISS-APPL-DATA. 480-FLAG-OV-11-FIELD-18. TURN TEMP SERROR IN P-EMV-PREFIX-ROUTING. SET NEW-CURSOR AT P-EMV-PREFIX-ROUTING. 480-FLAG-OV-11-FIELD-19. TURN TEMP SERROR IN P-EMV-ISS. SET NEW-CURSOR AT P-EMV-ISS. #DELETE 00670wAo/00670wBI 480-FLAG-OV-11-FIELD-17 #ADD 01416u10 550-TABLE-LOOK-UP MOVE SPACES TO WS-BAD-OFFL-PIN-DESC. IF OFFL-PIN-BAD-EXCD-ACT = "0" MOVE "(CONTINUE)" TO WS-BAD-OFFL-PIN-DESC ELSE IF OFFL-PIN-BAD-EXCD-ACT = "1" MOVE "(DENY & RETURN CARD)" TO WS-BAD-OFFL-PIN-DESC ELSE IF OFFL-PIN-BAD-EXCD-ACT = "3" MOVE "(SEND 'PIN UNBLOCK' SCRIPT)" TO WS-BAD-OFFL-PIN-DESC ELSE MOVE "(****************************)" TO WS-BAD-OFFL-PIN-DESC. MOVE SPACES TO WS-OFFL-PIN-MGMT-DESC. IF OFFL-PIN-MGMT-ACT = "0" MOVE "(CONTINUE)" TO WS-OFFL-PIN-MGMT-DESC ELSE IF OFFL-PIN-MGMT-ACT = "1" MOVE "(SEND SCRIPT)" TO WS-OFFL-PIN-MGMT-DESC ELSE IF OFFL-PIN-MGMT-ACT = "2" MOVE "(SEND SCRIPT & LOG DATA)" TO WS-OFFL-PIN-MGMT-DESC ELSE MOVE "(****************************)" TO WS-OFFL-PIN-MGMT-DESC. #ADD 01570u0L 595-CLEAR-DATA MOVE "0" TO OFFL-PIN-BAD-EXCD-ACT. MOVE "0" TO OFFL-PIN-MGMT-ACT. #DELETE 01570u0M/01570u0O 595-CLEAR-DATA #ENDSCN = BA06183 !*CMP2.13 01/15/03 SVCPFS 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6027 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6027 * ******************************************************************************** #SCN = BA06186 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00017a0A * 15JAN2003 SP/211 * Symptom: Offline PIN Management Enhancement 01 * Problem: None. * Fix: Validate and process the new fields added to CPF * EMV screen 11 OFFL-PIN-BAD-EXCD-ACT and * OFFL-PIN-MGMT-ACT for management of Offline PIN * transactions. * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS and * run MAKE. * Refer to BA60UD06.SCNPPOS2 for a complete listing * of dependencies. * Reference: WO #020715-04 #ADD 00399X0O DATA DIVISION 01 WS-BAD-OFFL-PIN-ERR-MSG. 05 FILLER PIC X(45) VALUE "BAD OFFLINE PIN RETIES EXCEED ACTION MUST BE ". 05 FILLER PIC X(23) VALUE "0, 1 OR 3". #REPLACE 00749XLJ 480-DATA-CHECK-SCREEN11 MOVE 9 TO FLD-ID-NUM(ERR-CNT) #ADD 00749XLg 480-DATA-CHECK-SCREEN11 IF OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-BAD-OFFL-PIN-ERR-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "2" ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PIN MANAGEMENT ACTION MUST BE 0,1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749XMD 480-DATA-CHECK-SCREEN11 MOVE 17 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XMM 480-DATA-CHECK-SCREEN11 MOVE 18 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XMU 480-DATA-CHECK-SCREEN11 MOVE 19 TO FLD-ID-NUM(ERR-CNT) #ENDSCN = BA06186 !*CMP2.13 01/15/03 RQCAFS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6049 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6049 * ******************************************************************************** #SCN = BA06199 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00023w0N * 15JAN2003 SP/211 * Symptom: Offline PIN Management Enhancement 01 * Problem: None. * Fix: Modified the code to process the following new * fields on CAF EMV screen 13: * - ACCESS-SCRIPT-MGMT-SUB-SYS, * - DATA-TAG, * - ISS-APPL-DATA-FRMT, * - PIN-SYNC-ACT, * - SEND-PIN-CHNG, * - SEND-PIN-UNBLK. * Modified: 480-DATA-CHECK * 550-TABLE-LOOK-UP-OVERLAY-13 * 595-CLEAR-DATA. * Dependency: Apply fix to DDLFCAF, SCRNCAF, RQCAFS and * run MAKE. * Refer to BA60UD06.SCNPPOS2 for a complete listing * of dependencies. * Reference: WO #020715-04 #ADD 00132 DATA DIVISION 01 WS-SEG9. 05 WS-SEND-PIN-UNBLK-DESC PIC X(30) VALUE SPACES. 05 WS-SEND-PIN-CHNG-DESC PIC X(30) VALUE SPACES. 05 WS-PIN-SYNC-ACT-DESC PIC X(30) VALUE SPACES. #ADD 01354l0M 480-DATA-CHECK IF WS-OVERLAY = 13 IF NOT (SEND-PIN-UNBLK OF SEG9 = "0" OR "1" OR "2" OR "3") MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-SEND-PIN-UNBLK IF MOVE-MESSAGE MOVE "SEND PIN UNBLOCK MUST BE 0, 1, 2 OR 3" TO ERR-TXT SET NEW-CURSOR AT C-SEND-PIN-UNBLK MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 13 IF NOT (SEND-PIN-CHNG OF SEG9 = "0" OR "1" OR "2" OR "3") MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-SEND-PIN-CHNG IF MOVE-MESSAGE MOVE "SEND PIN CHANGE MUST BE 0, 1, 2 OR 3" TO ERR-TXT SET NEW-CURSOR AT C-SEND-PIN-CHNG MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 13 IF NOT (PIN-SYNC-ACT OF SEG9 = "0" OR "1") MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN C-PIN-SYNC-ACT IF MOVE-MESSAGE MOVE "ONLINE/OFFLINE PIN SYNC MUST BE 0 OR 1" TO ERR-TXT SET NEW-CURSOR AT C-PIN-SYNC-ACT MOVE "N" TO FLAG-MOVE. #ADD 01699c2J 550-TABLE-LOOK-UP-OVERLAY-13 IF SEND-PIN-UNBLK OF SEG9 = "0" MOVE "(NO ACTION)" TO WS-SEND-PIN-UNBLK-DESC ELSE IF SEND-PIN-UNBLK OF SEG9 = "1" MOVE "(IMPLICIT)" TO WS-SEND-PIN-UNBLK-DESC ELSE IF SEND-PIN-UNBLK OF SEG9 = "2" MOVE "(EXPLICIT)" TO WS-SEND-PIN-UNBLK-DESC ELSE IF SEND-PIN-UNBLK OF SEG9 = "3" MOVE "(IMPLICIT & EXPLICIT)" TO WS-SEND-PIN-UNBLK-DESC ELSE MOVE "(****************************)" TO WS-SEND-PIN-UNBLK-DESC. IF SEND-PIN-CHNG OF SEG9 = "0" MOVE "(NO ACTION)" TO WS-SEND-PIN-CHNG-DESC ELSE IF SEND-PIN-CHNG OF SEG9 = "1" MOVE "(PIN UNBLOCK RCVD)" TO WS-SEND-PIN-CHNG-DESC ELSE IF SEND-PIN-CHNG OF SEG9 = "2" MOVE "(PIN CHANGE RCVD)" TO WS-SEND-PIN-CHNG-DESC ELSE IF SEND-PIN-CHNG OF SEG9 = "3" MOVE "(PIN UNBLOCK/CHANGE RCVD)" TO WS-SEND-PIN-CHNG-DESC ELSE MOVE "(****************************)" TO WS-SEND-PIN-CHNG-DESC. IF PIN-SYNC-ACT OF SEG9 = "0" MOVE "(NO ACTION)" TO WS-PIN-SYNC-ACT-DESC ELSE IF PIN-SYNC-ACT OF SEG9 = "1" MOVE "(PIN SYNC REQUIRED)" TO WS-PIN-SYNC-ACT-DESC ELSE MOVE "(****************************)" TO WS-PIN-SYNC-ACT-DESC. #ADD 02183i01 595-CLEAR-DATA MOVE ZEROES TO ACCESS-SCRIPT-MGMT-SUB-SYS OF SEG9, ATC OF SEG9, ISS-APPL-DATA-FRMT OF SEG9, PIN-SYNC-ACT OF SEG9, SEND-PIN-CHNG OF SEG9, SEND-PIN-UNBLK OF SEG9, DATA-TAG OF VLCTY-LMTS OF SEG9, LWR-CONSEC-LMT OF VLCTY-LMTS OF SEG9. MOVE "N" TO SEND-CRD-BLK OF SEG9, SEND-PUT-DATA OF SEG9. MOVE 9999 TO ATC-LMT OF SEG9. #DELETE 02183i02/02184i01 595-CLEAR-DATA #DELETE 02190l00/02197 595-ZERO-PRE-AUTHS-OF-CAF #ENDSCN = BA06199 !*CMP2.13 01/28/03 RQEMFS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQEMFS RQEMFS 6046 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQEMFS RQEMFS 6046 * ******************************************************************************** #SCN = BA06207 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00020t0V * 28JAN2003 JFP/1694 * Symptom: Dutch NBGC Switch Uplift * Problem: None. * Fix: Added support for NBGC interface type. * Modified: 500-DISPLAY-DEFAULTS * Dependency: New subvolume SW60NBGC. Apply corresponding * fixes to SECUTILS, HISWUTLS, SVEMFS and RQEMFS, * and run MAKE. * Reference: WO #020811-02. #REPLACE 01129X02 500-DISPLAY-DEFAULTS IF INTERFACE-TYP = "HOST" OR "FHM" OR "NBGC" #REPLACE 01129o06/01129o07 500-DISPLAY-DEFAULTS MOVE "INTERF TYP MUST BE HOST, FHM, BIC, NCR, VRU, IPDH, - " SAA, NBGC" TO ERR-TXT #ENDSCN = BA06207 !*CMP2.13 01/28/03 SVEMFS 6013 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVEMFS SVEMFS 6013 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVEMFS SVEMFS 6013 * ******************************************************************************** #SCN = BA06208 , FILEID = SVEMFS #VOLUME = $ROOK.BA60AFT #FILE = SVEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6013 #NEWVERSION = 6014 #ADD 00015M0D * 28JAN2003 JFP/1694 * Symptom: Dutch NBGC Switch Uplift * Problem: None. * Fix: Added support for NBGC interface type. * Modified: 480-DATA-CHECK * Dependency: New subvolume SW60NBGC. Apply corresponding * fixes to SECUTILS, HISWUTLS, SVEMFS and RQEMFS, * and run MAKE. * Reference: WO #020811-02. #ADD 00518H01 480-DATA-CHECK AND NOT = "NBGC" #REPLACE 00518F0A 480-DATA-CHECK MOVE "INTERF TYP MUST BE HOST, FHM, BIC, NCR, VRU, IPDH, #REPLACE 00518H04 480-DATA-CHECK - " SAA, NBGC" TO WS-ERR-TXT #ENDSCN = BA06208 !*CMP2.13 02/06/03 RQARF2M 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQARF2M RQARF2M 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQARF2M RQARF2M 6000 * ******************************************************************************** #SCN = BA06223 , FILEID = RQARF2M #VOLUME = $ROOK.BA60AFT #FILE = RQARF2M #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #REPLACE 0003 # BASE24 Release 6.0 # # 0003 #ADD 0008 # ACI Worldwide Inc. # # 330 South 108th Avenue # # Omaha, Nebraska 68154 # # (402) 390-7600 # # # # Copyright by ACI Worldwide Inc. 2003 # # # # All Rights Reserved. No part of this document may be # # reproduced in any manner without the prior written consent of # # ACI Worldwide Inc. This material is a trade secret and its # # confidentiality is strictly maintained. Use of any copyright # # notice does not imply unrestricted or public access to these # # materials. # # # # BASE24 (R) is a registered trademark of ACI Worldwide Inc. # #DELETE 0009 /0015 #ADD 0031 ##################################################################### # Release 6.0 # ##################################################################### # 05FEB2003 bdc/65 # Symptom: Product level MAKE macro is referenced. # Problem: BASE_SCOBOLX_OPTS was used instead of # BAAFT_SCOBOLX_OPTS twice. # Fix: Changed BASE_ references to BAAFT_. # Dependency: Apply fix and run MAKE. # Reference: Case #356449 #ADD 0084 = $(baaft_scobolx_opts) #DELETE 0085 #ADD 0094 = $(baaft_scobolx_opts) #DELETE 0095 #ENDSCN = BA06223 !*CMP2.13 02/06/03 SVIPCFTM6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVIPCFTM SVIPCFTM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVIPCFTM SVIPCFTM 6000 * ******************************************************************************** #SCN = BA06224 , FILEID = SVIPCFTM #VOLUME = $ROOK.BA60AFT #FILE = SVIPCFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0041 # 05FEB2003 bdc/65 # Symptom: Product level MAKE macro is referenced. # Problem: BASE_COMPILE_OPTS was used instead of # BAAFT_COMPTILE_OPTS and BASE_PURGE_SPOOLER_ON was used # instead of BAAFT_PURGE_SPOOLER_ON. # Fix: Changed BASE_ references to BAAFT_. # Dependency: Apply fix and run MAKE. # Reference: Case #356449 #ADD 0084 = $(baaft_compile_opts)/ & #DELETE 0085 #ADD 0097 = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #svipcf.t #DELETE 0098 #ENDSCN = BA06224 !*CMP2.13 02/07/03 SECTBL 6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6011 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6011 * ******************************************************************************** #SCN = BA06235 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00268K0B * 29JAN2003 EDA/2121 * Symptom: Uplift Merchant Banking Center to Release 6.0 * Problem: None. * Fix: Added 3 new entries to SCRN-ACCESS-TABLE-DATA for * new ATD screens 14, 15, and 16. Increment the * occurs for SCRN-ACC-TABL and the value for * MAX-TABL-ENTRIES by 3. * Dependency: Apply fixes to SECTBL and MAKE SVISECS. * Refer to BA60UD06.SCNMBC for a complete list of * dependencies. * Reference: WO #001008-01 #ADD 00359 05 ATD14 PIC X(35) VALUE "ATD 140101DEVICE SPECIFIC SCREEN(S)". 05 ATD15 PIC X(35) VALUE "ATD 150101DEVICE SPECIFIC SCREEN(S)". 05 ATD16 PIC X(35) VALUE "ATD 160101DEVICE SPECIFIC SCREEN(S)". #REPLACE 00893K01 05 PROD-SCRN-ACC-TABL OCCURS 570 TIMES. #REPLACE 00906K01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 570. #ENDSCN = BA06235 !*CMP2.13 02/07/03 SVMHLPS 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6008 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6008 * ******************************************************************************** #SCN = BA06248 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00101H0A * 07FEB2003 JJD/615 * Symptom: POS Enhancements. * Problem: None. * Fix: Added RCDF to the POS-TABLE. Incremented POS-ENTRY * and POS-ENTRIES-L. * Dependency: Apply Fix to SECTBL and SVMHLPS and run MAKE. * Refer to BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #ADD 00289 DATA DIVISION 05 FILLER PIC X(31) VALUE "RCDFRESPONSE CODE DESCRIPTION ". #REPLACE 00296H01 DATA DIVISION 05 POS-ENTRY OCCURS 30 TIMES. #REPLACE 00299H01 DATA DIVISION 01 POS-ENTRIES-L PIC S9(4) COMP VALUE 30. #ENDSCN = BA06248 !*CMP2.13 02/07/03 CCAFMLM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.CCAFMLM CCAFMLM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.CCAFMLM CCAFMLM 6000 * ******************************************************************************** #SCN = BA06249 , FILEID = CCAFMLM #VOLUME = $ROOK.BA60AFT #FILE = CCAFMLM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0042 # # 07FEB2003 JRS/497 # Symptom: POS Enhancements. # Problem: None. # Fix: Added RCDF compile dependency and bind step. # Dependency: Apply fixes to CCAFMLM, PSAFTM and PSAFTMM. Restore # DDLFRCDF, RQRCDFSS, RQRCDFXM, RQRCDFXS, SVRCDFTG, # SVRCDFTM, SVRCDFTS and run Make. Refer to # BA60UD06.SCNFIL for a complete listing of dependencies. # Reference: WO #020606-01 #ADD 0073 $(psaft_svrcdfto) \ #ADD 0132 !IF $(POS_ON) = TRUE |THEN| = #APPEND :var add * from $(psaft_svrcdfto), delete = #APPEND :var delete code cntl_util_srv_0008 = #APPEND :var select refer ( cntl_util_srv_0008 to rcdf_entry ) !ENDIF = #ENDSCN = BA06249 !*CMP2.13 02/07/03 RQCAFS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6050 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6050 * ******************************************************************************** #SCN = BA06250 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6050 #NEWVERSION = 6051 #DELETE 00023v0A #ADD 00023x0K * 07FEB2003 alr/455 * Symptom: POS Enhancements. * Problem: None. * Fix: 1) Added functionality for the new Enhanced * Pre-Auth segment. * 2) Moved data checks from the CAF Requester to the * CAF server because of the code limits in the * CAF Requester had been reached. * 3) The MSG-FILE-MAINT-4096-EXT was changed to * MSG-FILE-MAINT-9216-EXT. * Dependency: Apply Fix to SCRNCAF, RQCAFS, SVCAFS, SECTBL * and DDLFCAF and run MAKE. Refer to * BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #REPLACE 00124k01 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 4, 5, 6, 8, 9, 10, #ADD 00144 DATA DIVISION 01 WS-ENHNC-PRE-AUTH-TABLE. 02 WS-TABLE OCCURS 10 TIMES. 05 WS-SELECTION PIC X. 05 WS-HOLD-STATUS PIC X(8). 05 WS-APPRV-CODE PIC X(8). 05 WS-EPA-ACCT-TYP PIC 9(4). 05 WS-EPA-ACCOUNT PIC X(19). 05 WS-EPA-SEQ-NUM PIC X(12). 05 WS-EPA-AMOUNT PIC X(20). #ADD 00156 DATA DIVISION 05 C PIC S9(4) COMP. #REPLACE 00201 DATA DIVISION 05 CAF6 PIC X(4) VALUE "BASE". #ADD 00208n00 DATA DIVISION COPY MSG-FILE-MAINT-1024-EXT OF =BASRC_BADDLCOB. #REPLACE 00208n01 DATA DIVISION COPY MSG-FILE-MAINT-9216-EXT OF =BASRC_BADDLCOB. #REPLACE 00210t01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(3394). #ADD 00211c02 DATA DIVISION 05 RECORD-IMAGE-ENHNC-PRE-AUTH. 10 REC-IMAGE-ENHNC-PRE-AUTH PIC X(8) OCCURS 10 TIMES. 05 IMAGE-ENHNC-PRE-AUTH-ACCT. 10 IMAGE-EPA-ACCT PIC X(28) OCCURS 10 TIMES. #ADD 00226 DATA DIVISION 05 ENHNC-PRE-AUTH-HOLD-IND PIC X(2). #ADD 00232n04 DATA DIVISION 05 CAF-ENHNC-PRE-AUTH-HOLD PIC X(4). #ADD 00232v00 DATA DIVISION 05 ERROR-INFO. 07 OVERLAY-NUM PIC 9(2). 07 ERR-CNT PIC 9(2). 05 SCN-TBL OCCURS 45 TIMES. 07 FLD-ID-NUM PIC 9(2). 07 FLD-INDEX-NUM PIC 9(2). #REPLACE 00232v01 DATA DIVISION 05 LEFTOVER PIC X(4156). #REPLACE 00252f07 DATA DIVISION COPY SC-CAF6 OF =BAAFT_SCNCAFO. #ADD 00297 200-GET-DATA MOVE SPACES TO ENHNC-PRE-AUTH-HOLD-IND. MOVE SPACES TO WS-MESSAGE-TEXT. #REPLACE 00298 200-GET-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT. #REPLACE 00301 200-GET-DATA IF WS-OVERLAY = 5 OR WS-OVERLAY = 6 #REPLACE 00319 201-GET-DATA 800-GO-TO-SCREEN-CAF , #REPLACE 00321 /00322 201-GET-DATA 800-NEXT-VALID-OVERLAY-CAF , 800-PAGE-BACK-CAF , #REPLACE 00446 300-VALIDATE-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT #REPLACE 00467 245-FETCH-RECORD IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 0 #REPLACE 00489 255-ADD-RECORD IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 0 #REPLACE 00527 275-UPDATE-RECORD IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 0 #REPLACE 00548 285-READ-NEXT IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 0 #REPLACE 00551 285-READ-NEXT IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 0 #REPLACE 00587 400-MOVE-RECORD TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT #ADD 00597c04 400-DO-REST-OF-MOVES MOVE SPACES TO WS-ENHNC-PRE-AUTH-TABLE. PERFORM 400-MOVE-IMAGE-EPA VARYING I FROM 1 BY 1 UNTIL I > 10. PERFORM 400-MOVE-ENHNC-PRE-AUTH-TO-WS VARYING I FROM 1 BY 1 UNTIL I > 10. PERFORM 400-MOVE-STATUS-E-TIME-TO-WS VARYING I FROM 1 BY 1 UNTIL I > 10. #ADD 00601w02 400-DO-REST-OF-MOVES IF ACCT-CNT < 0 OR ACCT-CNT > 16 MOVE 0 TO ACCT-CNT. #ADD 00622c00 400-MOVE-IMAGE-PRE-AUTH 400-MOVE-IMAGE-EPA. MOVE IMAGE-EPA-ACCT(I) TO WS-EPA-ACCOUNT(I). #ADD 00623c00 400-MOVE-STATUS-TIME-TO-WS MOVE REC-IMAGE-PRE-AUTH(I) TO #REPLACE 00623c01 400-MOVE-STATUS-TIME-TO-WS WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(I). #ADD 00624c02 400-MOVE-STATUS-TIME-TO-WS 400-MOVE-STATUS-E-TIME-TO-WS. MOVE REC-IMAGE-ENHNC-PRE-AUTH(I) TO WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(I). #ADD 00635c02 400-MOVE-PRE-AUTHS-TO-WS 400-MOVE-ENHNC-PRE-AUTH-TO-WS. MOVE SEQ-NUM OF ENHNC-PRE-AUTH OF CAF(I) TO WS-EPA-SEQ-NUM(I). MOVE APPRV-CDE OF ENHNC-PRE-AUTH OF CAF(I) TO WS-APPRV-CODE(I). MOVE ACCT-TYP OF ENHNC-PRE-AUTH OF CAF(I) TO WS-EPA-ACCT-TYP(I). MOVE HOLD-AMT OF ENHNC-PRE-AUTH OF CAF(I) TO AMT-NUMBER1. MOVE SPACES TO AMT-DISPLAY1. IF AMT-NUMBER1 NOT = ZERO PERFORM 400-CHANGE-NUM-TO-ALPHA1. MOVE AMT-DISPLAY1 TO WS-EPA-AMOUNT(I). #REPLACE 00697n01 400-SAVE-RECORD FIID OF MSG-FILE-MAINT-9216-EXT. #REPLACE 00713n03 400-SAVE-RECORD MSG-FILE-MAINT-9216-EXT. #REPLACE 00713n05 400-SAVE-RECORD SITE-PROD-IND OF MSG-FILE-MAINT-9216-EXT. #REPLACE 00713n07 400-SAVE-RECORD MSG-FILE-MAINT-9216-EXT. #REPLACE 00713n09 400-SAVE-RECORD MSG-FILE-MAINT-9216-EXT. #ADD 00719c04 400-MOVE-PA-ACCOUNT 400-MOVE-EPA-ACCOUNT. MOVE WS-EPA-ACCOUNT (I) TO IMAGE-EPA-ACCT(I). #REPLACE 00723n06 400-SET-UP FIID OF MSG-FILE-MAINT-9216-EXT #REPLACE 00730n03/00730n04 400-SET-UP REGN OF MSG-FILE-MAINT-9216-EXT, BRCH OF MSG-FILE-MAINT-9216-EXT, #REPLACE 00736 401-CHECK-FIID-ACCESS MOVE "70" TO APPL-CDE OF MSG-FILE-MAINT-9216-EXT. #REPLACE 00738n05/00738n06 401-CHECK-FIID-ACCESS MOVE "C" TO FRMT-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE 17 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738n08 401-CHECK-FIID-ACCESS LN OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738n0A/00738n0B 401-CHECK-FIID-ACCESS LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738n0D/00738n0E 401-CHECK-FIID-ACCESS TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE UFIR TO REC-IMAGE OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738n0H/00738n0I 401-CHECK-FIID-ACCESS SEND MSG-FILE-MAINT-1024-EXT TO WS-SERVER REPLY CODE 0 YIELDS MSG-FILE-MAINT-1024-EXT #REPLACE 00757 /00758 401-CHECK-FIID-ACCESS IF ERR-CDE OF MSG-FILE-MAINT-1024-EXT = 0 MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT #REPLACE 00758n02 401-CHECK-FIID-ACCESS MOVE WS-FI-ID TO FIID OF MSG-FILE-MAINT-9216-EXT #REPLACE 00769 /00770 402-NO-ACCESS ERR-TXT OF MSG-FILE-MAINT-9216-EXT MOVE TERMINATION-STATUS TO ERR-CDE OF MSG-FILE-MAINT-9216-EXT. #ADD 00772 402-NO-ACCESS MOVE ERR-TXT OF MSG-FILE-MAINT-1024-EXT TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT. #REPLACE 00904 440-SET-UP-FETCH MOVE 1 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT #REPLACE 00913b01 445-SET-UP-READ-NEXT MOVE 7 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT. #ADD 00935c01 450-SET-UP-ADD-CONTINUED PERFORM 450-ZERO-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10. #ADD 00942 450-SET-UP-ADD-CONTINUED PERFORM 480-DATA-CHECK. #REPLACE 00943 /00944 450-SET-UP-ADD-CONTINUED MOVE 4 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT. #ADD 00952 450-ZERO-PRE-AUTH 450-ZERO-ENHNC-PRE-AUTH. MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH(I), APPRV-CDE OF ENHNC-PRE-AUTH(I), ACCT-NUM OF ENHNC-PRE-AUTH(I). MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH (I), ACCT-TYP OF ENHNC-PRE-AUTH (I), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3). #REPLACE 01013 460-SET-UP-DELETE MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-9216-EXT #REPLACE 01016 460-SET-UP-DELETE TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT. #REPLACE 01016U09 460-SET-UP-DELETE MOVE 3 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT #ADD 01032 470-SET-UP-UPDATE-CONTINUED PERFORM 480-DATA-CHECK. #REPLACE 01033 /01034 470-SET-UP-UPDATE-CONTINUED MOVE 2 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT. #DELETE 01045 /01355 480-DATA-CHECK #ADD 01356 480-DATA-CHECK PERFORM 480-CLEAR-ERROR-INFO. PERFORM 400-SET-UP. PERFORM 400-SAVE-RECORD. MOVE 21 TO TRAN-CDE OF MSG-FILE-MAINT-9216-EXT. PERFORM 800-INITIALIZE-MESSAGE. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST PERFORM 480-DATA-CHECK-RETURN. 480-CLEAR-ERROR-INFO. MOVE WS-OVERLAY TO OVERLAY-NUM. MOVE 0 TO ERR-CDE OF MSG-FILE-MAINT-9216-EXT. MOVE 0 TO ERR-CNT. PERFORM 480-CLEAR-ERROR-TABLE VARYING I FROM 1 BY 1 UNTIL I > 45. 480-CLEAR-ERROR-TABLE. MOVE 0 TO FLD-ID-NUM (I), FLD-INDEX-NUM (I). 480-DATA-CHECK-RETURN. MOVE RECORD-IMAGE-CAF TO CAF. * * READ NEXT RECORD, CLEAR DATA, AND PAGE BACK FUNCTIONS * REQUIRE TABLE LOOK-UP: * IF SAVE-FUNC-KEY = 7 OR 9 OR 11 PERFORM 550-TABLE-LOOK-UP. PERFORM 990-DISPLAY-RECORD. IF ERR-CNT > 0 IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = ZERO MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-9216-EXT. IF ERR-CNT > 0 MOVE "BAD" TO VALID-DATA IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 1 TURN TEMP SERROR IN C-NUM-OF-PAN SET NEW-CURSOR AT C-NUM-OF-PAN ELSE IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT = 2 TURN TEMP SERROR IN C-FI-ID SET NEW-CURSOR AT C-FI-ID ELSE PERFORM ONE OF 480-CHK-OVERLAY-1, 480-CHK-OVERLAY-2, 480-CHK-OVERLAY-3, 480-CHK-OVERLAY-4, 480-CHK-OVERLAY-5, 480-CHK-OVERLAY-6, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-8, 480-CHK-OVERLAY-9, 480-CHK-OVERLAY-10, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-12, 480-CHK-OVERLAY-13, 480-CHK-OVERLAY-14, 480-CHK-OVERLAY-15, 480-CHK-OVERLAY-16, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-DUMMY, 480-CHK-OVERLAY-20, DEPENDING ON WS-OVERLAY. * * NOTE: DUMMY PARAGRAPHS REQUIRED FOR PROPER FUNCTIONING OF * "PERFORM DEPENDING ON" LOGIC. * 480-CHK-OVERLAY-DUMMY. 480-CHK-OVERLAY-1. PERFORM 480-ERR-FLAG-OV-1 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-2. PERFORM 480-ERR-FLAG-OV-2 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-3. PERFORM 480-ERR-FLAG-OV-3 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-4. PERFORM 480-ERR-FLAG-OV-4 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-5. PERFORM 480-ERR-FLAG-OV-5 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-6. PERFORM 480-ERR-FLAG-OV-6 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-8. PERFORM 480-ERR-FLAG-OV-8 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-9. PERFORM 480-ERR-FLAG-OV-9 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-10. PERFORM 480-ERR-FLAG-OV-10 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-12. PERFORM 480-ERR-FLAG-OV-12 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-13. PERFORM 480-ERR-FLAG-OV-13 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-14. PERFORM 480-ERR-FLAG-OV-14 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-15. PERFORM 480-ERR-FLAG-OV-15 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-16. PERFORM 480-ERR-FLAG-OV-16 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-CHK-OVERLAY-20. PERFORM 480-ERR-FLAG-OV-20 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. 480-ERR-FLAG-OV-1. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-3, 480-FLAG-OV-1-FIELD-4, 480-FLAG-OV-1-FIELD-5, 480-FLAG-OV-1-FIELD-6, 480-FLAG-OV-1-FIELD-7, 480-FLAG-OV-1-FIELD-8, 480-FLAG-OV-1-FIELD-9, 480-FLAG-OV-DUMMY, 480-FLAG-OV-1-FIELD-11, DEPENDING ON K. 480-FLAG-OV-DUMMY. 480-FLAG-OV-1-FIELD-3. TURN TEMP SERROR IN C-CRD-TYP. SET NEW-CURSOR AT C-CRD-TYP. 480-FLAG-OV-1-FIELD-4. TURN TEMP SERROR IN C-CARD-STAT. SET NEW-CURSOR AT C-CARD-STAT. 480-FLAG-OV-1-FIELD-5. TURN TEMP SERROR IN C-POFST. SET NEW-CURSOR AT C-POFST. 480-FLAG-OV-1-FIELD-6. TURN TEMP SERROR IN C-TTL-WDL-LMT-0. SET NEW-CURSOR AT C-TTL-WDL-LMT-0. 480-FLAG-OV-1-FIELD-7. TURN TEMP SERROR IN C-OFFL-WDL-LMT-0. SET NEW-CURSOR AT C-OFFL-WDL-LMT-0. 480-FLAG-OV-1-FIELD-8. TURN TEMP SERROR IN C-TTL-CCA-LMT-0. SET NEW-CURSOR AT C-TTL-CCA-LMT-0. 480-FLAG-OV-1-FIELD-9. TURN TEMP SERROR IN C-OFFL-CCA-LMT-0. SET NEW-CURSOR AT C-OFFL-CCA-LMT-0. 480-FLAG-OV-1-FIELD-11. TURN TEMP SERROR IN C-OFFL-AGGR-LMT-0. SET NEW-CURSOR AT C-OFFL-AGGR-LMT-0. 480-ERR-FLAG-OV-2. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-2-FIELD-3, DEPENDING ON K. 480-FLAG-OV-2-FIELD-3. TURN TEMP SERROR IN C-EXP-DAT. SET NEW-CURSOR AT C-EXP-DAT. 480-ERR-FLAG-OV-3. MOVE FLD-INDEX-NUM (I) TO C. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-3-FIELD-4, 480-FLAG-OV-3-FIELD-5, 480-FLAG-OV-DUMMY, 480-FLAG-OV-3-FIELD-7, 480-FLAG-OV-3-FIELD-8, DEPENDING ON K. 480-FLAG-OV-3-FIELD-4. TURN TEMP SERROR IN C-NUM(C). SET NEW-CURSOR AT C-NUM(C). 480-FLAG-OV-3-FIELD-5. TURN TEMP SERROR IN C-QUAL(C). SET NEW-CURSOR AT C-QUAL(C). 480-FLAG-OV-3-FIELD-7. TURN TEMP SERROR IN C-STAT(C). SET NEW-CURSOR AT C-STAT(C). 480-FLAG-OV-3-FIELD-8. TURN TEMP SERROR IN C-CORP(C). SET NEW-CURSOR AT C-CORP(C). 480-ERR-FLAG-OV-4. MOVE FLD-INDEX-NUM (I) TO C. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-4-FIELD-4, 480-FLAG-OV-4-FIELD-5, 480-FLAG-OV-DUMMY, 480-FLAG-OV-4-FIELD-7, 480-FLAG-OV-4-FIELD-8, DEPENDING ON K. 480-FLAG-OV-4-FIELD-4. TURN TEMP SERROR IN C1-NUM(C). SET NEW-CURSOR AT C1-NUM(C). 480-FLAG-OV-4-FIELD-5. TURN TEMP SERROR IN C1-QUAL(C). SET NEW-CURSOR AT C1-QUAL(C). 480-FLAG-OV-4-FIELD-7. TURN TEMP SERROR IN C1-STAT(C). SET NEW-CURSOR AT C1-STAT(I). 480-FLAG-OV-4-FIELD-8. TURN TEMP SERROR IN C1-CORP(C). SET NEW-CURSOR AT C1-CORP(C). 480-ERR-FLAG-OV-5. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-5-FIELD-3, 480-FLAG-OV-5-FIELD-4, 480-FLAG-OV-5-FIELD-5, 480-FLAG-OV-5-FIELD-6, 480-FLAG-OV-5-FIELD-7, 480-FLAG-OV-5-FIELD-8, 480-FLAG-OV-5-FIELD-9, 480-FLAG-OV-5-FIELD-10, 480-FLAG-OV-5-FIELD-11, 480-FLAG-OV-5-FIELD-12, DEPENDING ON K. 480-FLAG-OV-5-FIELD-3. TURN TEMP SERROR IN C-PA-SELECT (1). SET NEW-CURSOR AT C-PA-SELECT (1). 480-FLAG-OV-5-FIELD-4. TURN TEMP SERROR IN C-PA-SELECT (2). SET NEW-CURSOR AT C-PA-SELECT (2). 480-FLAG-OV-5-FIELD-5. TURN TEMP SERROR IN C-PA-SELECT (3). SET NEW-CURSOR AT C-PA-SELECT (3). 480-FLAG-OV-5-FIELD-6. TURN TEMP SERROR IN C-PA-SELECT (4). SET NEW-CURSOR AT C-PA-SELECT (4). 480-FLAG-OV-5-FIELD-7. TURN TEMP SERROR IN C-PA-SELECT (5). SET NEW-CURSOR AT C-PA-SELECT (5). 480-FLAG-OV-5-FIELD-8. TURN TEMP SERROR IN C-PA-SELECT (6). SET NEW-CURSOR AT C-PA-SELECT (6). 480-FLAG-OV-5-FIELD-9. TURN TEMP SERROR IN C-PA-SELECT (7). SET NEW-CURSOR AT C-PA-SELECT (7). 480-FLAG-OV-5-FIELD-10. TURN TEMP SERROR IN C-PA-SELECT (8). SET NEW-CURSOR AT C-PA-SELECT (8). 480-FLAG-OV-5-FIELD-11. TURN TEMP SERROR IN C-PA-SELECT (9). SET NEW-CURSOR AT C-PA-SELECT (9). 480-FLAG-OV-5-FIELD-12. TURN TEMP SERROR IN C-PA-SELECT (10). SET NEW-CURSOR AT C-PA-SELECT (10). 480-ERR-FLAG-OV-6. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-3, 480-FLAG-OV-6-FIELD-4, 480-FLAG-OV-6-FIELD-5, 480-FLAG-OV-6-FIELD-6, 480-FLAG-OV-6-FIELD-7, 480-FLAG-OV-6-FIELD-8, 480-FLAG-OV-6-FIELD-9, 480-FLAG-OV-6-FIELD-10, 480-FLAG-OV-6-FIELD-11, 480-FLAG-OV-6-FIELD-12, DEPENDING ON K. 480-FLAG-OV-6-FIELD-3. TURN TEMP SERROR IN C-EPA-SELECT (1). SET NEW-CURSOR AT C-EPA-SELECT (1). 480-FLAG-OV-6-FIELD-4. TURN TEMP SERROR IN C-EPA-SELECT (2). SET NEW-CURSOR AT C-EPA-SELECT (2). 480-FLAG-OV-6-FIELD-5. TURN TEMP SERROR IN C-EPA-SELECT (3). SET NEW-CURSOR AT C-EPA-SELECT (3). 480-FLAG-OV-6-FIELD-6. TURN TEMP SERROR IN C-EPA-SELECT (4). SET NEW-CURSOR AT C-EPA-SELECT (4). 480-FLAG-OV-6-FIELD-7. TURN TEMP SERROR IN C-EPA-SELECT (5). SET NEW-CURSOR AT C-EPA-SELECT (5). 480-FLAG-OV-6-FIELD-8. TURN TEMP SERROR IN C-EPA-SELECT (6). SET NEW-CURSOR AT C-EPA-SELECT (6). 480-FLAG-OV-6-FIELD-9. TURN TEMP SERROR IN C-EPA-SELECT (7). SET NEW-CURSOR AT C-EPA-SELECT (7). 480-FLAG-OV-6-FIELD-10. TURN TEMP SERROR IN C-EPA-SELECT (8). SET NEW-CURSOR AT C-EPA-SELECT (8). 480-FLAG-OV-6-FIELD-11. TURN TEMP SERROR IN C-EPA-SELECT (9). SET NEW-CURSOR AT C-EPA-SELECT (9). 480-FLAG-OV-6-FIELD-12. TURN TEMP SERROR IN C-EPA-SELECT (10). SET NEW-CURSOR AT C-EPA-SELECT (10). 480-ERR-FLAG-OV-8. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-8-FIELD-3, 480-FLAG-OV-8-FIELD-4, 480-FLAG-OV-8-FIELD-5, 480-FLAG-OV-8-FIELD-6, 480-FLAG-OV-DUMMY, 480-FLAG-OV-8-FIELD-8, 480-FLAG-OV-8-FIELD-9, DEPENDING ON K. 480-FLAG-OV-8-FIELD-3. TURN TEMP SERROR IN C-TTL-WDL-LMT-1. SET NEW-CURSOR AT C-TTL-WDL-LMT-1. 480-FLAG-OV-8-FIELD-4. TURN TEMP SERROR IN C-OFFL-WDL-LMT-1. SET NEW-CURSOR AT C-OFFL-WDL-LMT-1. 480-FLAG-OV-8-FIELD-5. TURN TEMP SERROR IN C-TTL-CCA-LMT-1. SET NEW-CURSOR AT C-TTL-CCA-LMT-1. 480-FLAG-OV-8-FIELD-6. TURN TEMP SERROR IN C-OFFL-CCA-LMT-1. SET NEW-CURSOR AT C-OFFL-CCA-LMT-1. 480-FLAG-OV-8-FIELD-8. TURN TEMP SERROR IN C-ATM-ISS-TXN-PRFL. SET NEW-CURSOR AT C-ATM-ISS-TXN-PRFL. 480-FLAG-OV-8-FIELD-9. TURN TEMP SERROR IN C-USED-PRD-1. SET NEW-CURSOR AT C-USED-PRD-1. 480-ERR-FLAG-OV-9. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-9-FIELD-3, 480-FLAG-OV-9-FIELD-4, 480-FLAG-OV-9-FIELD-5, 480-FLAG-OV-9-FIELD-6, 480-FLAG-OV-9-FIELD-7, 480-FLAG-OV-9-FIELD-8, 480-FLAG-OV-9-FIELD-9, 480-FLAG-OV-9-FIELD-10, 480-FLAG-OV-9-FIELD-11, 480-FLAG-OV-9-FIELD-12, DEPENDING ON K. 480-FLAG-OV-9-FIELD-3. TURN TEMP SERROR IN C-TTL-WDL-LMT-23. SET NEW-CURSOR AT C-TTL-WDL-LMT-23. 480-FLAG-OV-9-FIELD-4. TURN TEMP SERROR IN C-OFFL-WDL-LMT-23. SET NEW-CURSOR AT C-OFFL-WDL-LMT-23. 480-FLAG-OV-9-FIELD-5. TURN TEMP SERROR IN C-TTL-CCA-LMT-23. SET NEW-CURSOR AT C-TTL-CCA-LMT-23. 480-FLAG-OV-9-FIELD-6. TURN TEMP SERROR IN C-OFFL-CCA-LMT-23. SET NEW-CURSOR AT C-OFFL-CCA-LMT-23. 480-FLAG-OV-9-FIELD-7. TURN TEMP SERROR IN C-NCD-CDE. SET NEW-CURSOR AT C-NCD-CDE. 480-FLAG-OV-9-FIELD-8. TURN TEMP SERROR IN C-NCD-TTL-WDL-LMT-23. SET NEW-CURSOR AT C-NCD-TTL-WDL-LMT-23. 480-FLAG-OV-9-FIELD-9. TURN TEMP SERROR IN C-NCD-OFFL-WDL-LMT-23. SET NEW-CURSOR AT C-NCD-OFFL-WDL-LMT-23. 480-FLAG-OV-9-FIELD-10. TURN TEMP SERROR IN C-NCD-TTL-CCA-LMT-23. SET NEW-CURSOR AT C-NCD-TTL-CCA-LMT-23. 480-FLAG-OV-9-FIELD-11. TURN TEMP SERROR IN C-NCD-OFFL-CCA-LMT-23. SET NEW-CURSOR AT C-NCD-OFFL-CCA-LMT-23. 480-FLAG-OV-9-FIELD-12. TURN TEMP SERROR IN C-USE-LMT-PRD-23. SET NEW-CURSOR AT C-USE-LMT-PRD-23. 480-ERR-FLAG-OV-10. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-10-FIELD-3, 480-FLAG-OV-10-FIELD-4, 480-FLAG-OV-10-FIELD-5, 480-FLAG-OV-10-FIELD-6, 480-FLAG-OV-DUMMY, 480-FLAG-OV-10-FIELD-8, 480-FLAG-OV-DUMMY, 480-FLAG-OV-10-FIELD-10, 480-FLAG-OV-10-FIELD-11, 480-FLAG-OV-10-FIELD-12, 480-FLAG-OV-10-FIELD-13, DEPENDING ON K. 480-FLAG-OV-10-FIELD-3. TURN TEMP SERROR IN C-TTL-WDL-LMT-2. SET NEW-CURSOR AT C-TTL-WDL-LMT-2. 480-FLAG-OV-10-FIELD-4. TURN TEMP SERROR IN C-OFFL-WDL-LMT-2. SET NEW-CURSOR AT C-OFFL-WDL-LMT-2. 480-FLAG-OV-10-FIELD-5. TURN TEMP SERROR IN C-TTL-CCA-LMT-2. SET NEW-CURSOR AT C-TTL-CCA-LMT-2. 480-FLAG-OV-10-FIELD-6. TURN TEMP SERROR IN C-OFFL-CCA-LMT-2. SET NEW-CURSOR AT C-OFFL-CCA-LMT-2. 480-FLAG-OV-10-FIELD-8. TURN TEMP SERROR IN C-OFFL-PUR-LMT-2. SET NEW-CURSOR AT C-OFFL-PUR-LMT-2. 480-FLAG-OV-10-FIELD-10. TURN TEMP SERROR IN C-OFFL-RFND-CR-LMT. SET NEW-CURSOR AT C-OFFL-RFND-CR-LMT. 480-FLAG-OV-10-FIELD-11. TURN TEMP SERROR IN C-REASON. SET NEW-CURSOR AT C-REASON. 480-FLAG-OV-10-FIELD-12. TURN TEMP SERROR IN C-USEDPRDLMT. SET NEW-CURSOR AT C-USEDPRDLMT. 480-FLAG-OV-10-FIELD-13. TURN TEMP SERROR IN C-POS-ISS-TXN-PRFL. SET NEW-CURSOR AT C-POS-ISS-TXN-PRFL. 480-ERR-FLAG-OV-12. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-12-FIELD-4, DEPENDING ON K. 480-FLAG-OV-12-FIELD-4. TURN TEMP SERROR IN C-SEND-CRD-BLK. SET NEW-CURSOR AT SC-AV-ZIP-CDE. 480-ERR-FLAG-OV-13. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-13-FIELD-4, 480-FLAG-OV-13-FIELD-5, 480-FLAG-OV-13-FIELD-6, 480-FLAG-OV-13-FIELD-7, 480-FLAG-OV-13-FIELD-8, 480-FLAG-OV-13-FIELD-9, DEPENDING ON K. 480-FLAG-OV-13-FIELD-4. TURN TEMP SERROR IN C-SEND-CRD-BLK. SET NEW-CURSOR AT C-SEND-CRD-BLK. 480-FLAG-OV-13-FIELD-5. TURN TEMP SERROR IN C-SEND-PUT-DATA. SET NEW-CURSOR AT C-SEND-PUT-DATA. 480-FLAG-OV-13-FIELD-6. TURN TEMP SERROR IN C-SEND-PIN-UNBLK. SET NEW-CURSOR AT C-SEND-PIN-UNBLK. 480-FLAG-OV-13-FIELD-7. TURN TEMP SERROR IN C-SEND-PIN-CHNG. SET NEW-CURSOR AT C-SEND-PIN-CHNG. 480-FLAG-OV-13-FIELD-8. TURN TEMP SERROR IN C-PIN-SYNC-ACT. TURN TEMP SERROR IN C-PIN-SYNC-ACT. 480-FLAG-OV-13-FIELD-9. TURN TEMP SERROR IN C-LWR-CONSEC-LMT. SET NEW-CURSOR AT C-LWR-CONSEC-LMT. 480-ERR-FLAG-OV-14. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-14-FIELD-3, DEPENDING ON K. 480-FLAG-OV-14-FIELD-3. TURN TEMP SERROR IN C-TLR-TERM-ID. SET NEW-CURSOR AT C-TLR-TERM-ID. 480-ERR-FLAG-OV-15. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-15-FIELD-3, 480-FLAG-OV-15-FIELD-4, 480-FLAG-OV-15-FIELD-5, 480-FLAG-OV-15-FIELD-6, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-15-FIELD-10, DEPENDING ON K. 480-FLAG-OV-15-FIELD-3. TURN TEMP SERROR IN C-CORP-NUM. SET NEW-CURSOR AT C-CORP-NUM. 480-FLAG-OV-15-FIELD-4. TURN TEMP SERROR IN C-CHK-BASE-FLG. SET NEW-CURSOR AT C-CHK-BASE-FLG. 480-FLAG-OV-15-FIELD-5. TURN TEMP SERROR IN C-TTL-CHK-LMT-18. SET NEW-CURSOR AT C-TTL-CHK-LMT-18. 480-FLAG-OV-15-FIELD-6. TURN TEMP SERROR IN C-OFFL-CHK-LMT-18. SET NEW-CURSOR AT C-OFFL-CHK-LMT-18. 480-FLAG-OV-15-FIELD-10. TURN TEMP SERROR IN C-CHK-BASE-FLG. TURN TEMP SERROR IN C-TTL-CHK-LMT-18 TURN TEMP SERROR IN C-OFFL-CHK-LMT-18. SET NEW-CURSOR AT C-CHK-BASE-FLG. 480-ERR-FLAG-OV-16. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-16-FIELD-3, 480-FLAG-OV-16-FIELD-4, 480-FLAG-OV-16-FIELD-5, DEPENDING ON K. 480-FLAG-OV-16-FIELD-3. TURN TEMP SERROR IN C-CSF-CHK-BASE-FLG. SET NEW-CURSOR AT C-CSF-CHK-BASE-FLG. 480-FLAG-OV-16-FIELD-4. TURN TEMP SERROR IN C-TTL-CSF-LMT-18. SET NEW-CURSOR AT C-TTL-CSF-LMT-18. 480-FLAG-OV-16-FIELD-5. TURN TEMP SERROR IN C-OFFL-CSF-LMT-18. SET NEW-CURSOR AT C-OFFL-CSF-LMT-18. 480-ERR-FLAG-OV-20. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-20-FIELD-4, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-20-FIELD-13, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-20-FIELD-18, 480-FLAG-OV-20-FIELD-19, 480-FLAG-OV-20-FIELD-20, 480-FLAG-OV-20-FIELD-21, DEPENDING ON K. 480-FLAG-OV-20-FIELD-4. TURN TEMP SERROR IN C-CARDHOLDER-TITLE1. SET NEW-CURSOR AT C-CARDHOLDER-TITLE1. 480-FLAG-OV-20-FIELD-13. TURN TEMP SERROR IN C-ISSUE-NUMBER. SET NEW-CURSOR AT C-ISSUE-NUMBER. 480-FLAG-OV-20-FIELD-18. TURN TEMP SERROR IN C-PIN-MAILER-REQUIRED1. SET NEW-CURSOR AT C-PIN-MAILER-REQUIRED1. 480-FLAG-OV-20-FIELD-19. TURN TEMP SERROR IN C-PLASTIC-CARRIER-OPTS1. SET NEW-CURSOR AT C-PLASTIC-CARRIER-OPTS1. 480-FLAG-OV-20-FIELD-20. TURN TEMP SERROR IN C-ISSUE-STATUS1. SET NEW-CURSOR AT C-ISSUE-STATUS1. 480-FLAG-OV-20-FIELD-21. TURN TEMP SERROR IN C-ISSUE-STATUS1. TURN TEMP SERROR IN C-PIN-MAILER-REQUIRED1. TURN TEMP SERROR IN C-PLASTIC-CARRIER-OPTS1. SET NEW-CURSOR AT C-ISSUE-STATUS1. #DELETE 01357 /01556 490-REGULAR-KEY-DISPLAY #REPLACE 01577 490-GET-DATA 800-GO-TO-SCREEN-CAF , #REPLACE 01579 /01580 490-GET-DATA 800-NEXT-VALID-OVERLAY-CAF , 800-PAGE-BACK-CAF , #ADD 01689 500-CHANGE-TIMESTAMP IF WS-OVERLAY = 5 PERFORM 500-CHANGE-TIMESTAMP-PA ELSE IF WS-OVERLAY = 6 PERFORM 500-CHANGE-TIMESTAMP-EPA. 500-CHANGE-TIMESTAMP-PA. #ADD 01698 550-TABLE-LOOK-UP 500-CHANGE-TIMESTAMP-EPA. *SAVE THE CURSOR LOCATION PASS IN MESSAGE TO SERVER. MOVE SPACES TO ENHNC-PRE-AUTH-HOLD-IND. MOVE "HOLD" TO CAF-PRE-AUTH-HOLD. IF OLD-CURSOR-ROW = 8 MOVE 8 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 9 MOVE 9 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 10 MOVE 10 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 11 MOVE 11 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 12 MOVE 12 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 13 MOVE 13 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 14 MOVE 14 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 15 MOVE 15 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 16 MOVE 16 TO ENHNC-PRE-AUTH-HOLD-IND ELSE MOVE 17 TO ENHNC-PRE-AUTH-HOLD-IND. PERFORM 270-UPDATE-RECORD. #ADD 02046 570-DISPLAY-OVERLAY-6 PERFORM 490-CHANGE-FUNCTION-KEYS. #DELETE 02047 /02048 570-DISPLAY-OVERLAY-6 #ADD 02167c00 595-CLEAR-DATA PERFORM 595-ZERO-EPA-OF-CAF VARYING I FROM 1 BY 1 UNTIL I > 10. MOVE SPACES TO WS-ENHNC-PRE-AUTH-TABLE. PERFORM 595-ZERO-EPA-TABLE VARYING I FROM 1 BY 1 UNTIL I > 10. #DELETE 02183i00/02183i01 595-CLEAR-DATA #ADD 02183x0H 595-CLEAR-DATA MOVE 0 TO WS-EXP-DAT. #DELETE 02190x00 595-CLEAR-DATA #DELETE 02190x01 595-CLEAR-DATA #DELETE 02190x02 595-ZERO-PRE-AUTHS-OF-CAF #ADD 02190x02 595-ZERO-PRE-AUTHS-OF-CAF MOVE ZEROES TO ATC OF SEG9, LWR-CONSEC-LMT OF VLCTY-LMTS OF SEG9. MOVE "N" TO SEND-CRD-BLK OF SEG9, SEND-PUT-DATA OF SEG9. MOVE 9999 TO ATC-LMT OF SEG9. 595-ZERO-EPA-OF-CAF. MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO APPRV-CDE OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO TERM-ID OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO ACCT-NUM OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACE TO HOLD-FLG OF ENHNC-PRE-AUTH OF CAF(I). MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH OF CAF(I). MOVE ZEROES TO ACCT-TYP OF ENHNC-PRE-AUTH OF CAF(I). MOVE ZEROES TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 1), PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 2), PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 3). MOVE ZEROES TO PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 1), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 2), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF(I, 3). #ADD 02209 595-SET-SC 595-ZERO-EPA-TABLE. MOVE ZEROES TO WS-EPA-ACCT-TYP(I). #REPLACE 02222 595-SCREEN-INIT PERFORM 800-NEXT-VALID-OVERLAY-CAF. #ADD 02222n00 595-SCREEN-INIT 800-PAGE-BACK-CAF. * * THIS PARAGRAPH IS IDENTICAL TO 800-PAGE-BACK OF * FILE-MAINTENANCE-800-9216-EXT OF =BASRC_BACOUTLS, WITH THE * EXCEPTION OF SETTING THE VALID-DATA SWITCH TO "NO" BEFORE * PERFORMING 800-BACK-ONE-OVERLAY. THIS MODIFICATION WAS REQUIRE * AFTER MOVING EDIT CHECK LOGIC TO SVCPFS. * MOVE "NO" TO VALID-DATA. MOVE 0 TO WS-OVERLAY-TEMP. IF INIT-FLAG NOT = 1 IF WS-FI-ID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FI-ID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT ELSE MOVE "NO" TO VALID-DATA PERFORM 800-BACK-ONE-OVERLAY UNTIL VALID-DATA = "YES" PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. 800-GO-TO-SCREEN-CAF. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE "NO" TO VALID-DATA. IF INIT-FLAG NOT = 1 IF WS-FI-ID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FI-ID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT ELSE PERFORM 800-VALID-SCREEN PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. 800-NEXT-VALID-OVERLAY-CAF. * * THIS PARAGRAPH IS IDENTICAL TO 800-NEXT-VALID-OVERLAY OF * FILE-MAINTENANCE-800-9216-EXT OF =BASRC_BACOUTLS, WITH THE * EXCEPTION OF SETTING THE VALID-DATA SWITCH TO "NO" BEFORE * PERFORMING 800-NEXT-OVERLAY. THIS MODIFICATION WAS REQUIRED * AFTER MOVING EDIT CHECK LOGIC TO SVCPFS. * MOVE "NO" TO VALID-DATA. MOVE 0 TO WS-OVERLAY-TEMP. IF INIT-FLAG NOT = 1 IF WS-FI-ID NOT = FIID OF USER-CONTEXT-EXT MOVE FIID OF USER-CONTEXT-EXT TO WS-FI-ID PERFORM 480-DATA-CHECK ELSE PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT ELSE MOVE "NO" TO VALID-DATA PERFORM 800-NEXT-OVERLAY UNTIL VALID-DATA = "YES" PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. #REPLACE 02222n01 595-SCREEN-INIT COPY FILE-MAINTENANCE-800-9216-EXT OF =BASRC_BACOUTLS. #REPLACE 02222n04 595-SCREEN-INIT COPY 900-DISPLAYS-9216-EXT OF =BASRC_BACOUTLS. #ENDSCN = BA06250 !*CMP2.13 02/07/03 SVCAFS 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6030 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6030 * ******************************************************************************** #SCN = BA06251 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6030 #NEWVERSION = 6031 #ADD 00013d0K * 07FEB2003 alr/455 * Symptom: POS Enhancements. * Problem: None. * Fix: 1) Added functionality for the new Enhanced * Pre-Auth segment. * 2) Moved data checks from the CAF Requester to the * CAF server because of the code limits in the * CAF Requester had been reached. * 3) The MSG-FILE-MAINT-4096-EXT was changed to * MSG-FILE-MAINT-9216-EXT. * Dependency: Apply Fix to SCRNCAF, RQCAFS, SVCAFS, SECTBL * and DDLFCAF and run MAKE. Refer to * BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #REPLACE 00016 PROGRAM-ID PROGRAM-ID. SVCAFS-60-29. #REPLACE 00252T01 DATA DIVISION RECORD IS VARYING FROM 1 TO 10670. #REPLACE 00256T01 DATA DIVISION COPY MSG-FILE-MAINT-9216-EXT OF "=BASRC_BADDLCOB". #REPLACE 00258Z01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(3394). #ADD 00259L03 DATA DIVISION 05 RECORD-IMAGE-ENHNC-PRE-AUTH. 10 REC-IMAGE-ENHNC-PRE-AUTH PIC X(8) OCCURS 10 TIMES. 05 IMAGE-ENHNC-PRE-AUTH-ACCT. 10 IMAGE-EPA-ACCT PIC X(28) OCCURS 10 TIMES. #DELETE 00260L00 DATA DIVISION #ADD 00275 DATA DIVISION 05 ENHNC-PRE-AUTH-HOLD-IND PIC X(2). #ADD 00281T01 DATA DIVISION 05 CAF-ENHNC-PRE-AUTH-HOLD PIC X(4). #ADD 00281c00 DATA DIVISION 05 ERROR-INFO. 07 OVERLAY-NUM PIC 9(2). 07 ERR-CNT PIC 9(2). 05 SCN-TBL OCCURS 45 TIMES. 07 FLD-ID-NUM PIC 9(2). 07 FLD-INDEX-NUM PIC 9(2). #REPLACE 00281c01 DATA DIVISION 05 LEFTOVER PIC X(4156). #REPLACE 00325L0C DATA DIVISION 05 CALCULATED-SEG25-LGTH PIC S9(4) COMP VALUE +0. #REPLACE 00399 DATA DIVISION 01 WS-HOLD-CHANGE-TIMESTAMP-EPA PIC X(2). #ADD 00458D05 DATA DIVISION 01 ACCNT-SWITCH PIC X VALUE " ". 01 AMT-NUMBER1 PIC 9(18). 01 AMT-NUMR1 REDEFINES AMT-NUMBER1. 05 NUMB1 PIC 9 OCCURS 18 TIMES. 01 AMT-NUMBER PIC 9(15). 01 AMT-NUMR REDEFINES AMT-NUMBER. 05 NUMB PIC 9 OCCURS 15 TIMES. 01 CARD-TYP-REDF. 05 CARD-TYPE-CHAR1 PIC X. 05 CARD-TYPE-CHAR2 PIC X. 01 WS-PAN-NUM. 05 WS-CARD-NUM-CHAR PIC X OCCURS 28 TIMES. 01 WS-ATM-ISS-TXN-PRFL. 05 WS-ATM-ISS-TXN-PRFL-CHAR PIC X OCCURS 16 TIMES. 01 WS-POS-ISS-TXN-PRFL. 05 WS-POS-ISS-TXN-PRFL-CHAR PIC X OCCURS 16 TIMES. 01 WS-SEG12. 05 WS-PIN-MAILER-DESCR PIC X(13) VALUE SPACES. 05 WS-PLASTIC-CARRIER-DESCR PIC X(30) VALUE SPACES. 05 WS-ISSUE-STAT2 PIC X(28) VALUE SPACES. 05 WS-CARDHOLDER-TITLE2 PIC X(04) VALUE SPACES. 05 WS-CARDHOLDER-TITLE PIC X(01) VALUE SPACES. 88 VALID-CARDHOLDER-TITLE VALUE IS "0" THROUGH "5". 05 WS-ISSUE-STAT PIC X(02) VALUE SPACES. 88 VALID-ISSUE-STAT VALUE IS "00" THROUGH "05", "07", "09", "11" THROUGH "13", "17". 05 WS-ISSUE-NUM PIC S9(04) COMP VALUE ZEROES. 88 VALID-ISSUE-NUM VALUE IS 1 THRU 25. 01 WS-NUM-CORP. 05 WS-NUMBER-CORP PIC X OCCURS 19 TIMES. 01 WS-SUPER-TLR-TERM-IDS. 05 WS-SUPER-TLR-TERM-ID PIC X(16) OCCURS 10 TIMES. 01 WS-SUPER-TLR-TERM-IDS-HOLD. 05 WS-SUPER-TLR-TERM-ID-H PIC X(16) OCCURS 10 TIMES. 01 LEADING-ZEROES-FLAG PIC X VALUE SPACES. 88 LEADING-ZEROES VALUE "Y". 01 BAD-FLAG PIC X VALUE " ". 88 FOUND-BAD VALUE "Y". 01 FOUND-FLAG PIC X VALUE " ". 88 FOUND VALUE "Y". 01 DATA-CHECK PIC 99 VALUE 21. 01 VALID-DATA PIC X(4). 01 FLAG-MOVE PIC X VALUE " ". 88 MOVE-MESSAGE VALUE "Y". 88 DONT-MOVE-MESSAGE VALUE "N". 01 INVLD-CNT-CDE. 05 FILLER PIC X(13) VALUE "CONTENT CODE ". 05 CNT-CDE PIC 9 VALUE ZERO. 05 FILLER PIC X(14) VALUE " MUST BE 02 - ". 05 MAX-CNT-CDE PIC 99 VALUE ZERO. 01 WS-ACCTS. 05 WS-ACCT-NUM PIC X OCCURS 28 TIMES. 01 WS-ACCT. 05 WS-ACCT-FIRST-10 OCCURS 10 TIMES. 07 TIP PIC X(2). 07 NOM. 10 WS-ACCT-NUM-CHAR PIC X OCCURS 28 TIMES. 07 STIT PIC X. 07 DISCR PIC X(10). 07 CORP PIC X. 07 M-QUAL PIC X. 01 WS-PIN-OFST. 05 WS-PIN-OFST-CHAR PIC X OCCURS 16 TIMES. 01 SPACE-SWITCH PIC 9 VALUE 0. 01 ACH-DEBIT PIC X(2). 88 USE-ACH-DEBIT VALUE "01", "02", "03", "04", "05", "06", "07", "08", "09", "11", "12", "13", "14", "15", "16", "17", "18", "19". 01 HEX-FLAG PIC X VALUE SPACES. 88 VALID-HEX VALUE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F". 01 WS-VERIFY-DATE. 05 VERIFY-YR PIC 99. 88 VALID-YR VALUE 00 THRU 99. 05 VERIFY-MTH PIC 99. 88 VALID-MTH VALUE 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12. 01 NUM-FLAG PIC X VALUE SPACES. 88 VALID-NUM VALUE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9". 01 WS-ZIP-CDE PIC X(9). 01 WS-ZIP-CDE-B REDEFINES WS-ZIP-CDE. 05 WS-ZIP-CDE-BYTE PIC X OCCURS 9 TIMES. 01 WS-ZIP-CDE-COMP REDEFINES WS-ZIP-CDE. 05 WS-ZIP-FIRST-FIVE PIC X(5). 05 WS-ZIP-LAST-FOUR PIC X(4). 01 WS-CHAR-FLAG PIC X VALUE "Y". #ADD 00473L02 DATA DIVISION 05 EPA-COUNT PIC S9(4) COMP VALUE ZERO. 05 M PIC S9(4) COMP VALUE ZERO. #DELETE 00491 DATA DIVISION #ADD 00506L0A DATA DIVISION 03 ENHNC-PRE-AUTH-H OCCURS 10 TIMES. 04 SEQ-NUM-H PIC X(12). 04 HOLD-AMT-H PIC S9(18) COMP. 04 PR-TIMESTAMP-H PIC S9(4) COMP OCCURS 3 TIMES. 04 APPRV-CDE-H PIC X(8). 04 PRX-TIMESTAMP-H PIC S9(4) COMP OCCURS 3 TIMES. 04 TERM-ID-H PIC X(16). 04 ACCT-TYP-H PIC S9(4) COMP. 04 ACCT-H. 05 ACCT-NUM-H PIC X(19). 04 HOLD-FLG-H PIC X. #ADD 00506L0F DATA DIVISION 01 RECORD-IMAGE-ENHNC-PRE-AUTH-H. 05 REC-IMAGE-ENHNC-PRE-AUTH-H PIC X(8) OCCURS 10 TIMES. #ADD 00517L02 DATA DIVISION COPY NCD-CONTENTS-TABLE OF "=BASRC_COBNAMES". #REPLACE 00530T01 DECLARATIVES COPY OMF-ERR-DECLARATIVE-9216-EXT OF "=BASRC_BACOUTLS". #REPLACE 00553T01 DECLARATIVES COPY SERVER-SKEL-9216-EXT OF "=BASRC_BACOUTLS". #ADD 00569L02 100-DETERMINE-TRAN-CODE MOVE PRE-AUTH-HOLD-IND TO WS-HOLD-CHANGE-TIMESTAMP. MOVE ENHNC-PRE-AUTH-HOLD-IND TO WS-HOLD-CHANGE-TIMESTAMP-EPA. MOVE SPACES TO VALID-DATA. #DELETE 00571 100-DETERMINE-TRAN-CODE #ADD 00572T00 100-DETERMINE-TRAN-CODE IF TRAN-CDE OF MSG-ERR-EXT = DATA-CHECK PERFORM 480-DATA-CHECK ELSE #ADD 00703 200-READ-RCD PERFORM 700-TIMESTAMP-COMPARISON-EPA #ADD 00756L03 206-MOVE-ACCT-NUM MOVE ACCT-NUM OF ACCT OF ENHNC-PRE-AUTH (I) TO IMAGE-EPA-ACCT(I). #ADD 00808T1P 310-UPDATE-REC PERFORM 315-DETER-PR-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF PERFORM 315-CHECK-ENHNC-PRE-AUTH #ADD 00825L0C 310-UPDATE-REC IF BYTE-MAP-R(26) = 1 OR WS-FIID-PROD-IND(26) = "1" PERFORM 312-FILL-ENHNC-PREAUTH ELSE PERFORM 999-EPA-CLEAR VARYING I FROM 1 BY 1 UNTIL I > 10 PERFORM 999-CLR-EPA-CAF VARYING I FROM 1 BY 1 UNTIL I > 10 END-IF #ADD 00840 310-UPDATE-REC PERFORM 700-TIMESTAMP-COMPARISON-EPA #ADD 00870 310-UPDATE-REC 312-FILL-ENHNC-PREAUTH. PERFORM 320-CHANGE-TIME-ENHNC-PRE-AUTH. PERFORM 700-TIMESTAMP-COMPARISON-EPA. PERFORM 700-CLEAR-ENHNC-PRE-AUTH-H VARYING I FROM 1 BY 1 UNTIL I > 10. MOVE 0 TO EPA-COUNT. PERFORM 700-COMPRESS-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10. PERFORM 700-MOVE-ENHNC-PRE-AUTH-H VARYING I FROM 1 BY 1 UNTIL I > 10. PERFORM 315-DETERMINE-SEG25-LENGTH. MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF. MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF. PERFORM 315-CHECK-ENHNC-PRE-AUTH. #ADD 00870L0F 315-ZERO-PRE-AUTH 315-ZERO-ENHNC-PRE-AUTH. MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH (I). MOVE SPACES TO APPRV-CDE OF ENHNC-PRE-AUTH (I), TERM-ID OF ENHNC-PRE-AUTH (I), HOLD-FLG OF ENHNC-PRE-AUTH (I), ACCT-NUM OF ENHNC-PRE-AUTH (I). MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH (I), ACCT-TYP OF ENHNC-PRE-AUTH (I), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3). #REPLACE 00870L0I 315-ZERO-PRE-AUTH SEQ-NUM OF PRE-AUTH (I). #ADD 00880 315-DELETE-EXTRA-SEGS 315-CHECK-ENHNC-PRE-AUTH. IF CALCULATED-SEG25-LGTH = 0 PERFORM 315-DELETE-ENHNC-PRE-AUTH-SEG ELSE NEXT SENTENCE. #ADD 00880L06 315-DELETE-PRE-AUTH-SEG 315-DELETE-ENHNC-PRE-AUTH-SEG. ENTER TAL "DELETE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE DEL-EXTRA-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-CAF-ERROR-TEXT-FILL. 315-DELETE-PRE-AUTH-SEG. #DELETE 00880L07 315-DELETE-PRE-AUTH-SEG #ADD 00880L0O 315-DETERMINE-SEG22-LENGTH 315-DETER-PR-SEG25-LENGTH. MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. ADD 8 TO CALCULATED-SEG25-LGTH. PERFORM 315-CHECK-ENHNC-PREV-ON-HOLD VARYING I FROM 1 BY 1 UNTIL I > 10. IF CALCULATED-SEG25-LGTH = 8 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. #ADD 00880L0X 315-DETERMINE-SEG22-LENGTH 315-DETERMINE-SEG25-LENGTH. MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. ADD 8 TO CALCULATED-SEG25-LGTH. PERFORM 315-CHECK-ENHNC-ON-HOLD VARYING I FROM 1 BY 1 UNTIL I > 10. IF CALCULATED-SEG25-LGTH = 8 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. #ADD 00880L12 315-CHECK-ON-HOLD 315-CHECK-ENHNC-ON-HOLD. IF REC-IMAGE-ENHNC-PRE-AUTH(I) = "ON HOLD " ADD 76 TO CALCULATED-SEG25-LGTH. 315-CHECK-ENHNC-PREV-ON-HOLD. IF REC-IMAGE-ENHNC-PRE-AUTH(I) NOT = SPACES ADD 76 TO CALCULATED-SEG25-LGTH. #ADD 00885 320-CHANGE-TIME-CAF-PRE-AUTH 320-CHANGE-TIME-ENHNC-PRE-AUTH. * THE LINE NUMBER OF THE ENHNC-PRE-AUTH HOLD NEEDING ITS * TIMESTAMP CHANGED TO EFFECT A CANCEL OF THE HOLD IS PASSED * IN THE ENHNC-PRE-AUTH-HOLD-IND FIELD OF RECORD-IMAGES. * TIMESTAMP HAS TO BE CHANGED IN THE SERVER BECAUSE TAL * "TIMESTAMP" CAN'T BE ENTERED FROM A REQUESTER. IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "8" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (1, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (1, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (1, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "9" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (2, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (2, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (2, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "10" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (3, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (3, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (3, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "11" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (4, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (4, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (4, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "12" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (5, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (5, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (5, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "13" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (6, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (6, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (6, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "14" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (7, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (7, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (7, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "15" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (8, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (8, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (8, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "16" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (9, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (9, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (9, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "17" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (10, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (10, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF CAF (10, 3). #ADD 00972 500-ADD-RCD 480-DATA-CHECK. MOVE RECORD-IMAGE-CAF TO CAF. MOVE ISS-TXN-PRFL OF SEG1 OF CAF TO WS-ATM-ISS-TXN-PRFL. MOVE ISS-TXN-PRFL OF SEG2 OF CAF TO WS-POS-ISS-TXN-PRFL. PERFORM 480-DATA-CHECK-SCREEN. MOVE CAF TO RECORD-IMAGE-CAF. PERFORM 90-SERVER-REPLY. 480-DATA-CHECK-SCREEN. MOVE "Y" TO FLAG-MOVE. IF PAN-IMAGE = SPACES MOVE 1 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PAN IS A REQUIRED FIELD" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE PERFORM 480-CHECK-CARD-NUM VARYING I FROM 1 BY 1 UNTIL (I > 28) OR (VALID-DATA = "BAD") IF VALID-DATA NOT = "BAD" MOVE 0 TO SPACE-SWITCH PERFORM 480-CHECK-IMPROPER-SPACES VARYING I FROM 1 BY 1 UNTIL I > 28 OR VALID-DATA = "BAD". IF FIID OF CAF = SPACES ADD 1 TO ERR-CNT MOVE 2 TO ERR-CDE OF MSG-ERR-EXT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES ARE NOT ALLOWED FOR FIID" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OVERLAY-NUM = 1 PERFORM 480-DATA-CHECK-SCREEN1 ELSE IF OVERLAY-NUM = 2 PERFORM 480-DATA-CHECK-SCREEN2 ELSE IF OVERLAY-NUM = 3 PERFORM 480-DATA-CHECK-SCREEN3 ELSE IF OVERLAY-NUM = 4 PERFORM 480-DATA-CHECK-SCREEN4 ELSE IF OVERLAY-NUM = 5 PERFORM 480-DATA-CHECK-SCREEN5 ELSE IF OVERLAY-NUM = 6 PERFORM 480-DATA-CHECK-SCREEN6 ELSE IF OVERLAY-NUM = 8 PERFORM 480-CHECK-OVERLAY-8-ATM ELSE IF OVERLAY-NUM = 9 PERFORM 480-CHECK-OVERLAY-9-NCD ELSE IF OVERLAY-NUM = 10 PERFORM 480-DATA-CHECK-SCREEN10 ELSE IF OVERLAY-NUM = 12 PERFORM 480-DATA-CHECK-SCREEN12 ELSE IF OVERLAY-NUM = 13 PERFORM 480-DATA-CHECK-SCREEN13 ELSE IF OVERLAY-NUM = 14 PERFORM 480-DATA-CHECK-SCREEN14 ELSE IF OVERLAY-NUM = 15 PERFORM 480-DATA-CHECK-SCREEN15 ELSE IF OVERLAY-NUM = 16 PERFORM 480-DATA-CHECK-SCREEN16 ELSE IF OVERLAY-NUM = 20 PERFORM 480-DATA-CHECK-SCREEN20. 480-DATA-CHECK-SCREEN1. IF CRD-TYP = SPACE ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES ARE NOT ALLOWED FOR CARD TYPE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-STAT OF SEG0 = SPACES ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES ARE NOT ALLOWED FOR CARD STATUS" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PIN-OFST NOT = SPACES MOVE PIN-OFST TO WS-PIN-OFST PERFORM 480-CHECK-FOR-HEX VARYING I FROM 1 BY 1 UNTIL ( I > 16) MOVE 0 TO SPACE-SWITCH PERFORM 480-SEARCH-EMBEDDED-SPACES VARYING I FROM 1 BY 1 UNTIL I > 16. IF TTL-WDL-LMT OF SEG0 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG0 > TTL-WDL-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL WIT - "HDRAWAL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG0 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED OFFLINE AG - "GREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG0 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CREDIT CARD LIMIT MUST NOT EXCEED AGGREGAT - "E LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG0 > TTL-CCA-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED TOTAL CRE - "DIT CARD LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG0 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED OFFLINE A - "GGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-AGGR-LMT OF SEG0 > AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE AGGREGATE LIMIT MUST NOT EXCEED AGGREGAT - "E LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN2. IF EXP-DAT OF SEG0 = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EXPIRATION DATE IS REQUIRED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE EXP-DAT OF SEG0 TO WS-VERIFY-DATE IF WS-VERIFY-DATE NOT = ZEROES IF NOT VALID-MTH ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DATE MUST BE IN FORMAT OF YEAR AND MONTH" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN3. PERFORM 481-CHECK-OVERLAY-3 VARYING I FROM 1 BY 1 UNTIL I > 10 OR VALID-DATA = "BAD". 480-DATA-CHECK-SCREEN4. PERFORM 481-CHECK-OVERLAY-4 VARYING I FROM 11 BY 1 UNTIL I > 16 OR VALID-DATA = "BAD". 480-DATA-CHECK-SCREEN5. IF (PRE-AUTH-HOLD-IND = "8" ) AND ((REC-IMAGE-PRE-AUTH (1) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (1)= SPACES)) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (1) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSAR - "Y." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "9" ) AND ((REC-IMAGE-PRE-AUTH (2) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (2) = SPACES)) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (2) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSAR - "Y." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "10" ) AND ((REC-IMAGE-PRE-AUTH (3) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (3) = SPACES)) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (3) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSAR - "Y." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "11" ) AND ((REC-IMAGE-PRE-AUTH(4) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH(4) = SPACES)) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH(4) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSAR - "Y." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "12" ) AND ((REC-IMAGE-PRE-AUTH (5) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (5) = SPACES)) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (5) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSA - "RY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "13" ) AND ((REC-IMAGE-PRE-AUTH(6) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH(6) = SPACES)) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (6) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSA - "RY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "14" ) AND ((REC-IMAGE-PRE-AUTH (7) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (7) = SPACES)) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (7) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "15" ) AND ((REC-IMAGE-PRE-AUTH (8) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (8) = SPACES)) ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (8) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "16" ) AND ((REC-IMAGE-PRE-AUTH (9) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (9) = SPACES)) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (9) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (PRE-AUTH-HOLD-IND = "17" ) AND ((REC-IMAGE-PRE-AUTH (10) = "EXPIRED ") OR (REC-IMAGE-PRE-AUTH (10) = SPACES)) ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-PRE-AUTH (10) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY - "." TO WS-ERR-TXT. 480-DATA-CHECK-SCREEN6. IF (ENHNC-PRE-AUTH-HOLD-IND = "8" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH(1) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH(1)= SPACES)) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH(1) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "9" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (2) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (2) = SPACES)) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH(2) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "10" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (3) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (3) = SPACES)) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (3) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "11" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (4) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (4) = SPACES)) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (4) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "12" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (5) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (5) = SPACES)) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (5) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "13" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (6) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (6) = SPACES)) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (6) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "14" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (7) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (7) = SPACES)) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (7) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "15" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (8) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (8) = SPACES)) ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (8) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "16" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (9) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (9) = SPACES)) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (9) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = "17" ) AND ((REC-IMAGE-ENHNC-PRE-AUTH (10) = "EXPIRED ") OR (REC-IMAGE-ENHNC-PRE-AUTH (10) = SPACES)) ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE IF REC-IMAGE-ENHNC-PRE-AUTH (10) = SPACES MOVE "NO HOLD ON THIS LINE " TO WS-ERR-TXT ELSE MOVE "HOLD ALREADY CANCELLED, NO CHANGE NECESSARY." TO WS-ERR-TXT. 480-DATA-CHECK-SCREEN10. IF TTL-WDL-LMT OF SEG2 > AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG2 > TTL-WDL-LMT OF SEG2 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL WITH - "DRAWAL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG2 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT CANNOT EXCEED OFFLINE AG - "GREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG2 > AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CASH ADVANCE LIMIT MUST NOT EXCEED AGGREGTE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG2 > TTL-CCA-LMT OF SEG2 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CASH ADVANCE MUST NOT EXCEED TOTAL CASH - "ADVANCE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG2 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CASH ADVANCE MUST NOT EXCEED OFFLINE AGG - "EGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PUR-LMT OF SEG2 > TTL-PUR-LMT OF SEG2 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PURCHASE MUST NOT EXCEED TOTAL PURCHASE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-RFND-CR-LMT OF SEG2 > TTL-RFND-CR-LMT OF SEG2 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE REFUNDS CANNOT EXCEED TOTAL REFUNDS" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-STAT OF SEG0 OF CAF = "6" AND RSN-CDE OF SEG2 = SPACE ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "REASON CODE MUST BE IN THE RANGE 'A'-'G' WHEN C - "ARD STATUS IS '6'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF USE-LMT OF SEG2 = 0 ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-POS-ISS-TXN-PRFL = SPACES NEXT SENTENCE ELSE MOVE "Y" TO WS-CHAR-FLAG PERFORM 481-POS-ISS-TXN-PRFL-CHECK VARYING M FROM 1 BY 1 UNTIL M > 16. 480-DATA-CHECK-SCREEN12. MOVE ZIP-CDE OF SEG19 TO WS-ZIP-CDE. IF WS-ZIP-CDE = SPACES NEXT SENTENCE ELSE IF WS-ZIP-CDE-BYTE(1) = " " ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ZIP CODE - LEADING SPACES NOT ALLOWE - "D" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN13. IF SEND-CRD-BLK OF SEG9 NOT = "N" AND SEND-CRD-BLK OF SEG9 NOT = "Y" ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SEND CARD BLOCK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SEND-PUT-DATA OF SEG9 NOT = "N" AND SEND-PUT-DATA OF SEG9 NOT = "Y" ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SEND PUT SCRIPT MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF NOT (SEND-PIN-UNBLK OF SEG9 = "0" OR "1" OR "2" OR "3") ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SEND PIN UNBLOCK MUST BE 0, 1, 2 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF NOT (SEND-PIN-CHNG OF SEG9 = "0" OR "1" OR "2" OR "3") ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SEND PIN CHANGE MUST BE 0, 1, 2 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF NOT (PIN-SYNC-ACT OF SEG9 = "0" OR "1") ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ONLINE/OFFLINE PIN SYNC MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF LWR-CONSEC-LMT OF VLCTY-LMTS OF SEG9 > 255 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "LOWER CONSECUTIVE LIMIT MUST BE LESS THAN 256" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN14. IF CRD-TYP = "ST" AND WS-SUPER-TLR-TERM-ID (1) = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "AT LEAST ONE SUPER TELLER TERMINAL ID IS REQUIRE - "D IF CRD-TYP IS 'ST'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-TYP NOT = "ST" AND WS-SUPER-TLR-TERM-ID (1) NOT = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SUPER TELLER TERMINAL IDS ARE NOT VALID FOR NON - "'ST' TYPE CARDS" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CRD-TYP = "ST" PERFORM 480-CHECK-FOR-DUPS VARYING I FROM 1 BY 1 UNTIL I > 10. 480-DATA-CHECK-SCREEN15. IF CRD-TYP = "SP" AND CORP-NUM = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CORPORATION NUMBER IS REQUIRED IF THE CARD TYPE - "IS 'SP'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CORP-NUM NOT = SPACES MOVE "N" TO BAD-FLAG MOVE CORP-NUM TO WS-NUM-CORP PERFORM 480-CHECK-ACCT-NUM-CORP VARYING J FROM 1 BY 1 UNTIL (J > 10) OR (FOUND-BAD) IF NOT FOUND-BAD MOVE 0 TO SPACE-SWITCH PERFORM 480-CHECK-LEADING-SPACES-CORP IF NOT FOUND-BAD PERFORM 480-CHECK-IMPROPER-SPACES-CORP VARYING J FROM 1 BY 1 UNTIL (J > 10) OR (FOUND-BAD) IF NOT FOUND-BAD NEXT SENTENCE ELSE IF MOVE-MESSAGE ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) MOVE "EMBEDDED SPACES NOT ALLOWED IN CORPORATIO - "N NUMBER" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "LEADING SPACES NOT ALLOWED IN CORPORATION NU - "MBER" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CORPORATION NUMBER MUST BE NUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 NOT = "N" AND CHK-BASE-FLG OF SEG18 NOT = "Y" ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK BASE USAGE/LIMIT FLAG MUST BE Y OR N" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 = "N" AND OFFL-CHK-LMT OF SEG18 = 0 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK BASE USAGE/LIMIT FLAG MUST BE 'Y' IF CHECK - "LIMIT IS 0." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 = "Y" AND TTL-CHK-LMT OF SEG18 > AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CHECK LIMIT MUST NOT EXCEED AGGREGATE LIMIT - "." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CHK-LMT OF SEG18 > TTL-CHK-LMT OF SEG18 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CHECK LIMIT MUST NOT EXCEED TOTAL CHECK - "LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-BASE-FLG OF SEG18 = "Y" AND OFFL-CHK-LMT OF SEG18 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CHECK LIMIT CANNOT EXCEED OFFLINE AGGREG - "ATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN16. IF CSF-CHK-BASE-FLG OF SEG18 NOT = "N" AND CSF-CHK-BASE-FLG OF SEG18 NOT = "Y" ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CSF CHECK BASE USAGE/LIMIT FLAG MUST BE Y OR N" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-BASE-FLG OF SEG18 = "Y" AND TTL-CSF-CHK-LMT OF SEG18 > AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CSF CHECK LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CSF-CHK-LMT OF SEG18 > TTL-CSF-CHK-LMT OF SEG18 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CSF CHECK LIMIT MUST NOT EXCEED TOTAL CSF - " CHECK LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-BASE-FLG OF SEG18 = "Y" AND OFFL-CSF-CHK-LMT OF SEG18 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CHECK LIMIT CANNOT EXCEED OFFLINE AGGREG - "ATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN20. MOVE CRDHLDR-TITLE OF SEG12 TO WS-CARDHOLDER-TITLE IF NOT VALID-CARDHOLDER-TITLE ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TITLE MUST BE 0(N/A) 1(MR.) 2(MRS.) 3(MISS) 4(MS. - ") OR 5(DR.)" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF COUNTRY-CODE OF SEG12 = ZEROES MOVE "**" TO WS-COUNTRY2. IF NOT (PIN-MAILER OF SEG12 = "0" OR "1") ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN MAILER REQUIRED MUST BE ""0"" OR ""1"" " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF NOT (CARD-CARRIER OF SEG12 = "0" OR "1" OR "2" OR "3") ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PLASTIC/CARD CARRIER OPTIONS MUST BE ""0"" THRU - """3"" " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ISSUE-NUM OF SEG12 TO WS-ISSUE-NUM IF NOT VALID-ISSUE-NUM ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUE # MUST BE 01 THRU 25" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ISSUE-STAT OF SEG12 TO WS-ISSUE-STAT IF NOT VALID-ISSUE-STAT ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUE STATUS MUST BE 00-05,07,09,11-13 OR 17" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF (ISSUE-STAT OF SEG12 = "01" OR "02" OR "03" OR "07") AND PIN-MAILER OF SEG12 = "0" AND CARD-CARRIER OF SEG12 = "3" ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "THIS ISSUE STATUS REQUIRES AT LEAST ONE CARD, CR - "RIER, OR PIN MAILER." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-FOR-DUPS. COMPUTE K = I + 1 PERFORM 480-CHECK-FOR-DUPS-CONTINUED VARYING J FROM K BY 1 UNTIL J > 10. 480-CHECK-FOR-DUPS-CONTINUED. IF WS-SUPER-TLR-TERM-ID(I) NOT = SPACES IF WS-SUPER-TLR-TERM-ID(I) = WS-SUPER-TLR-TERM-ID(J) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DUPLICATE SUPER TELLER TERMINAL IDS ARE NOT ALL - "OWED" TO WS-ERR-TXT MOVE 11 TO I, J MOVE "N" TO FLAG-MOVE. 480-CHECK-CARD-NUM. IF PAN-IMAGE-CHAR (I) NOT = SPACE IF PAN-IMAGE-CHAR (I) NOT NUMERIC AND PAN-IMAGE-CHAR (I) NOT ALPHABETIC MOVE "BAD" TO VALID-DATA MOVE 1 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID CHARACTER IN PAN" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-FOR-HEX. MOVE WS-PIN-OFST-CHAR (I) TO HEX-FLAG. IF WS-PIN-OFST-CHAR (I) NOT = SPACE IF NOT VALID-HEX ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN OFFSET MUST BE HEX" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-IMPROPER-SPACES. IF PAN-IMAGE-CHAR(I) = SPACE IF I = 1 MOVE 29 TO I MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID PAN - LEADING SPACES NOT ALLOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 0 MOVE 1 TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 1 MOVE "BAD" TO VALID-DATA MOVE 1 TO ERR-CDE OF MSG-ERR-EXT ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) MOVE 29 TO I IF MOVE-MESSAGE MOVE "EMBEDDED SPACES NOT ALLOWED IN PAN" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-IMPROPER-ACCT-SPACES. IF WS-ACCT-NUM (J) = SPACE IF J = 1 MOVE "BAD" TO VALID-DATA MOVE 29 TO J ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ACCOUNT NUMBER - LEADING SPACES NOT AL - "LOWED" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 0 MOVE 1 TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 1 MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) MOVE 29 TO J IF MOVE-MESSAGE MOVE "EMBEDDED SPACES NOT ALLOWED IN ACCOUNT NUMBER" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-SEARCH-EMBEDDED-SPACES. IF WS-PIN-OFST-CHAR (I) = SPACE IF SPACE-SWITCH = 0 MOVE 1 TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 1 MOVE "BAD" TO VALID-DATA MOVE 17 TO I ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMBEDDED SPACES NOT ALLOWED IN PIN OFFSET" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-ACCT-NUM. IF WS-ACCT-NUM (J) NOT = SPACE IF WS-ACCT-NUM (J) NOT NUMERIC AND WS-ACCT-NUM (J) NOT ALPHABETIC MOVE "BAD" TO VALID-DATA MOVE 29 TO J ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ACCOUNT NUMBER" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-ACCT-NUM-CORP. MOVE WS-NUMBER-CORP (J) TO NUM-FLAG. IF WS-NUMBER-CORP (J) NOT = SPACE IF NOT VALID-NUM MOVE 11 TO ERR-CDE OF MSG-ERR-EXT MOVE "Y" TO BAD-FLAG MOVE "BAD" TO VALID-DATA. 480-CHECK-NCD. IF NCD-CDE OF SEG23(I) = NCD-CONTENTS(K) MOVE "Y" TO FOUND-FLAG. 480-CHECK-LEADING-SPACES-CORP. IF WS-NUMBER-CORP (1) = SPACE MOVE 11 TO ERR-CDE OF MSG-ERR-EXT MOVE "Y" TO BAD-FLAG MOVE "BAD" TO VALID-DATA. 480-CHECK-IMPROPER-SPACES-CORP. IF WS-NUMBER-CORP (J) = SPACE IF SPACE-SWITCH = 0 MOVE 1 TO SPACE-SWITCH ELSE NEXT SENTENCE ELSE IF SPACE-SWITCH = 1 MOVE 11 TO ERR-CDE OF MSG-ERR-EXT MOVE "Y" TO BAD-FLAG MOVE "BAD" TO VALID-DATA. 481-ATM-ISS-TXN-PRFL-CHECK. IF WS-CHAR-FLAG = "N" AND WS-ATM-ISS-TXN-PRFL-CHAR(M) NOT = SPACES ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ISSUER TXN PROFILE - LEADING OR EMBEDDED - "SPACES NOT ALLOWED" TO WS-ERR-TXT MOVE 16 TO M MOVE "N" TO FLAG-MOVE. IF WS-CHAR-FLAG = "Y" AND WS-ATM-ISS-TXN-PRFL-CHAR(M) = SPACES MOVE "N" TO WS-CHAR-FLAG. 481-POS-ISS-TXN-PRFL-CHECK. IF WS-CHAR-FLAG = "N" AND WS-POS-ISS-TXN-PRFL-CHAR(M) NOT = SPACES ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID ISSUER TXN PROFILE - LEADING OR EMBEDDED - "SPACES NOT ALLOWED" TO WS-ERR-TXT MOVE 16 TO M MOVE "N" TO FLAG-MOVE. IF WS-CHAR-FLAG = "Y" AND WS-POS-ISS-TXN-PRFL-CHAR(M) = SPACES MOVE "N" TO WS-CHAR-FLAG. 481-CHECK-OVERLAY-3. MOVE SPACES TO WS-ACCTS MOVE ACCOUNT-NUM (I) TO WS-ACCTS IF TYPE-OF-ACCT (I) NOT = SPACES IF STAT-OF-ACCT-IMAGE (I) = SPACES MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STATUS CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF WS-ACCTS = SPACES MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACCOUNT NUMBER CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE "N" TO BAD-FLAG PERFORM 480-CHECK-ACCT-NUM VARYING J FROM 1 BY 1 UNTIL (J > 28) OR (FOUND-BAD) IF NOT FOUND-BAD MOVE 0 TO SPACE-SWITCH PERFORM 480-CHECK-IMPROPER-ACCT-SPACES VARYING J FROM 1 BY 1 UNTIL J > 28. IF TYPE-OF-ACCT (I) NOT = SPACES IF MAC-QUAL (I) NOT = "0" AND MAC-QUAL (I) NOT = "1" AND MAC-QUAL (I) NOT = "2" AND MAC-QUAL (I) NOT = "3" AND MAC-QUAL (I) NOT = " " ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "QUAL MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TYPE-OF-ACCT (I) NOT = SPACES IF CORP-ACCT (I) NOT = "A" AND CORP-ACCT (I) NOT = " " ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACH IND MUST BE 'A' OR ' '" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE TYPE-OF-ACCT(I) TO ACH-DEBIT. IF NOT USE-ACH-DEBIT AND CORP-ACCT (I) NOT = " " AND TYPE-OF-ACCT (I) NOT = SPACES ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACH-IND VALID ONLY ON ACCOUNT TYPES 01-09 OR 11-1 - "9" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 481-CHECK-OVERLAY-4. MOVE SPACES TO WS-ACCTS MOVE ACCOUNT-NUM(I) TO WS-ACCTS IF TYPE-OF-ACCT(I) NOT = SPACES IF STAT-OF-ACCT-IMAGE (I) = SPACES MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STATUS CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF WS-ACCTS = SPACES MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACCOUNT NUMBER CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE "N" TO BAD-FLAG PERFORM 480-CHECK-ACCT-NUM VARYING J FROM 1 BY 1 UNTIL (J > 28) OR (FOUND-BAD) IF NOT FOUND-BAD MOVE 0 TO SPACE-SWITCH PERFORM 480-CHECK-IMPROPER-ACCT-SPACES VARYING J FROM 1 BY 1 UNTIL J > 28. IF TYPE-OF-ACCT (I) NOT = SPACES IF MAC-QUAL (I) NOT = "0" AND MAC-QUAL (I) NOT = "1" AND MAC-QUAL (I) NOT = "2" AND MAC-QUAL (I) NOT = "3" AND MAC-QUAL (I) NOT = " " ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "QUAL MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TYPE-OF-ACCT (I) NOT = SPACES IF CORP-ACCT (I) NOT = "A" AND CORP-ACCT (I) NOT = " " ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACH IND MUST BE 'A' OR ' '" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE TYPE-OF-ACCT(I) TO ACH-DEBIT. IF NOT USE-ACH-DEBIT AND CORP-ACCT (I) NOT = " " AND TYPE-OF-ACCT (I) NOT = SPACES ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) MOVE I TO FLD-INDEX-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACH-IND VALID ONLY ON ACCOUNT TYPES 01-09 OR 11-1 - "9" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-OVERLAY-8-ATM. IF TTL-WDL-LMT OF SEG1 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG1 > TTL-WDL-LMT OF SEG1 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL WIT - "HDRAWAL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG1 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED OFFLINE - "AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG1 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG1 > TTL-CCA-LMT OF SEG1 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED TOTAL CR - "EDIT CARD LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG1 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED OFFLINE - "AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF SEG1 > TTL-WDL-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM CASH WDL LIMIT MUST NOT EXCEED BASE CASH WDL L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF SEG1 > OFFL-WDL-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM OFFLINE CASH WDL LIMIT MUST NOT EXCEED BASE OFF - "LINE WDL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF SEG1 > TTL-CCA-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM CASH ADV LIMIT MUST NOT EXCEED BASE CASH ADV L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF SEG1 > OFFL-CCA-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ATM OFFLINE CASH ADV LIMIT MUST NOT EXCEED BASE O - "FFLINE CASH ADV LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF USE-LMT OF SEG1 = 0 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-ATM-ISS-TXN-PRFL = SPACES NEXT SENTENCE ELSE MOVE "Y" TO WS-CHAR-FLAG PERFORM 481-ATM-ISS-TXN-PRFL-CHECK VARYING M FROM 1 BY 1 UNTIL M > 16. 480-CHECK-OVERLAY-9-NCD. IF TTL-WDL-LMT OF CASH-VAL-LMT OF SEG23 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE - "LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 > TTL-WDL-LMT OF CASH-VAL-LMT OF SEG23 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL WI - "THDRAWAL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF CASH-VAL-LMT OF SEG23 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED OFFLINE - "AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF CASH-VAL-LMT OF SEG23 > AGGR-LMT ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 > TTL-CCA-LMT OF CASH-VAL-LMT OF SEG23 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED TOTAL - "CREDIT CARD LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF CASH-VAL-LMT OF SEG23 > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED OFFLINE - " AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. PERFORM 480-CHECK-CONTENT-LIMITS VARYING I FROM 1 BY 1 UNTIL I > 2. IF USE-LMT OF SEG23 = 0 ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-CHECK-CONTENT-LIMITS. MOVE SPACES TO FOUND-FLAG. PERFORM 480-CHECK-NCD VARYING K FROM 1 BY 1 UNTIL K > NCD-CONTENTS-TBL-CNT. IF NCD-CDE OF SEG23(I) = SPACES NEXT SENTENCE ELSE IF K > NCD-CONTENTS-TBL-CNT AND NOT FOUND ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE I TO CNT-CDE MOVE NCD-CONTENTS-TBL-CNT TO MAX-CNT-CDE ADD 1 TO MAX-CNT-CDE MOVE INVLD-CNT-CDE TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-WDL-LMT OF NCD-LMT OF SEG23(I) > AGGR-LMT ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL WITHDRAWAL LIMIT MUST NOT EXCEED AGGREGATE - " LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF NCD-LMT OF SEG23(I) > TTL-WDL-LMT OF NCD-LMT OF SEG23(I) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED TOTAL W - "ITHDRAWAL LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-WDL-LMT OF NCD-LMT OF SEG23(I) > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE WITHDRAWAL LIMIT MUST NOT EXCEED OFFLINE - " AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF TTL-CCA-LMT OF NCD-LMT OF SEG23(I) > AGGR-LMT ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TOTAL CREDIT CARD LIMIT MUST NOT EXCEED AGGREGATE L - "IMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF NCD-LMT OF SEG23(I) > TTL-CCA-LMT OF NCD-LMT OF SEG23(I) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED TOTAL - "CREDIT CARD LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-CCA-LMT OF NCD-LMT OF SEG23(I) > OFFL-AGGR-LMT OF SEG0 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE CREDIT CARD LIMIT MUST NOT EXCEED OFFLIN - "E AGGREGATE LIMIT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 500-ADD-RCD. #REPLACE 00973 500-ADD-RCD #REPLACE 00994 500-ADD-RCD MOVE 9216 TO IOBUFLEN #ADD 01058Q0A 510-RCD-ADD IF NO-ERROR IF BYTE-MAP-R(26) = 0 AND WS-FIID-PROD-IND(26) = 1 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF PERFORM 315-CHECK-ENHNC-PRE-AUTH. #ADD 01108L05 600-READ-NEXT-RCD PERFORM 700-TIMESTAMP-COMPARISON-EPA PERFORM 315-DETER-PR-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF PERFORM 315-CHECK-ENHNC-PRE-AUTH #ADD 01184L2I 700-TIMESTAMP-COMPARISON-LOOP 700-TIMESTAMP-COMPARISON-EPA. MOVE SPACES TO RECORD-IMAGE-ENHNC-PRE-AUTH. PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-1 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-1. PERFORM 720-COMPARE-E-PR-TIMESTAMP-1. IF REC-IMAGE-ENHNC-PRE-AUTH(1) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (1) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(1) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (1) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(1). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-2 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-2. PERFORM 720-COMPARE-E-PR-TIMESTAMP-2. IF REC-IMAGE-ENHNC-PRE-AUTH(2) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (2) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(2) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (2) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(2). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-3 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-3. PERFORM 720-COMPARE-E-PR-TIMESTAMP-3. IF REC-IMAGE-ENHNC-PRE-AUTH(3) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (3) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(3) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (3) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(3). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-4 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-4. PERFORM 720-COMPARE-E-PR-TIMESTAMP-4. IF REC-IMAGE-ENHNC-PRE-AUTH(4)= SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (4) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(4) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (4) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(4). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-5 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-5. PERFORM 720-COMPARE-E-PR-TIMESTAMP-5. IF REC-IMAGE-ENHNC-PRE-AUTH(5) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (5) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(5) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (5) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(5). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-6 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-6. PERFORM 720-COMPARE-E-PR-TIMESTAMP-6. IF REC-IMAGE-ENHNC-PRE-AUTH(6) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (6) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(6) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (6) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(6). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-7 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-7. PERFORM 720-COMPARE-E-PR-TIMESTAMP-7. IF REC-IMAGE-ENHNC-PRE-AUTH(7) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (7) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(7) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (7) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(7). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-8 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-8. PERFORM 720-COMPARE-E-PR-TIMESTAMP-8. IF REC-IMAGE-ENHNC-PRE-AUTH(8) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (8) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(8) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (8) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(8). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-9 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-9. PERFORM 720-COMPARE-E-PR-TIMESTAMP-9. IF REC-IMAGE-ENHNC-PRE-AUTH(9) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (9) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(9) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (9) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(9). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-10 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-10. PERFORM 720-COMPARE-E-PR-TIMESTAMP-10. IF REC-IMAGE-ENHNC-PRE-AUTH(10) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (10) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(10) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (10) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(10). 700-CLEAR-ENHNC-PRE-AUTH-H. MOVE SPACES TO SEQ-NUM-H OF ENHNC-PRE-AUTH-H(I), TERM-ID-H OF ENHNC-PRE-AUTH-H(I), HOLD-FLG-H OF ENHNC-PRE-AUTH-H(I), ACCT-NUM-H OF ENHNC-PRE-AUTH-H(I), APPRV-CDE-H OF ENHNC-PRE-AUTH-H(I), REC-IMAGE-ENHNC-PRE-AUTH-H(I). MOVE ZEROES TO HOLD-AMT-H OF ENHNC-PRE-AUTH-H(I), ACCT-TYP-H OF ENHNC-PRE-AUTH-H(I), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 1), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 2), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 3), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 1), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 2), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 3). 700-CLEAR-PRE-AUTH-H. MOVE SPACES TO SEQ-NUM-H OF PRE-AUTH-H(I), ACCT-NUM-H OF PRE-AUTH-H(I), USER-FLD1-H OF PRE-AUTH-H(I), REC-IMAGE-PRE-AUTH-H(I). MOVE ZEROES TO HOLD-AMT-H OF PRE-AUTH-H(I), PR-TIMESTAMP-H OF PRE-AUTH-H(I, 1), PR-TIMESTAMP-H OF PRE-AUTH-H(I, 2), PR-TIMESTAMP-H OF PRE-AUTH-H(I, 3), ACCT-TYP-H OF PRE-AUTH-H(I). 700-COMPRESS-ENHNC-PRE-AUTH. IF REC-IMAGE-ENHNC-PRE-AUTH(I) = "ON HOLD " ADD 1 TO EPA-COUNT MOVE ENHNC-PRE-AUTH(I) TO ENHNC-PRE-AUTH-H(EPA-COUNT) MOVE REC-IMAGE-ENHNC-PRE-AUTH(I) TO REC-IMAGE-ENHNC-PRE-AUTH-H(EPA-COUNT). #DELETE 01185L00/01186L08 700-COMPRESS-PRE-AUTH #ADD 01186L0K 710-MOVE-PR-TIMESTAMP-1 700-MOVE-ENHNC-PRE-AUTH-H. MOVE ENHNC-PRE-AUTH-H(I) TO ENHNC-PRE-AUTH(I). MOVE REC-IMAGE-ENHNC-PRE-AUTH-H(I) TO REC-IMAGE-ENHNC-PRE-AUTH(I). 710-MOVE-PR-TIMESTAMP-1. MOVE PR-TIMESTAMP OF PRE-AUTH(1, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-2. MOVE PR-TIMESTAMP OF PRE-AUTH(2, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-3. MOVE PR-TIMESTAMP OF PRE-AUTH(3, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-4. MOVE PR-TIMESTAMP OF PRE-AUTH(4, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-5. MOVE PR-TIMESTAMP OF PRE-AUTH(5, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-6. MOVE PR-TIMESTAMP OF PRE-AUTH(6, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-7. MOVE PR-TIMESTAMP OF PRE-AUTH(7, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-8. MOVE PR-TIMESTAMP OF PRE-AUTH(8, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-9. MOVE PR-TIMESTAMP OF PRE-AUTH(9, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-10. MOVE PR-TIMESTAMP OF PRE-AUTH(10, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-1. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(1, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-2. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(2, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-3. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(3, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-4. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(4, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-5. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(5, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-6. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(6, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-7. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(7, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-8. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(8, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-9. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(9, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-10. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(10, I) TO PR-WS-TIMESTAMP-OCCURS (I). #DELETE 01187 /01192L0P 715-FORMAT-PR-TIMESTAMP-1 #ADD 01198L0P 720-COMPARE-PR-TIMESTAMP-1 720-COMPARE-E-PR-TIMESTAMP-1. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(1). 720-COMPARE-E-PR-TIMESTAMP-2. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(2). 720-COMPARE-E-PR-TIMESTAMP-3. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(3). 720-COMPARE-E-PR-TIMESTAMP-4. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(4). 720-COMPARE-E-PR-TIMESTAMP-5. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(5). 720-COMPARE-E-PR-TIMESTAMP-6. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(6). 720-COMPARE-E-PR-TIMESTAMP-7. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(7). 720-COMPARE-E-PR-TIMESTAMP-8. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(8). 720-COMPARE-E-PR-TIMESTAMP-9. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(9). 720-COMPARE-E-PR-TIMESTAMP-10. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(10). #ADD 01753 911-RCD-RETRIEVE IF NO-ERROR PERFORM 315-ZERO-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10 IF BYTE-MAP-R(26) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, SEG25 OF CAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE 25 TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT PERFORM 100-CAF-ERROR-TEXT-FILL. #ADD 01790Q08 912-RCD-REPLACE IF NO-ERROR IF BYTE-MAP-R(26) = "1" OR WS-FIID-PROD-IND(26) = "1" PERFORM 315-DETERMINE-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF IF CALCULATED-SEG25-LGTH NOT = 0 ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG25 OF CAF, PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "25" TO RCD-REPL-SEG-NUM PERFORM 912-RCD-REPLACE-ERROR. #REPLACE 01873T02 922-READ-IDF MOVE FIID OF MSG-FILE-MAINT-9216-EXT TO FIID OF SEG0 OF IDF #ADD 01955T12 927-RCD-WRITE PERFORM 315-DETERMINE-SEG25-LENGTH. MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF. MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF. PERFORM 315-CHECK-ENHNC-PRE-AUTH. #REPLACE 01970 928-RCD-REWRITE MOVE 9216 TO IOBUFLEN. #REPLACE 01999Y08 980-SEND-PATH-MSG MSG-FILE-MAINT-9216-EXT, 9216, 9216, REPLY-LGTH, #ADD 02022L02 999-DO-MOVES-IMAGE-TO-CAF PERFORM 999-EPA-ACCT-MOVE VARYING I FROM 1 BY 1 UNTIL I > 10 #ADD 02029 999-DO-MOVES-IMAGE-TO-CAF 999-EPA-CLEAR. MOVE " " TO REC-IMAGE-ENHNC-PRE-AUTH(I). #ADD 02029L03 999-CLR-PA-CAF 999-CLR-EPA-CAF. MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO APPRV-CDE OF ENHNC-PRE-AUTH OF CAF(I). MOVE ZEROES TO ACCT-TYP OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACES TO TERM-ID OF ENHNC-PRE-AUTH OF CAF(I). MOVE SPACE TO HOLD-FLG OF ENHNC-PRE-AUTH OF CAF(I). #ADD 02029L09 999-PA-ACCT-MOVE 999-EPA-ACCT-MOVE. IF REC-IMAGE-ENHNC-PRE-AUTH(I) = "ON HOLD " MOVE IMAGE-EPA-ACCT(I) TO ACCT-NUM OF ACCT OF ENHNC-PRE-AUTH (I). #REPLACE 02044T01 999-SAVE-LAST-FM COPY AUDIT-CODE-9216-EXT OF "=BASRC_BACOUTLS". #ENDSCN = BA06251 !*CMP2.13 02/07/03 RQECFS 6036 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFS RQECFS 6036 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFS RQECFS 6036 * ******************************************************************************** #SCN = BA06252 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6036 #NEWVERSION = 6037 #ADD 00019j0B * 07FEB2003 ME/27 * Symptom: POS Enhancements. * Problem: None. * Fix: Added support for the UAF cleanup program. * Modified Procs: 300-VALIDATE-DATA * 400-SAVE-RECORD * 450-SET-UP-ADD * 470-SET-UP-UPDATE * 480-DATA-CHECK * 595-CLEAR-DATA * Added Procs: 481-MULTI-ACH-FORMAT-FILES-CHK * 481-CHECK-UAF-CLEANUP-FILE-MAP * Dependency: Apply the fix to DDLFECF, RQECFS, SCRNECF and * reMake. Refer to BA60UD60.SCNFIL for a complete * listing of dependencies. * Reference: WO 020606-01 #ADD 00042e04 DATA DIVISION ***************************************************************** * IF THE SIZE OF THE FILE-MAP TABLE CHANGES THE WS-FILE-MAP * * TABLE MUST ALSO CHANGED. ALSO WS-FILE-MAP-MAX WILL NEED TO BE * * CHANGED. * ***************************************************************** 01 WS-FILE-MAP. 05 WS-FILE-MAP-CHK PIC X OCCURS 132 TIMES. 01 WS-FILE-MAP-MAX PIC 999 VALUE 132. #ADD 00051 DATA DIVISION 05 WS-CLEANUP-ERR-TXT PIC X(30) VALUE "UAF CLEANUP MUST BE 'Y' OR 'N'". #ADD 00141S00 300-VALIDATE-DATA IF VALID-DATA NOT = "BAD" PERFORM 481-MULTI-ACH-FORMAT-FILES-CHK. #ADD 00148j03 400-VALIDATE-DATA IF FLG OF UAF-CLEANUP = SPACES MOVE "N" TO FLG OF UAF-CLEANUP. IF GRP OF UAF-CLEANUP = SPACES MOVE "ALL" TO GRP OF UAF-CLEANUP. #ADD 00152j03 400-MOVE-RECORD IF FLG OF UAF-CLEANUP = SPACES MOVE "N" TO FLG OF UAF-CLEANUP. IF GRP OF UAF-CLEANUP = SPACES MOVE "ALL" TO GRP OF UAF-CLEANUP. #ADD 00155Z00 400-SAVE-RECORD IF FLG OF UAF-CLEANUP = SPACES MOVE "N" TO FLG OF UAF-CLEANUP. IF GRP OF UAF-CLEANUP = SPACES MOVE "ALL" TO GRP OF UAF-CLEANUP. #ADD 00187e00 450-SET-UP-ADD IF VALID-DATA NOT = "BAD" PERFORM 481-MULTI-ACH-FORMAT-FILES-CHK. #ADD 00214S00 470-SET-UP-UPDATE IF VALID-DATA NOT = "BAD" PERFORM 481-MULTI-ACH-FORMAT-FILES-CHK. #ADD 00532A00 480-DATA-CHECK IF WS-OVERLAY = 2 IF FLG OF UAF-CLEANUP = SPACES MOVE "N" TO FLG OF UAF-CLEANUP. IF WS-OVERLAY = 2 IF GRP OF UAF-CLEANUP = SPACES MOVE "ALL" TO GRP OF UAF-CLEANUP. IF WS-OVERLAY = 2 IF ( FLG OF UAF-CLEANUP NOT = "Y" AND FLG OF UAF-CLEANUP NOT = "N" ) MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-UAF-CLN-UP IF MOVE-MESSAGE MOVE WS-CLEANUP-ERR-TXT TO ERR-TXT SET NEW-CURSOR AT ECF-UAF-CLN-UP MOVE "N" TO FLAG-MOVE. #ADD 00844e00 480-DATA-CHECK 481-MULTI-ACH-FORMAT-FILES-CHK. IF FLG OF UAF-CLEANUP = "Y" MOVE FILE-MAP TO WS-FILE-MAP PERFORM 481-CHECK-UAF-CLEANUP-FILE-MAP VARYING I FROM 1 BY 1 UNTIL I > WS-FILE-MAP-MAX. 481-CHECK-UAF-CLEANUP-FILE-MAP. IF WS-FILE-MAP-CHK(I) = "Y" MOVE "BAD" TO VALID-DATA MOVE WS-FILE-MAP-MAX TO I IF MOVE-MESSAGE MOVE "WHEN UAF CLEANUP FLAG ON PAGE 2 IS 'Y' ALL OTHER - "FLAGS MUST BE 'N'." TO ERR-TXT MOVE "N" TO FLAG-MOVE IF WS-OVERLAY = 2 TURN TEMP SERROR IN ECF-UAF-CLN-UP SET NEW-CURSOR AT ECF-UAF-CLN-UP. #ADD 01054X01 595-CLEAR-DATA MOVE "N" TO FLG OF UAF-CLEANUP. MOVE "ALL" TO GRP OF UAF-CLEANUP. #ADD 01110 595-CLEAR-DATA MOVE "N" TO FLG OF UAF-CLEANUP. MOVE "ALL" TO GRP OF UAF-CLEANUP. #ENDSCN = BA06252 !*CMP2.13 02/07/03 SECTBL 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6012 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6012 * ******************************************************************************** #SCN = BA06253 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00268L0C * 13JAN2003 JJD/615 * Symptom: POS Enhancements. * Problem: None. * Fix: 1. Added support for two RCDF screens * 2. Added support for CAF Enhanced Pre-Auth screen. * 3. Added support for UAF Enhanced Pre-Auth screen. * Dependency: Apply fix to SECTBL and run MAKE. Refer to * BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #DELETE 00359D01 #DELETE 00359D02 #ADD 00359D02 05 ATD21 PIC X(35) VALUE "ATD 210101EMV TERMINAL CAPABILITIES". #ADD 00374 05 CAF6 PIC X(35) VALUE "CAF 061900ENHANCED PRE-AUTH HOLDS ". #ADD 00731 05 RCDF1 PIC X(35) VALUE "RCDF010002RESPONSE CODE SUMMARY ". 05 RCDF2 PIC X(35) VALUE "RCDF020002RESPONSE CODE DETAIL ". #ADD 00809 05 UAF3 PIC X(35) VALUE "UAF 031900ENHANCED PRE-AUTH HOLDS ". #REPLACE 00893L01 05 PROD-SCRN-ACC-TABL OCCURS 574 TIMES. #REPLACE 00906L01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 574. #ENDSCN = BA06253 !*CMP2.13 02/07/03 MEGATBL 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6004 * ******************************************************************************** #SCN = BA06254 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00046D06 * 07FEB2003 JRS/497 * Symptom: POS Enhancements. * Problem: None. * Fix: Added RCDF to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fixes to MEGATBL and run MAKE. Refer to * BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #ADD 00113 "RCDF", #ENDSCN = BA06254 !*CMP2.13 02/07/03 RQIDFS 6056 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQIDFS RQIDFS 6056 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQIDFS RQIDFS 6056 * ******************************************************************************** #SCN = BA06256 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6056 #NEWVERSION = 6057 #ADD 00115&0C * 07FEB2003 ME/27 * Symptom: POS Enhancements. * Problem: None. * Fix: Added support for Persistant UAF support. Holds * level checking has been modified to allow support * of enhanced pre-authorisation. * Modified Procedures: * 400-MOVE-WS-FIELDS * 400-SAVE-RECORD * 480-DATA-CHECK * 481-ERR-FLAG-OV-3 * 484-FILL-POS-HLDS-LVL-DESC * 595-CLEAR-DATA * New Procedures: * 481-FLAG-OV-3-FIELD-4 * Dependency: Apply the fix to DDLFIDF, RQIDFS, SVIDFS, SCRNIDF * and reMake. Refer to BA60UD06.SCNFIL for a * complete listing of dependencies. * Reference: WO #020606-01 #ADD 00130z04 DATA DIVISION 05 PERSISTENT-UAF-DESC PIC X(27). #ADD 00130z08 DATA DIVISION 05 FILLER PIC X(308). #DELETE 00130z09 DATA DIVISION #ADD 00187 DATA DIVISION 01 WS-UAF-FILE-NAM-REQ-MSG PIC X(67) VALUE "NO UAF FILE NAME ENTERED ON SCREEN 1 FOR PERSISTENT UAF MAINT - "ENANCE". #ADD 00237v03 DATA DIVISION 10, 17, 18, 19, 20, 22, 23, 24, 26, 27. #DELETE 00237v04 DATA DIVISION #ADD 01160 400-MOVE-WS-FIELDS IF PERSISTENT-UAF = SPACES MOVE ZEROES TO PERSISTENT-UAF. #ADD 01209 400-SAVE-RECORD IF PERSISTENT-UAF = SPACES MOVE SPACES TO PERSISTENT-UAF. #ADD 01449z06 480-DATA-CHECK-RETURN IF OVERLAY-NUM = 3 IF (( PERSISTENT-UAF = "1" OR PERSISTENT-UAF = "2" ) AND UAF-NAME = SPACES ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE WS-UAF-FILE-NAM-REQ-MSG TO ERR-TXT OF MSG-FILE-MAINT-5120-EXT MOVE "N" TO FLAG-MOVE. #ADD 01638 481-ERR-FLAG-OV-3 481-FLAG-OV-3-FIELD-3, 481-FLAG-OV-3-FIELD-4 #DELETE 01639 481-ERR-FLAG-OV-3 #ADD 01652 481-ERR-FLAG-OV-4 481-FLAG-OV-3-FIELD-4. TURN TEMP SERROR IN I-PERSISTENT-UAF. SET NEW-CURSOR AT I-PERSISTENT-UAF. #ADD 02053j3H 484-FILL-POS-HLDS-LVL-DESC IF PRE-AUTH-HLDS-LVL OF SEG2(I) = "1" MOVE "(UAF) " TO PRE-AUTH-HLDS-LVL-DESC(I) ELSE #ADD 03121g01 595-CLEAR-DATA MOVE "0" TO PERSISTENT-UAF. #ENDSCN = BA06256 !*CMP2.13 02/07/03 SVIDFS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVIDFS SVIDFS 6049 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVIDFS SVIDFS 6049 * ******************************************************************************** #SCN = BA06257 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00043w0C * 07FEB2003 ME/27 * Symptom: POS Enhancements. * Problem: None. * Fix: Added support for Persistant UAF support. Holds * level checking has been modified to allow support * of enhanced pre-authorisation. * Modified Procedures: * 480-BASE-DATA-CHECK * 482-CHECK-POS-RT-TBL-ENTRY * 484-CK-POS-HLDS-LEVEL * 550-TBL-LOOKUP * 550-FILL-POS-HLDS-LVL-DESC * Dependency: Apply the fix to DDLFIDF, RQIDFS, SVIDFS, SCRNIDF * and reMake. * Reference: WO 020606-01 #ADD 00123q0L DATA DIVISION 09 PERSISTENT-UAF-DESC PIC X(27). #ADD 00123q0P DATA DIVISION 09 FILLER PIC X(308). #DELETE 00123q0Q DATA DIVISION #ADD 00167u02 DATA DIVISION 01 WS-INVALID-PRE-AUTH-HLDS-MSG PIC X(66) VALUE "PRE-AUTH OR ENHNC-PRE-AUTH ENTRY ON SCREEN 5 MUST BE 'Y' FO - "R HOLDS". 01 WS-INV-ENH-PRE-AUTH-HLDS-MSG PIC X(43) VALUE "HOLDS LVL MUST BE 0 OR 1 FOR ENHNC-PRE-AUTH". 01 WS-INVALID-PRESISTENT-UAF-MSG PIC X(32) VALUE "PERSISTENT UAF MUST BE 0, 1 OR 2". #ADD 00360f0H DATA DIVISION 01 RT-TBL-UAF-ERR-MSG. 05 FILLER PIC X(66) VALUE "UAF FILE NAME IS REQ'D ON SCREEN 1 FOR AUTH TYPE 0 ON ENH-P - "RE-AUTH". #ADD 00956C00 480-BASE-DATA-CHECK IF OVERLAY-NUM = 3 IF NOT (PERSISTENT-UAF = "0" OR "1" OR "2") ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE WS-INVALID-PRESISTENT-UAF-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01026f01 480-BASE-DATA-CHECK IF WS-FIID-D-C-PKG(23) = "N" AND WS-FIID-D-C-PKG(26) = "N" AND WS-FIID-D-C-PKG(3) = "Y" #DELETE 01026f02 480-BASE-DATA-CHECK #ADD 02069f0A 482-CHECK-POS-RT-TBL-ENTRY IF AUTH-TYP OF RT-TBL OF SEG2(I) = "0" AND PRE-AUTH-HLDS-LVL OF SEG2(I) = "1" AND UAF-NAME = SPACES ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM (ERR-CNT) MOVE I TO FLD-INDEX-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE RT-TBL-UAF-ERR-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 02199f02 484-CK-POS-HLDS-LEVEL IF WS-FIID-D-C-PKG(23) = "N" AND WS-FIID-D-C-PKG(26) = "N" #DELETE 02199f03 484-CK-POS-HLDS-LEVEL #ADD 02199f09 484-CK-POS-HLDS-LEVEL MOVE WS-INVALID-PRE-AUTH-HLDS-MSG TO WS-ERR-TXT #DELETE 02199f0A/02199f0B 484-CK-POS-HLDS-LEVEL #ADD 02199f0D 484-CK-POS-HLDS-LEVEL IF WS-FIID-D-C-PKG(23) = "N" AND WS-FIID-D-C-PKG(26) = "Y" IF PRE-AUTH-HLDS-LVL OF SEG2(I) NOT = "0" AND PRE-AUTH-HLDS-LVL OF SEG2(I) NOT = "1" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM (ERR-CNT) MOVE I TO FLD-INDEX-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE I TO RT-TBL-MSG-LINENO MOVE WS-INV-ENH-PRE-AUTH-HLDS-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-FIID-D-C-PKG(23) = "Y" AND WS-FIID-D-C-PKG(26) = "Y" AND AUTH-TYP OF RT-TBL OF SEG2(I) = "0" IF PRE-AUTH-HLDS-LVL OF SEG2(I) NOT = "0" AND PRE-AUTH-HLDS-LVL OF SEG2(I) NOT = "1" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM (ERR-CNT) MOVE I TO FLD-INDEX-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE I TO RT-TBL-MSG-LINENO MOVE WS-INV-ENH-PRE-AUTH-HLDS-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-FIID-D-C-PKG(23) = "Y" AND WS-FIID-D-C-PKG(26) = "N" AND AUTH-TYP OF RT-TBL OF SEG2(I) = "0" #DELETE 02199f0E 484-CK-POS-HLDS-LEVEL #ADD 02528b3F 550-TBL-LOOKUP IF OVERLAY-NUM = 3 MOVE SPACES TO PERSISTENT-UAF-DESC IF PERSISTENT-UAF = "0" MOVE "(N/A OR NON-PERSISTENT UAF)" TO PERSISTENT-UAF-DESC ELSE IF PERSISTENT-UAF = "1" MOVE "(YES, WITH SETL SUPPORT)" TO PERSISTENT-UAF-DESC ELSE IF PERSISTENT-UAF = "2" MOVE "(YES, WITHOUT SETL SUPPORT)" TO PERSISTENT-UAF-DESC ELSE MOVE "(*************************)" TO PERSISTENT-UAF-DESC. #ADD 02528f9J 550-FILL-POS-HLDS-LVL-DESC ELSE IF PRE-AUTH-HLDS-LVL OF SEG2(I) = "1" MOVE "(UAF) " TO PRE-AUTH-HLDS-LVL-DESC(I) #ENDSCN = BA06257 !*CMP2.13 02/07/03 RQUAFS 6015 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQUAFS RQUAFS 6015 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQUAFS RQUAFS 6015 * ******************************************************************************** #SCN = BA06258 , FILEID = RQUAFS #VOLUME = $ROOK.BA60AFT #FILE = RQUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6015 #NEWVERSION = 6016 #ADD 00023O0J * 07FEB2003 ME/27 * Symptom: POS Enhancements. * Problem: None. * Fix: 1. Support has been added for the new Online * Record Maintenance segment. * 2. Support has been added for the enhanced * pre-auth segment. * Dependency: Apply fixes to DDLGDEFS, DDLFUAF, RQUAFS and * SVUAFS. Replace SCRNUAF and run Make. Refer to * BA60UD06.SCNFIL for a complete list of * dependencies. * Reference: WO #020606-01 ************************************************************** #DELETE 00023O0K #DELETE 00023O0L #ADD 00121J00 DATA DIVISION 01 WS-ENHNC-PRE-AUTH-TABLE. 02 WS-TABLE OCCURS 10 TIMES. 05 WS-SELECTION PIC X. 05 WS-HOLD-STATUS PIC X(8). 05 WS-APPRV-CODE PIC X(8). 05 WS-EPA-ACCT-TYP PIC X(2). 05 WS-EPA-SEQ-NUM PIC X(12). 05 WS-EPA-AMOUNT PIC X(20). #ADD 00124N00 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 4, 5, 6, 10, 48. #DELETE 00124N01 DATA DIVISION #ADD 00129 DATA DIVISION 05 UAF3 PIC X(4) VALUE "BASE". #DELETE 00130 DATA DIVISION #ADD 00141O01 DATA DIVISION COPY MSG-FILE-MAINT-4096-EXT OF =BASRC_BADDLCOB. #DELETE 00141O02 DATA DIVISION #ADD 00143N00 DATA DIVISION 05 REC-IMAGE-UAF PIC X(1696). #DELETE 00143N01 DATA DIVISION #ADD 00144J03 DATA DIVISION 05 RECORD-IMAGE-ENHNC-PRE-AUTH. 10 REC-IMAGE-ENHNC-PRE-AUTH PIC X(8) OCCURS 10 TIMES. #ADD 00149 DATA DIVISION 05 ENHNC-PRE-AUTH-HOLD-IND PIC X(2). #ADD 00160J04 DATA DIVISION 05 UAF-ENHNC-PRE-AUTH-HOLD PIC X(4). #ADD 00160O03 DATA DIVISION 05 FILLER PIC X(1892). #DELETE 00160O04 DATA DIVISION #ADD 00179O02 DATA DIVISION COPY SC-UAF3 OF =BAAFT_SCNUAFO. #DELETE 00179O03 DATA DIVISION #ADD 00225 200-GET-DATA MOVE SPACES TO ENHNC-PRE-AUTH-HOLD-IND. #ADD 00227 200-GET-DATA IF WS-OVERLAY = 2 OR WS-OVERLAY = 3 #DELETE 00228 200-GET-DATA #ADD 00371O00 300-VALIDATE-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00371O01 300-VALIDATE-DATA #ADD 00395O00 245-FETCH-RECORD IF ERR-CDE OF MSG-FILE-MAINT-4096-EXT = 0 #DELETE 00395O01 245-FETCH-RECORD #ADD 00420O00 255-ADD-RECORD IF ERR-CDE OF MSG-FILE-MAINT-4096-EXT = 0 #DELETE 00420O01 255-ADD-RECORD #ADD 00464O00 275-UPDATE-RECORD IF ERR-CDE OF MSG-FILE-MAINT-4096-EXT = 0 #DELETE 00464O01 275-UPDATE-RECORD #ADD 00488O00 285-READ-NEXT IF ERR-CDE OF MSG-FILE-MAINT-4096-EXT = 0 #DELETE 00488O01 285-READ-NEXT #ADD 00525O00 400-MOVE-RECORD TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00525O01 400-MOVE-RECORD #ADD 00532J04 400-MORE-MOVES MOVE SPACES TO WS-ENHNC-PRE-AUTH-TABLE. PERFORM 400-MOVE-ENHNC-PRE-AUTH-TO-WS VARYING I FROM 1 BY 1 UNTIL I > 10. PERFORM 400-MOVE-STATUS-E-TIME-TO-WS VARYING I FROM 1 BY 1 UNTIL I > 10. #ADD 00542K07 400-MOVE-PRE-AUTHS-TO-WS 400-MOVE-ENHNC-PRE-AUTH-TO-WS. MOVE SEQ-NUM OF ENHNC-PRE-AUTH OF UAF(I) TO WS-EPA-SEQ-NUM(I). IF ACCT-TYP OF ENHNC-PRE-AUTH OF UAF(I) = ZEROES MOVE SPACES TO WS-EPA-ACCT-TYP(I) ELSE MOVE ACCT-TYP OF ENHNC-PRE-AUTH OF UAF(I) TO WS-EPA-ACCT-TYP(I). MOVE APPRV-CDE OF ENHNC-PRE-AUTH OF UAF(I) TO WS-APPRV-CODE(I). MOVE HOLD-AMT OF ENHNC-PRE-AUTH OF UAF(I) TO AMT-NUMBER1. MOVE SPACES TO AMT-DISPLAY1. * THE FIELD HAS ALWAYS BEEN COMPLETELY ZEROES SUPPRESSED * IN THE PAST SO DON'T DO ANYTHING BUT LET THE SPACES DISPLAY IF AMT-NUMBER1 NOT = ZERO PERFORM 400-CHANGE-NUM-TO-ALPHA1. MOVE AMT-DISPLAY1 TO WS-EPA-AMOUNT(I). #ADD 00590J00 400-MOVE-STATUS-TIME-TO-WS MOVE REC-IMAGE-PRE-AUTH(I) TO WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(I). #DELETE 00590J01/00590J02 400-MOVE-STATUS-TIME-TO-WS #ADD 00591J00 400-MOVE-STATUS-TIME-TO-WS 400-MOVE-STATUS-E-TIME-TO-WS. MOVE REC-IMAGE-ENHNC-PRE-AUTH(I) TO WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(I). #ADD 00611O01 400-SAVE-RECORD FIID OF MSG-FILE-MAINT-4096-EXT. #DELETE 00611O02 400-SAVE-RECORD #ADD 00611O03 400-SAVE-RECORD LN OF MSG-FILE-MAINT-4096-EXT. #DELETE 00611O04 400-SAVE-RECORD #ADD 00611O05 400-SAVE-RECORD LCONF-NAME OF MSG-FILE-MAINT-4096-EXT. #DELETE 00611O06 400-SAVE-RECORD #ADD 00611O07 400-SAVE-RECORD SITE-PROD-IND OF MSG-FILE-MAINT-4096-EXT. #DELETE 00611O08 400-SAVE-RECORD #ADD 00611O09 400-SAVE-RECORD OMF-AUDIT OF MSG-FILE-MAINT-4096-EXT. #DELETE 00611O0A 400-SAVE-RECORD #ADD 00623O05 400-SET-UP MOVE WS-FIID TO FIID OF MSG-FILE-MAINT-4096-EXT #DELETE 00623O06 400-SET-UP #ADD 00629O01 400-SET-UP MOVE SPACES TO REGN OF MSG-FILE-MAINT-4096-EXT. MOVE SPACES TO BRCH OF MSG-FILE-MAINT-4096-EXT. #DELETE 00629O02/00629O03 400-SET-UP #ADD 00635O00 400-SET-UP MOVE "55" TO APPL-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00635O01 400-SET-UP #ADD 00728O01 401-CHECK-FIID-ACCESS MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00728O02 401-CHECK-FIID-ACCESS #ADD 00728O03 401-CHECK-FIID-ACCESS MOVE WS-FIID TO FIID OF MSG-FILE-MAINT-4096-EXT #DELETE 00728O04 401-CHECK-FIID-ACCESS #ADD 00740O00 401-ERR-ON-FIID-ACCESS ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE TERMINATION-STATUS TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00740O01/00740O02 401-ERR-ON-FIID-ACCESS #ADD 00752O00 440-SET-UP-FETCH MOVE 1 TO TRAN-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00752O01 440-SET-UP-FETCH #ADD 00758O00 445-SET-UP-READ-NEXT MOVE 7 TO TRAN-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00758O01 445-SET-UP-READ-NEXT #ADD 00781N0E 450-SET-UP-ADD MOVE ZEROES TO LAST-RESET-DAT, ATM-LAST-USED-DAT, POS-LAST-USED-DAT. #ADD 00782J02 450-SET-UP-ADD PERFORM 450-ZERO-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10 #ADD 00786O00 450-SET-UP-ADD MOVE 4 TO TRAN-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00786O01 450-SET-UP-ADD #ADD 00793J03 450-ZERO-PRE-AUTH 450-ZERO-ENHNC-PRE-AUTH. MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH(I), APPRV-CDE OF ENHNC-PRE-AUTH(I). MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH (I), ACCT-TYP OF ENHNC-PRE-AUTH(I), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3). #ADD 00799O00 460-SET-UP-DELETE MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00799O01 460-SET-UP-DELETE #ADD 00799O03 460-SET-UP-DELETE ERR-TXT OF MSG-FILE-MAINT-4096-EXT. #DELETE 00799O04 460-SET-UP-DELETE #ADD 00799O09 460-SET-UP-DELETE MOVE 3 TO TRAN-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00799O0A 460-SET-UP-DELETE #ADD 00815O00 470-SET-UP-UPDATE MOVE 2 TO TRAN-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00815O01 470-SET-UP-UPDATE #ADD 00821O00 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00821O01 480-DATA-CHECK #ADD 00825O01 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00825O02 480-DATA-CHECK #ADD 00838O00 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00838O01 480-DATA-CHECK #ADD 00843O01 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00843O02 480-DATA-CHECK #ADD 00849J01 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(1) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(1) = SPACES)) #DELETE 00850 /00851 480-DATA-CHECK #ADD 00851O00 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00851O01 480-DATA-CHECK #ADD 00856O01 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00856O02 480-DATA-CHECK #ADD 00862J01 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(2) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(2) = SPACES)) #DELETE 00863 /00864 480-DATA-CHECK #ADD 00864O00 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00864O01 480-DATA-CHECK #ADD 00869O00 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00869O01 480-DATA-CHECK #ADD 00871J05 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(3) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(3) = SPACES)) #DELETE 00871J06/00871J07 480-DATA-CHECK #ADD 00871O00 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O01 480-DATA-CHECK #ADD 00871O03 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O04 480-DATA-CHECK #ADD 00871J0J 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(4) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(4) = SPACES)) #DELETE 00871J0K/00871J0L 480-DATA-CHECK #ADD 00871O06 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O07 480-DATA-CHECK #ADD 00871O09 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0A 480-DATA-CHECK #ADD 00871J0X 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(5) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(5) = SPACES)) #DELETE 00871J0Y/00871J0Z 480-DATA-CHECK #ADD 00871O0C 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0D 480-DATA-CHECK #ADD 00871O0F 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0G 480-DATA-CHECK #ADD 00871J1B 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(6) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(6) = SPACES)) #DELETE 00871J1C/00871J1D 480-DATA-CHECK #ADD 00871O0I 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0J 480-DATA-CHECK #ADD 00871O0L 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0M 480-DATA-CHECK #ADD 00871J1P 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(7) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(7) = SPACES)) #DELETE 00871J1Q/00871J1R 480-DATA-CHECK #ADD 00871O0O 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0P 480-DATA-CHECK #ADD 00871O0R 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0S 480-DATA-CHECK #ADD 00871J23 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(8) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(8) = SPACES)) #DELETE 00871J24/00871J25 480-DATA-CHECK #ADD 00871O0U 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0V 480-DATA-CHECK #ADD 00871O0X 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O0Y 480-DATA-CHECK #ADD 00871J2H 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(9) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(9) = SPACES)) #DELETE 00871J2I/00871J2J 480-DATA-CHECK #ADD 00871O10 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O11 480-DATA-CHECK #ADD 00871O13 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O14 480-DATA-CHECK #ADD 00871J2V 480-DATA-CHECK ((WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(10) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-PRE-AUTH-TABLE(10) = SPACES)) #DELETE 00871J2W/00871J2X 480-DATA-CHECK #ADD 00871O16 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O17 480-DATA-CHECK #ADD 00871O19 480-DATA-CHECK ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O1A 480-DATA-CHECK #ADD 00871J36 480-DATA-CHECK IF WS-OVERLAY = 3 IF (ENHNC-PRE-AUTH-HOLD-IND = 9) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(1) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(1) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(1) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (1) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 10) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(2) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(2) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(2) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (2) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 11) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(3) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(3) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(3) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT(3) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 12) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(4) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(4) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(4) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (4) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 13) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(5) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(5) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(5) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (5) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 14) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(6) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(6) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(6) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (6) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 15) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(7) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(7) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(7) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (7) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 16) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(8) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(8) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(8) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (8) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 17) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(9) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(9) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(9) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (9) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF (ENHNC-PRE-AUTH-HOLD-IND = 18) AND ((WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(10) = "EXPIRED ") OR (WS-HOLD-STATUS OF WS-ENHNC-PRE-AUTH-TABLE(10) = SPACES)) MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN U-EPA-SELECT(10) IF MOVE-MESSAGE SET NEW-CURSOR AT U-EPA-SELECT (10) MOVE "NO HOLD ON THIS LINE" TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT MOVE "N" TO FLAG-MOVE. #ADD 00871O1C 480-DATA-CHECK MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O1D 480-DATA-CHECK #ADD 00871O1F 480-DATA-CHECK OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O1G 480-DATA-CHECK #ADD 00871O1I 480-SET-CONTENTS-ERR MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT. #DELETE 00871O1J 480-SET-CONTENTS-ERR #ADD 00871O1L 480-SET-CONTENTS-ERR OF MSG-FILE-MAINT-4096-EXT #DELETE 00871O1M 480-SET-CONTENTS-ERR #ADD 00876O00 480-CARD-NUM-NUMERIC MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00876O01 480-CARD-NUM-NUMERIC #ADD 00881O00 480-CARD-NUM-NUMERIC ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00881O01 480-CARD-NUM-NUMERIC #ADD 00888O00 480-MEMBER-NUM-NUMERIC MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00888O01 480-MEMBER-NUM-NUMERIC #ADD 00894O00 480-MEMBER-NUM-NUMERIC TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00894O01 480-MEMBER-NUM-NUMERIC #ADD 00900O00 480-CHECK-IMPROPER-SPACES MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00900O01 480-CHECK-IMPROPER-SPACES #ADD 00905O00 480-CHECK-IMPROPER-SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00905O01 480-CHECK-IMPROPER-SPACES #ADD 00918O00 480-CHECK-IMPROPER-SPACES MOVE 11 TO ERR-CDE OF MSG-FILE-MAINT-4096-EXT #DELETE 00918O01 480-CHECK-IMPROPER-SPACES #ADD 00924O00 480-CHECK-IMPROPER-SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT #DELETE 00924O01 480-CHECK-IMPROPER-SPACES #ADD 01068 500-CHANGE-TIMESTAMP IF WS-OVERLAY = 2 PERFORM 500-CHANGE-TIMESTAMP-PA ELSE IF WS-OVERLAY = 3 PERFORM 500-CHANGE-TIMESTAMP-EPA. 500-CHANGE-TIMESTAMP-PA. #ADD 01076 550-TABLE-LOOK-UP 500-CHANGE-TIMESTAMP-EPA. *SAVE THE CURSOR LOCATION PASS IN MESSAGE TO SERVER. MOVE SPACES TO ENHNC-PRE-AUTH-HOLD-IND. MOVE "HOLD" TO UAF-PRE-AUTH-HOLD. IF OLD-CURSOR-ROW = 9 MOVE 9 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 10 MOVE 10 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 11 MOVE 11 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 12 MOVE 12 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 13 MOVE 13 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 14 MOVE 14 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 15 MOVE 15 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 16 MOVE 16 TO ENHNC-PRE-AUTH-HOLD-IND ELSE IF OLD-CURSOR-ROW = 17 MOVE 17 TO ENHNC-PRE-AUTH-HOLD-IND ELSE MOVE 18 TO ENHNC-PRE-AUTH-HOLD-IND. PERFORM 270-UPDATE-RECORD. #ADD 01123 570-DISPLAY-OVERLAY-3 PERFORM 490-CHANGE-FUNCTION-KEYS. #DELETE 01124 570-DISPLAY-OVERLAY-3 #ADD 01255L02 595-CLEAR-DATA MOVE ZEROES TO LGTH OF SEG-LGTH OF SEG25, LGTH OF SEG26. #ADD 01312O00 595-SCREEN-INIT COPY FILE-MAINTENANCE-800-4096-EXT OF =BASRC_BACOUTLS. COPY 900-DISPLAYS-4096-EXT OF =BASRC_BACOUTLS. #DELETE 01312O01/01312O02 595-SCREEN-INIT #ENDSCN = BA06258 !*CMP2.13 02/07/03 SVUAFS 6014 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVUAFS SVUAFS 6014 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVUAFS SVUAFS 6014 * ******************************************************************************** #SCN = BA06259 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6014 #NEWVERSION = 6015 #ADD 00017N1H * 07FEB2003 ME/27 * Symptom: POS Enhancements. * Problem: None. * Fix: 1. Support has been added for the Online Record * Maintenance Segment. * 2. Support has been added for the enhanced * pre-auth Segment. * Modified procs: * 20-INIT-REPLY * 90-SERVER-REPLY * 200-READ-RCD * 310-UPDATE-REC * 500-ADD-RCD * 510-RCD-ADD * 600-READ-NEXT-RCD * 700-CLEAR-PRE-AUTH-H * 710-MOVE-PR-TIMESTAMP-1 * | | * 710-MOVE-PR-TIMESTAMP-10 * 909-TABL-MAINT * 911-RCD-RETRIEVE * 912-RCD-REPLACE * 927-RCD-WRITE * New procs: * 315-ZERO-ENHNC-PRE-AUTH * 315-CHECK-ENHNC-PRE-AUTH * 315-DELETE-ENHNC-PRE-AUTH-SEG * 315-DETER-PR-SEG25-LENGTH * 315-DETERMINE-SEG25-LENGTH * 315-CHECK-ENHNC-PREV-ON-HOLD * 315-CHECK-ENHNC-ON-HOLD * 320-CHANGE-TIME-ENHNC-PRE-AUTH * 700-TIMESTAMP-COMPARISON-EPA * 700-CLEAR-ENHNC-PRE-AUTH-H * 700-COMPRESS-ENHNC-PRE-AUTH * 700-MOVE-ENHNC-PRE-AUTH-H * 710-MOVE-ENHNC-PR-TIMESTAMP-1 * | | * 710-MOVE-ENHNC-PR-TIMESTAMP-10 * 720-COMPARE-E-PR-TIMESTAMP-1 * | | * 720-COMPARE-E-PR-TIMESTAMP-10 * 999-EPA-CLEAR * Dependency: Apply fixes to DDLGDEFS, DDLFUAF, RQUAFS and * SVUAFS. Replace SCRNUAF and run Make. Refer to * BA60UD06.SCNFIL for a complete list of * dependencies. * Reference: WO #020606-01 ************************************************************** #DELETE 00017N1I #ADD 00332N01 DATA DIVISION COPY MSG-FILE-MAINT-4096-EXT OF "=BASRC_BADDLCOB". #DELETE 00332N02 DATA DIVISION #ADD 00336N00 DATA DIVISION 05 REC-IMAGE-UAF PIC X(1696). #DELETE 00336N01 DATA DIVISION #ADD 00336N03 DATA DIVISION 05 RECORD-IMAGE-ENHNC-PRE-AUTH. 10 REC-IMAGE-ENHNC-PRE-AUTH PIC X(8) OCCURS 10 TIMES. #ADD 00348 DATA DIVISION 05 ENHNC-PRE-AUTH-HOLD-IND PIC X(2). #ADD 00359N04 DATA DIVISION 05 UAF-ENHNC-PRE-AUTH-HOLD PIC X(4). 05 FILLER PIC X(1860). #DELETE 00359N05 DATA DIVISION #ADD 00462 DATA DIVISION 01 WS-HOLD-CHANGE-TIMESTAMP-EPA PIC X(2). #ADD 00543J01 DATA DIVISION 05 EPA-COUNT PIC S9(4) COMP VALUE ZERO. #ADD 00570J0C DATA DIVISION 03 ENHNC-PRE-AUTH-H OCCURS 10 TIMES. 04 SEQ-NUM-H PIC X(12). 04 HOLD-AMT-H PIC S9(18) COMP. 04 PR-TIMESTAMP-H PIC S9(4) COMP OCCURS 3 TIMES. 04 APPRV-CDE-H PIC X(8). 04 PRX-TIMESTAMP-H PIC S9(4) COMP OCCURS 3 TIMES. 04 TERM-ID-H PIC X(16). 04 ACCT-TYP-H PIC S9(4) COMP. 04 ACCT-H. 05 ACCT-NUM-H PIC X(19). 04 HOLD-FLG-H PIC X. #ADD 00570J0G DATA DIVISION 01 RECORD-IMAGE-ENHNC-PRE-AUTH-H. 05 REC-IMAGE-ENHNC-PRE-AUTH-H PIC X(8) OCCURS 10 TIMES. #ADD 00580J0B DATA DIVISION 01 WS-RECORD-HOLD PIC X(1696). #DELETE 00580J0C DATA DIVISION #ADD 00580J0F DATA DIVISION 03 FILLER PIC X(1550). #DELETE 00580J0G DATA DIVISION #ADD 00580J17 DATA DIVISION 05 CALCULATED-SEG25-LGTH PIC S9(4) COMP VALUE +0. 05 ONL-REC-MAINT-SEG-LGTH PIC S9(4) COMP VALUE 26. #ADD 00594N00 DECLARATIVES COPY OMF-ERR-DECLARATIVE-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 00594N01 DECLARATIVES #ADD 00649N00 A-TRANS COPY AUDIT-ASSIGN-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 00649N01 A-TRANS #ADD 00656 20-INIT-REPLY MOVE ENHNC-PRE-AUTH-HOLD-IND TO WS-HOLD-CHANGE-TIMESTAMP-EPA. #ADD 00720N00 90-SERVER-REPLY MOVE WS-ERR-TXT TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT. #DELETE 00720N01 90-SERVER-REPLY #ADD 00722N00 90-SERVER-REPLY WRITE MSG-FILE-MAINT-4096-EXT OF MESSAGE-IO. #DELETE 00722N01 90-SERVER-REPLY #ADD 00903 200-READ-RCD PERFORM 700-TIMESTAMP-COMPARISON-EPA #ADD 00991N0R 310-UPDATE-REC PERFORM 315-DETER-PR-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF MOVE ONL-REC-MAINT-SEG-LGTH TO LGTH OF SEG26 OF UAF MOVE SEG-ONL-REC-MAINT-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG26 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG26 OF UAF #ADD 00991N0S 310-UPDATE-REC PERFORM 315-CHECK-ENHNC-PRE-AUTH #ADD 01004J0C 310-UPDATE-REC PERFORM 320-CHANGE-TIME-ENHNC-PRE-AUTH PERFORM 700-TIMESTAMP-COMPARISON-EPA PERFORM 700-CLEAR-ENHNC-PRE-AUTH-H VARYING I FROM 1 BY 1 UNTIL I > 10 MOVE 0 TO EPA-COUNT PERFORM 700-COMPRESS-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10 PERFORM 700-MOVE-ENHNC-PRE-AUTH-H VARYING I FROM 1 BY 1 UNTIL I > 10 PERFORM 315-DETERMINE-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF PERFORM 315-CHECK-ENHNC-PRE-AUTH #ADD 01018 310-UPDATE-REC PERFORM 700-TIMESTAMP-COMPARISON-EPA #ADD 01049J09 310-UPDATE-REC 315-ZERO-ENHNC-PRE-AUTH. MOVE SPACES TO SEQ-NUM OF ENHNC-PRE-AUTH (I). MOVE SPACES TO APPRV-CDE OF ENHNC-PRE-AUTH (I), TERM-ID OF ENHNC-PRE-AUTH (I), HOLD-FLG OF ENHNC-PRE-AUTH (I). MOVE ZEROES TO HOLD-AMT OF ENHNC-PRE-AUTH (I), ACCT-TYP OF ENHNC-PRE-AUTH (I), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 1), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 2), PR-TXN-TIMESTAMP OF ENHNC-PRE-AUTH (I, 3). #ADD 01058J06 310-UPDATE-REC 315-CHECK-ENHNC-PRE-AUTH. IF CALCULATED-SEG25-LGTH = 0 PERFORM 315-DELETE-ENHNC-PRE-AUTH-SEG ELSE NEXT SENTENCE. #ADD 01058J0E 310-UPDATE-REC 315-DELETE-ENHNC-PRE-AUTH-SEG. ENTER TAL "DELETE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE DEL-EXTRA-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-UAF-ERROR-TEXT-FILL. #ADD 01058J0N 310-UPDATE-REC 315-DETER-PR-SEG25-LENGTH. MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. ADD 8 TO CALCULATED-SEG25-LGTH. PERFORM 315-CHECK-ENHNC-PREV-ON-HOLD VARYING I FROM 1 BY 1 UNTIL I > 10. IF CALCULATED-SEG25-LGTH = 8 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. #ADD 01058J0X 310-UPDATE-REC 315-DETERMINE-SEG25-LENGTH. MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. ADD 8 TO CALCULATED-SEG25-LGTH. PERFORM 315-CHECK-ENHNC-ON-HOLD VARYING I FROM 1 BY 1 UNTIL I > 10. IF CALCULATED-SEG25-LGTH = 8 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH. #ADD 01058J11 310-UPDATE-REC 315-CHECK-ENHNC-PREV-ON-HOLD. IF REC-IMAGE-ENHNC-PRE-AUTH(I) NOT = SPACES ADD 76 TO CALCULATED-SEG25-LGTH. #ADD 01058J15 310-UPDATE-REC 315-CHECK-ENHNC-ON-HOLD. IF REC-IMAGE-ENHNC-PRE-AUTH(I) = "ON HOLD " ADD 76 TO CALCULATED-SEG25-LGTH. #ADD 01067J16 310-UPDATE-REC 320-CHANGE-TIME-ENHNC-PRE-AUTH. * THE LINE NUMBER OF THE ENHNC-PRE-AUTH HOLD NEEDING ITS * TIMESTAMP CHANGED TO EFFECT A CANCEL OF THE HOLD IS PASSED * IN THE ENHNC-PRE-AUTH-HOLD-IND FIELD OF RECORD-IMAGES. * TIMESTAMP HAS TO BE CHANGED IN THE SERVER BECAUSE TAL * "TIMESTAMP" CAN'T BE ENTERED FROM A REQUESTER. IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "9" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (1, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (1, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (1, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "10" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (2, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (2, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (2, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "11" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (3, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (3, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (3, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "12" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (4, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (4, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (4, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "13" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (5, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (5, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (5, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "14" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (6, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (6, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (6, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "15" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (7, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (7, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (7, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "16" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (8, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (8, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (8, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "17" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (9, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (9, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (9, 3) ELSE IF WS-HOLD-CHANGE-TIMESTAMP-EPA = "18" MOVE TIME1 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (10, 1) MOVE TIME2 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (10, 2) MOVE TIME3 TO PR-TIMESTAMP OF ENHNC-PRE-AUTH OF UAF (10, 3). #ADD 01159N00 500-ADD-RCD MOVE FIID OF MSG-FILE-MAINT-4096-EXT TO FIID OF SEG0 OF IDF. #DELETE 01159N01 500-ADD-RCD #ADD 01236M0A 510-RCD-ADD IF NO-ERROR IF BYTE-MAP-R(26) = 0 AND WS-FIID-PROD-IND(26) = 1 MULTIPLY CALCULATED-SEG25-LGTH BY 0 GIVING CALCULATED-SEG25-LGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG25 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF PERFORM 315-CHECK-ENHNC-PRE-AUTH. IF NO-ERROR IF BYTE-MAP-R(27) = 0 AND WS-FIID-PROD-IND(27) = 1 MOVE ONL-REC-MAINT-SEG-LGTH TO LGTH OF SEG26 OF UAF MOVE SEG-ONL-REC-MAINT-C TO ID OF SEG26 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG26 OF UAF ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG26 OF UAF, PTR-ARRAY, SEG-ONL-REC-MAINT-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "26" TO ADD-SEG-NUM MOVE ADD-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG. #ADD 01273J04 600-READ-NEXT-RCD PERFORM 700-TIMESTAMP-COMPARISON-EPA PERFORM 315-DETER-PR-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF PERFORM 315-CHECK-ENHNC-PRE-AUTH #ADD 01342N33 700-CLEAR-PRE-AUTH-H 700-TIMESTAMP-COMPARISON-EPA. MOVE SPACES TO RECORD-IMAGE-ENHNC-PRE-AUTH. PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-1 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-1. PERFORM 720-COMPARE-E-PR-TIMESTAMP-1. IF REC-IMAGE-ENHNC-PRE-AUTH(1) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (1) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(1) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (1) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(1). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-2 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-2. PERFORM 720-COMPARE-E-PR-TIMESTAMP-2. IF REC-IMAGE-ENHNC-PRE-AUTH(2) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (2) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(2) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (2) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(2). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-3 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-3. PERFORM 720-COMPARE-E-PR-TIMESTAMP-3. IF REC-IMAGE-ENHNC-PRE-AUTH(3) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (3) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(3) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (3) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(3). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-4 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-4. PERFORM 720-COMPARE-E-PR-TIMESTAMP-4. IF REC-IMAGE-ENHNC-PRE-AUTH(4)= SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (4) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(4) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (4) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(4). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-5 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-5. PERFORM 720-COMPARE-E-PR-TIMESTAMP-5. IF REC-IMAGE-ENHNC-PRE-AUTH(5) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (5) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(5) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (5) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(5). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-6 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-6. PERFORM 720-COMPARE-E-PR-TIMESTAMP-6. IF REC-IMAGE-ENHNC-PRE-AUTH(6) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (6) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(6) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (6) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(6). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-7 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-7. PERFORM 720-COMPARE-E-PR-TIMESTAMP-7. IF REC-IMAGE-ENHNC-PRE-AUTH(7) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (7) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(7) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (7) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(7). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-8 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-8. PERFORM 720-COMPARE-E-PR-TIMESTAMP-8. IF REC-IMAGE-ENHNC-PRE-AUTH(8) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (8) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(8) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (8) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(8). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-9 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-9. PERFORM 720-COMPARE-E-PR-TIMESTAMP-9. IF REC-IMAGE-ENHNC-PRE-AUTH(9) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (9) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(9) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (9) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(9). PERFORM 710-MOVE-ENHNC-PR-TIMESTAMP-10 VARYING I FROM 1 BY 1 UNTIL I > 3. PERFORM 715-FORMAT-PR-TIMESTAMP-10. PERFORM 720-COMPARE-E-PR-TIMESTAMP-10. IF REC-IMAGE-ENHNC-PRE-AUTH(10) = SPACES IF HOLD-AMT OF ENHNC-PRE-AUTH (10) NOT = ZEROES MOVE "ON HOLD " TO REC-IMAGE-ENHNC-PRE-AUTH(10) ELSE NEXT SENTENCE ELSE IF HOLD-AMT OF ENHNC-PRE-AUTH (10) = ZEROES MOVE SPACES TO REC-IMAGE-ENHNC-PRE-AUTH(10). #ADD 01342N34 700-CLEAR-PRE-AUTH-H MOVE SPACES TO SEQ-NUM-H OF PRE-AUTH-H(I). MOVE SPACES TO ACCT-NUM-H OF PRE-AUTH-H(I). MOVE SPACES TO USER-FLD1-H OF PRE-AUTH-H(I). #DELETE 01342N35/01342N37 700-CLEAR-PRE-AUTH-H #ADD 01342N38 700-CLEAR-PRE-AUTH-H MOVE ZEROES TO HOLD-AMT-H OF PRE-AUTH-H(I). MOVE ZEROES TO PR-TIMESTAMP-H OF PRE-AUTH-H(I, 1). MOVE ZEROES TO PR-TIMESTAMP-H OF PRE-AUTH-H(I, 2). MOVE ZEROES TO PR-TIMESTAMP-H OF PRE-AUTH-H(I, 3). MOVE ZEROES TO ACCT-TYP-H OF PRE-AUTH-H(I). #DELETE 01342N39/01342N3D 700-CLEAR-PRE-AUTH-H #ADD 01342N3E 700-COMPRESS-PRE-AUTH 700-CLEAR-ENHNC-PRE-AUTH-H. MOVE SPACES TO SEQ-NUM-H OF ENHNC-PRE-AUTH-H(I), TERM-ID-H OF ENHNC-PRE-AUTH-H(I), HOLD-FLG-H OF ENHNC-PRE-AUTH-H(I), APPRV-CDE-H OF ENHNC-PRE-AUTH-H(I), ACCT-NUM-H OF ENHNC-PRE-AUTH-H(I), REC-IMAGE-ENHNC-PRE-AUTH-H(I). MOVE ZEROES TO HOLD-AMT-H OF ENHNC-PRE-AUTH-H(I), ACCT-TYP-H OF ENHNC-PRE-AUTH-H(I), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 1), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 2), PR-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 3), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 1), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 2), PRX-TIMESTAMP-H OF ENHNC-PRE-AUTH-H(I, 3). #ADD 01342N3L 700-MOVE-PRE-AUTH-H 700-COMPRESS-ENHNC-PRE-AUTH. IF REC-IMAGE-ENHNC-PRE-AUTH(I) = "ON HOLD " ADD 1 TO EPA-COUNT MOVE ENHNC-PRE-AUTH(I) TO ENHNC-PRE-AUTH-H(EPA-COUNT) MOVE REC-IMAGE-ENHNC-PRE-AUTH(I) TO REC-IMAGE-ENHNC-PRE-AUTH-H(EPA-COUNT). #ADD 01342N3P 700-MOVE-PRE-AUTH-H 700-MOVE-ENHNC-PRE-AUTH-H. MOVE ENHNC-PRE-AUTH-H(I) TO ENHNC-PRE-AUTH(I). MOVE REC-IMAGE-ENHNC-PRE-AUTH-H(I) TO REC-IMAGE-ENHNC-PRE-AUTH(I). #ADD 01342N3S 710-MOVE-PR-TIMESTAMP-1 710-MOVE-PR-TIMESTAMP-1. MOVE PR-TIMESTAMP OF PRE-AUTH(1, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-2. MOVE PR-TIMESTAMP OF PRE-AUTH(2, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-3. MOVE PR-TIMESTAMP OF PRE-AUTH(3, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-4. MOVE PR-TIMESTAMP OF PRE-AUTH(4, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-5. MOVE PR-TIMESTAMP OF PRE-AUTH(5, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-6. MOVE PR-TIMESTAMP OF PRE-AUTH(6, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-7. MOVE PR-TIMESTAMP OF PRE-AUTH(7, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-8. MOVE PR-TIMESTAMP OF PRE-AUTH(8, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-9. MOVE PR-TIMESTAMP OF PRE-AUTH(9, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-PR-TIMESTAMP-10. MOVE PR-TIMESTAMP OF PRE-AUTH(10, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-1. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(1, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-2. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(2, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-3. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(3, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-4. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(4, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-5. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(5, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-6. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(6, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-7. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(7, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-8. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(8, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-9. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(9, I) TO PR-WS-TIMESTAMP-OCCURS (I). 710-MOVE-ENHNC-PR-TIMESTAMP-10. MOVE PR-TIMESTAMP OF ENHNC-PRE-AUTH(10, I) TO PR-WS-TIMESTAMP-OCCURS (I). #DELETE 01351 /01356J0N 710-MOVE-PR-TIMESTAMP-10 #ADD 01372J14 720-COMPARE-PR-TIMESTAMP-10 720-COMPARE-E-PR-TIMESTAMP-1. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(1). 720-COMPARE-E-PR-TIMESTAMP-2. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(2). 720-COMPARE-E-PR-TIMESTAMP-3. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(3). 720-COMPARE-E-PR-TIMESTAMP-4. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(4). 720-COMPARE-E-PR-TIMESTAMP-5. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(5). 720-COMPARE-E-PR-TIMESTAMP-6. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(6). 720-COMPARE-E-PR-TIMESTAMP-7. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(7). 720-COMPARE-E-PR-TIMESTAMP-8. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(8). 720-COMPARE-E-PR-TIMESTAMP-9. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(9). 720-COMPARE-E-PR-TIMESTAMP-10. IF ((C-CONVERT-TIME > PR-CONVERT-TIME) OR (C-CONVERT-TIME = PR-CONVERT-TIME)) MOVE "EXPIRED " TO REC-IMAGE-ENHNC-PRE-AUTH(10). #REPLACE 01541K01/01541K01 OFFSET 0 909-TABL-MAINT AUTH-TYP OF SEG2(8) OR AUTH-TYP OF SEG2(9)) OR ("0" = AUTH-TYP OF SEG2(1) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(1)) OR ("0" = AUTH-TYP OF SEG2(2) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(2)) OR ("0" = AUTH-TYP OF SEG2(3) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(3)) OR ("0" = AUTH-TYP OF SEG2(4) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(4)) OR ("0" = AUTH-TYP OF SEG2(5) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(5)) OR ("0" = AUTH-TYP OF SEG2(6) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(6)) OR ("0" = AUTH-TYP OF SEG2(7) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(7)) OR ("0" = AUTH-TYP OF SEG2(8) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(8)) OR ("0" = AUTH-TYP OF SEG2(9) AND "1" = PRE-AUTH-HLDS-LVL OF SEG2(9)) #ADD 01704M0Z 911-RCD-RETRIEVE IF NO-ERROR PERFORM 315-ZERO-ENHNC-PRE-AUTH VARYING I FROM 1 BY 1 UNTIL I > 10 IF BYTE-MAP-R(26) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, SEG25 OF UAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE 25 TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT PERFORM 100-UAF-ERROR-TEXT-FILL. IF NO-ERROR IF BYTE-MAP-R(27) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-ONL-REC-MAINT-C, SEG26 OF UAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "26" TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-UAF-ERROR-TEXT-FILL ELSE NEXT SENTENCE ELSE MOVE ZEROS TO LGTH OF SEG26 OF UAF, LAST-RESET-DAT OF SEG26 OF UAF, ATM-LAST-USED-DAT OF SEG26 OF UAF, POS-LAST-USED-DAT OF SEG26 OF UAF. #ADD 01744M09 912-RCD-REPLACE IF NO-ERROR IF BYTE-MAP-R(26) = "1" OR WS-FIID-PROD-IND(26) = "1" PERFORM 315-DETERMINE-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF UAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF IF CALCULATED-SEG25-LGTH NOT = 0 ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG25 OF UAF, PTR-ARRAY, SEG-ENHNC-PRE-AUTH-HLD-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "25" TO RCD-REPL-SEG-NUM MOVE RCD-REPL-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-UAF-ERROR-TEXT-FILL. #ADD 01810N00 922-READ-IDF MOVE FIID OF MSG-FILE-MAINT-4096-EXT TO FIID OF SEG0 OF IDF #DELETE 01810N01 922-READ-IDF #ADD 01906N0R 927-RCD-WRITE PERFORM 315-DETERMINE-SEG25-LENGTH. MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF UAF. MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF UAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF UAF. PERFORM 315-CHECK-ENHNC-PRE-AUTH. MOVE ONL-REC-MAINT-SEG-LGTH TO LGTH OF SEG26 OF UAF. MOVE SEG-ONL-REC-MAINT-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG26 OF UAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG26 OF UAF. #ADD 01986N00 999-SAVE-LAST-FM COPY AUDIT-CODE-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 01986N01 999-SAVE-LAST-FM #ADD 01986J05 999-PA-CLEAR 999-EPA-CLEAR. MOVE " " TO REC-IMAGE-ENHNC-PRE-AUTH(I). #ENDSCN = BA06259 !*CMP2.13 02/12/03 PITABLE 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.PITABLE PITABLE 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.PITABLE PITABLE 6004 * ******************************************************************************** #SCN = BA06295 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00060D0A * 07FEB2003 JJD/615 * Symptom: POS Enhancements. * Problem: None. * Fix: Added the segment IDs Enhanced Pre-Auth and * Online Record Maintenance to the SEG-TABLE and * the SEG-DESCR-TABLE. * Dependency: Apply fix to PITABLE and remake. Refer to * BA60UD06.SCNFIL for a complete listing of * dependencies. * Reference: WO #020606-01 #REPLACE 01180 /01181 05 ENHANCED-PRE-AUTH PIC X VALUE "N". 05 ONLINE-RECORD-MAINT PIC X VALUE "N". #REPLACE 01455 /01456 05 FILLER-26 PIC X(16) VALUE "ENHANCED PREAUTH". 05 FILLER-27 PIC X(16) VALUE "ONLINE REC MAINT". #ENDSCN = BA06295 !*CMP2.13 02/11/03 SVCAFS 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6031 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6031 * ******************************************************************************** #SCN = BA06290 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 00013e0G * 29JAN2003 RCW/671 * Symptom: Guardian error 0001 displayed on CAF screen #1 * when CAF record is successfully read. * Problem: A Guardian error is displayed after successfully * reading a CAF record when SERVER-CAF is restarted. * The server is wrongly passing back the Guardian * error associated with a failed LCONF read on a * non-existant parameter in the 'successful read' * reply to the requester. * Fix: Initialise the WS-ERR-TXT-ADDL portion of * WS-ERR-TXT-R2 when the message to be passed back * in the reply indicates a successful CAF read. * Modified Procs: * 203-SPECIAL-PREPARE-READ-REPLY * 600-READ-NEXT-RCD * Dependency: Apply fix to SVCAFS and run MAKE. * Reference: Case #358010 #ADD 00731Y02 203-SPECIAL-PREPARE-READ-REPLY MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2. #ADD 01113Y03 600-READ-NEXT-RCD MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 #ENDSCN = BA06290 !*CMP2.13 02/14/03 RQCPFS 6052 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6052 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6052 * ******************************************************************************** #SCN = BA06303 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6052 #NEWVERSION = 6053 #ADD 00022z0B * 14FEB2003 MEP/2128 * Symptom: Secure Internet Validation enhancement * Problem: None. * Fix: Added support for new fields needed for Secure * Internet Validation on CPF screen 6. * 400-MOVE-RECORD * 400-SAVE-RECORD * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Procs added: * 410-MOVE DEFAULTS * 480-FLAG-OV-6-FIELD-15 * 480-FLAG-OV-6-FIELD-16 * 480-FLAG-OV-6-FIELD-17 * 480-FLAG-OV-6-FIELD-18 * 480-FLAG-OV-6-FIELD-19 * Procs modified: * 245-FETCH-RECORD * 285-READ-NEXT * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-ERR-FLAG-OV-6 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Restore SCRNCPF, apply fixes to DDLBCNST, * COBNAMES, RQCPFS, and SVCPFS, and run MAKE. * Refer to BA60UD06.SCNSIV for a complete listing of * dependencies. * Reference: WO #020718-01 #ADD 00035s01 DATA DIVISION COPY SIV-CONSTANTS OF =BASRC_BADDLCOB. #ADD 00058d0B DATA DIVISION 05 WS-SIV-CHK PIC X. 05 WS-SIV-CHK-TYP-DESCR PIC X(35). 05 WS-SIV-BAD-DISP-DESCR PIC X(20). 05 WS-SIV-NOT-PRSN-DISP-DESCR PIC X(20). #ADD 00323 245-FETCH-RECORD PERFORM 410-MOVE-DEFAULTS #ADD 00410 285-READ-NEXT PERFORM 410-MOVE-DEFAULTS #ADD 00475d0A 400-MOVE-RECORD IF SIV-CHK OF SEG2 = SIV-CHK-PRESCREEN-C MOVE "Y" TO WS-SIV-CHK ELSE MOVE "N" TO WS-SIV-CHK. #ADD 00497w04 400-SAVE-RECORD IF WS-SIV-CHK = "Y" MOVE SIV-CHK-PRESCREEN-C TO SIV-CHK OF SEG2 ELSE IF WS-SIV-CHK = "N" MOVE SIV-CHK-NO-PRESCREEN-C TO SIV-CHK OF SEG2 ELSE MOVE WS-SIV-CHK TO SIV-CHK OF SEG2. #ADD 00599h01 405-MOVE-PREFIX 410-MOVE-DEFAULTS. IF SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-DISBL-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-EAF-BOTH-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-CAVV-EAF-AVV-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-CAVV-C MOVE SIV-CHK-TYP-DISBL-C TO SIV-CHK-TYP OF SEG2. IF SIV-CHK OF SEG2 = SIV-CHK-PRESCREEN-C MOVE "Y" TO WS-SIV-CHK ELSE MOVE "N" TO WS-SIV-CHK. IF WS-SIV-CHK = "Y" MOVE SIV-CHK-PRESCREEN-C TO SIV-CHK OF SEG2 ELSE IF WS-SIV-CHK = "N" MOVE SIV-CHK-NO-PRESCREEN-C TO SIV-CHK OF SEG2 ELSE MOVE WS-SIV-CHK TO SIV-CHK OF SEG2. IF SIV-CHK OF SEG2 NOT = SIV-CHK-NO-PRESCREEN-C AND SIV-CHK OF SEG2 NOT = SIV-CHK-PRESCREEN-C MOVE SIV-CHK-NO-PRESCREEN-C TO SIV-CHK OF SEG2. IF SIV-BAD-DISP NOT = SIV-BAD-DISP-DNY-C AND SIV-BAD-DISP NOT = SIV-BAD-DISP-CONT-C MOVE SIV-BAD-DISP-DNY-C TO SIV-BAD-DISP OF SEG2. IF SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-DNY-C AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-CONT-C MOVE SIV-NOT-PRSN-DISP-DNY-C TO SIV-NOT-PRSN-DISP OF SEG2. #ADD 00670w7n 480-ERR-FLAG-OV-6 480-FLAG-OV-6-FIELD-15, 480-FLAG-OV-6-FIELD-16, 480-FLAG-OV-6-FIELD-17, 480-FLAG-OV-6-FIELD-18, 480-FLAG-OV-6-FIELD-19, #ADD 00670w8U 480-ERR-FLAG-OV-7 480-FLAG-OV-6-FIELD-15. TURN TEMP SERROR IN P-SIV-CHK-TYP. SET NEW-CURSOR AT P-SIV-CHK-TYP. 480-FLAG-OV-6-FIELD-16. TURN TEMP SERROR IN P-SIV-KEYA-GRP. SET NEW-CURSOR AT P-SIV-KEYA-GRP. 480-FLAG-OV-6-FIELD-17. TURN TEMP SERROR IN P-SIV-CHK. SET NEW-CURSOR AT P-SIV-CHK. 480-FLAG-OV-6-FIELD-18. TURN TEMP SERROR IN P-SIV-BAD-DISP. SET NEW-CURSOR AT P-SIV-BAD-DISP. 480-FLAG-OV-6-FIELD-19. TURN TEMP SERROR IN P-SIV-NOT-PRSN-DISP. SET NEW-CURSOR AT P-SIV-NOT-PRSN-DISP. #ADD 01357p0O 550-TABLE-LOOK-UP MOVE SPACES TO WS-SIV-CHK-TYP-DESCR. IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-DISBL-C MOVE "(SIV disabled)" TO WS-SIV-CHK-TYP-DESCR ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-EAF-BOTH-C MOVE "(Check CAVV or AAV on EAF)" TO WS-SIV-CHK-TYP-DESCR ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV-CAVV-EAF-AVV-C MOVE "(Check CAVV with CVV or AAV on EAF)" TO WS-SIV-CHK-TYP-DESCR ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV-CAVV-C MOVE "(Check CAVV with CVV)" TO WS-SIV-CHK-TYP-DESCR ELSE MOVE "********************************" TO WS-SIV-CHK-TYP-DESCR. MOVE SPACES TO WS-SIV-BAD-DISP-DESCR. IF SIV-BAD-DISP OF SEG2 = SIV-BAD-DISP-CONT-C MOVE "DENOTE & CONTINUE" TO WS-SIV-BAD-DISP-DESCR ELSE MOVE "DENY & RETURN" TO WS-SIV-BAD-DISP-DESCR. MOVE SPACES TO WS-SIV-NOT-PRSN-DISP-DESCR. IF SIV-NOT-PRSN-DISP OF SEG2 = SIV-NOT-PRSN-DISP-CONT-C MOVE "DENOTE & CONTINUE" TO WS-SIV-NOT-PRSN-DISP-DESCR ELSE MOVE "DENY & RETURN" TO WS-SIV-NOT-PRSN-DISP-DESCR. #REPLACE 01577e02/01577e02 OFFSET 0 595-CLEAR-DATA WS-CV-CHK-CV, WS-SIV-CHK. #ADD 01584s03 595-CLEAR-DATA MOVE SIV-CHK-TYP-DISBL-C TO SIV-CHK-TYP OF SEG2. MOVE SPACES TO SIV-KEYA-GRP OF SEG2. MOVE SIV-CHK-NO-PRESCREEN-C TO SIV-CHK OF SEG2. MOVE SIV-BAD-DISP-DNY-C TO SIV-BAD-DISP OF SEG2. MOVE SIV-NOT-PRSN-DISP-DNY-C TO SIV-NOT-PRSN-DISP OF SEG2. #ENDSCN = BA06303 !*CMP2.13 02/14/03 SVCPFS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6028 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6028 * ******************************************************************************** #SCN = BA06304 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00017b0C * 14FEB2003 MEP/2128 * Symptom: Secure Internet Validation enhancement * Problem: None. * Fix: Added support for new fields needed for Secure * Internet Validation on CPF screen 6. * Dependency: Restore SCRNCPF, apply fixes to DDLBCNST, * COBNAMES, RQPCFS, and SVCPFS and run MAKE. * Refer to BA60UD06.SCNSIV for a complete listing of * dependencies. * Procs modified: * 480-DATA-CHECK-SCREEN6 * Reference: WO #020718-01 #ADD 00234U04 DATA DIVISION COPY SIV-CONSTANTS OF "=BASRC_BADDLCOB". #ADD 00399b00 DATA DIVISION 01 SIV-ERR-MSGS. 05 SIV-CHK-TYP-ERR. 10 FILLER PIC X(44) VALUE "SIV CHECK TYPE MUST BE '0', '1', '2', OR '3'". 05 SIV-KEYA-GRP-ERR. 10 FILLER PIC X(46) VALUE "EMBEDDED SPACES NOT ALLOWED FOR SIV KEYA GROUP". 05 SIV-CHK-ERR. 10 FILLER PIC X(28) VALUE "SIV CHECK MUST BE 'Y' OR 'N'". 05 SIV-BAD-DISP-ERR. 10 FILLER PIC X(33) VALUE "SIV BAD ACTION MUST BE '0' OR '1'". 05 SIV-NOT-PRSN-DISP-ERR. 10 FILLER PIC X(45) VALUE "SIV NOT PRESENT DISPOSITON MUST BE '0' OR '1'". #ADD 00399X0z DATA DIVISION 01 WS-LEN-CHECK4 PIC X(32). 01 WS-RD-LEN4 REDEFINES WS-LEN-CHECK4. 05 LEN-POS4 PIC X OCCURS 4 TIMES. #ADD 00749X00 480-DATA-CHECK 480-CHECK-EMBEDDED-SPACES-SIV. IF LEN-POS4(I) NOT = SPACES AND FIRST-CHAR = "N" MOVE "Y" TO FIRST-CHAR. IF LEN-POS4(I) = SPACES AND FIRST-CHAR = "Y" MOVE "Y" TO NO-MORE-CHARS. IF LEN-POS4(I) NOT = SPACES AND NO-MORE-CHARS = "Y" MOVE 4 TO I MOVE "Y" TO BAD-FLAG MOVE "Y" TO FLAG-MOVE. #ADD 00749XGl 480-DATA-CHECK-SCREEN7 IF SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-DISBL-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-EAF-BOTH-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-EAF-AVV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-C ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-TYP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-KEYA-GRP OF SEG2 OF CPF NOT = SPACES MOVE SIV-KEYA-GRP OF SEG2 OF CPF TO WS-LEN-CHECK4 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES-SIV VARYING I FROM 1 BY 1 UNTIL I > 4 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-KEYA-GRP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-CHK OF SEG2 NOT = SPACES AND SIV-CHK OF SEG2 NOT = SIV-CHK-NO-PRESCREEN-C AND SIV-CHK OF SEG2 NOT = SIV-CHK-PRESCREEN-C ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-BAD-DISP OF SEG2 NOT = SPACES AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-CONT-C AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-BAD-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-NOT-PRSN-DISP NOT = SPACES AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-CONT-C AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-NOT-PRSN-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA06304 !*CMP2.13 03/07/03 RQCAFS 6051 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6051 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6051 * ******************************************************************************** #SCN = BA07009 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6051 #NEWVERSION = 6052 #ADD 00023y0H * 07MAR2003 ahs/3152 * Symptom: The account data on CAF Screen 3 is not validated * if the user presses F1 or navigates to a new * screen. * Problem: When the screen is validated, the account data * was not moved into the message sent to the CAF * Server. Performing an Update or Add operation * did check the account data. * Fix: Added a call to 455-ACCOUNT-FILLS to move the * account data from Working Storage to the Record * Image when validating the screens. * Modified paragraph: 480-DATA-CHECK * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #359621. #ADD 01356y02 480-DATA-CHECK PERFORM 455-ACCOUNT-FILLS. #ENDSCN = BA07009 !*CMP2.13 03/13/03 RQICFES 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQICFES RQICFES 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQICFES RQICFES 6002 * ******************************************************************************** #SCN = BA07019 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00049B0G * 10MAR2003 ahs/3152 * Symptom: When navigating to Switch specific screens for the * same ICFE record, the Adjustment Flag field on * screen 10 changes to 0 or 1 instead of "N" or "Y" * on that screen. * Problem: Navigating to switch specific screens calls the * SAVE-RECORD paragraph, which reformats the ADJ-FLG * field to 0 or 1. When the user goes back to * generic screens, no subsequent MOVE-RECORD is * called. This causes the saved values (0 or 1) to * be displayed on screen 10 instead of the display * values ("N" or "Y"). * Fix: Added code to convert the ADJ-FLG field 0 and 1 to * "N" and "Y" whenever the screen is changed. * Modified paragraph: 480-DATA-CHECK * Dependency: Apply fix to RQICFES and re-MAKE. * Reference: Case #360012 #ADD 00884 480-DATA-CHECK IF ADJ-FLG OF SEG2 = "0" MOVE "N" TO ADJ-FLG OF SEG2 ELSE IF ADJ-FLG OF SEG2 = "1" MOVE "Y" TO ADJ-FLG OF SEG2. #ENDSCN = BA07019 !*CMP2.13 04/02/03 SVLNCFTS6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVLNCFTS SVLNCFTS 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVLNCFTS SVLNCFTS 6003 * ******************************************************************************** #SCN = BA07031 , FILEID = SVLNCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00043C0T ! 31MAR2003 ahs/3152 ! Symptom: 1. The LCONF server does not create OMF files after ! cutover. ! 2. The LCONF server does not create partitioned OMF ! files. ! 3. The LCONF server does not report OMF write failures. ! Problem: 1. During cutover checks, the server did not open a new ! OMF after it closed the current OMF. ! 2. The LCONF server used the NSK FILE_CREATE_ ! procedure to create a new OMF file. This procedure ! does not support creating partitioned files. ! 3. The sever did not always check for NSK procedure ! errors. ! Fix: 1. Modified the server to create a new OMF after ! closing the current OMF. ! 2. Used the NSK FILE_CREATELIST_ to create the new OMF ! file. ! 3. Added code to check for NSK errors. ! Modified procs: lncf_util_omf_open ! lncf_util_omf_write ! Dependency: Apply fix to SVLNCFTS and run MAKE. ! Reference: Case #360962. #ADD 00079 ? closeedit_ ? contime ? converttimestamp ? deviceinfo ? dnumout ? file_close_ ? file_create_ ? file_createlist_ ? file_getinfo_ ? file_getinfobyname_ ? file_getinfolist_ ? file_getinfolistbyname_ ? file_getreceiveinfo_ ? file_open_ ? filename_compare_ ? filename_decompose_ ? filename_edit_ ? filename_resolve_ ? filename_scan_ ? initializer ? interprettimestamp ? juliantimestamp ? keyposition ? numout ? openedit_ ? process_stop_ ? processhandle_getmine_ ? processhandle_to_filename_ ? read ? readlock ? readupdate ? readupdatelock ? reply ? segment_allocate_ ? segment_deallocate_ ? segment_use_ ? setmode ? statustransaction ? time ? timestamp ? unlockrec ? write ? writeedit ? writeupdate ? writeupdateunlock ? ) ?list #DELETE 00080 /00125 #ADD 00132 ! file_createlist_ #REPLACE 05867 LNCF_UTIL_OMF_OPEN literal num_items_l = 11; #DELETE 05868 LNCF_UTIL_OMF_OPEN #ADD 05878 LNCF_UTIL_OMF_OPEN int num_partitions; ! ! Partition Info will hold the data for list items 91, 92 and ! 93. We do not need these formatted because we will use the ! same block to create the file. The size for a 4 partiotion ! file is (4 + 2 + 12) * 3 = 54. ! string partition_info [0:53]; #REPLACE 05889 /05889 OFFSET 0 LNCF_UTIL_OMF_OPEN 52, ! max extents ! 90, ! number of partitions 91, ! partition descriptors 92, ! partition-volume name-lengths 93 ! partition volume names #REPLACE 05894 LNCF_UTIL_OMF_OPEN int rslt_max := $len( file_info ); #REPLACE 05902B04 LNCF_UTIL_OMF_OPEN file_info, rslt_max ); #REPLACE 05914 /05914B06 LNCF_UTIL_OMF_OPEN if err := file_createlist_( omf_nam:lncf_tbl_g[ cur_lncf_idx_g ].omf_flgth, lncf_tbl_g[ cur_lncf_idx_g ].omf_flgth, item_list, num_items_l, file_info, rslt_max ) then #ADD 06060 LNCF_OMF_CUTOVER_CHK if not ( lncf_tbl_g[ cur_lncf_idx_g].omf_fnum = null_file_num_l ) then begin ! ! The OMF file may not be open at this time if this ! is the first call to the server, just after cutover ! and the file needs to be created. ! #REPLACE 06061B00/06061B02 LNCF_OMF_CUTOVER_CHK call file_close_( lncf_tbl_g[ cur_lncf_idx_g].omf_fnum ); end; #ADD 06063B02 LNCF_OMF_CUTOVER_CHK create_flg := true; omf_fnam_s[ omf_flgth - 7 ] ':=' yymmdd for $occurs( yymmdd ); #REPLACE 06064 LNCF_OMF_CUTOVER_CHK end; #DELETE 06065 LNCF_OMF_CUTOVER_CHK #REPLACE 06157B03/06159 LNCF_OMF_CUTOVER_CHK if not err then begin lncf_screen_err_g := last_err; #REPLACE 06161 /06168 LNCF_OMF_CUTOVER_CHK if last_err = fe_filefull_l then begin if not lncf_util_omf_full( msg, omf, wrt_lgth ) then begin ! ! ! Keep the running count of the number of OMFs. ! ! ! audit_copy := 2; #REPLACE 06170 /06176 LNCF_OMF_CUTOVER_CHK while ( ( lncf_screen_err_g = fe_filefull_l ) and ( audit_copy <= max_omfs_l ) ) do begin if lncf_util_omf_full( msg, omf, wrt_lgth ) then begin return true; end; #REPLACE 06178 /06179 LNCF_OMF_CUTOVER_CHK audit_copy := audit_copy + 1; end; #REPLACE 06181 LNCF_OMF_CUTOVER_CHK err := err_msg_omf_wrt_l; #REPLACE 06183 LNCF_OMF_CUTOVER_CHK call lncf_util_msg_log( msg, err ); #REPLACE 06185 /06186 LNCF_OMF_CUTOVER_CHK return false; end; #REPLACE 06188 /06189 LNCF_OMF_CUTOVER_CHK end; ! of if last error ! end ! of err = 0 ! else begin ! ! NSK error during file_getinfo_ ! err := err_msg_omf_wrt_l; call lncf_util_msg_log( msg, err ); return false; end; #ENDSCN = BA07031 !*CMP2.13 04/07/03 SVCAFS 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6032 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6032 * ******************************************************************************** #SCN = BA07035 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 00013f0H * 02APR2003 alr/455 * Symptom: "Record Retrieved from" message is being * truncated. * Problem: 1) The error text field is not long enough. * 2) When an error occurred during the LCONF read * of the assign PATHMON-NAM the error is not * being displayed on the first CAF function after * the server has been started. * Fix: 1) If the WS-ERR-TXT-ADDL is blank then the * original WS-ERR-TXT is used. If * WS-ERR-TXT-ADDL is not spaces then * WS-ERR-TXT-R2 will be used. * 2) Case #358010 initialized WS-ERR-TXT-ADDL * before the message was passed back to the * requester. This has been changed. * WS-ERR-TXT-ADDL will be initialized only if it * is not needed. If param MONAD-NOTIFY-PROCESS * does exist and assign PATHMON-NAM does not * exist then WS-ERR-TXT-ADDL is used to * display the error found during the LCONF read. * * Modified Procs: * 203-SPECIAL-PREPARE-READ-REPLY * 600-READ-NEXT-RCD * 410-DELETE * 310-UPDATE-REC * 500-ADD-RCD * * 909-RETRIEVE-LCONF-ASSIGNS * Dependency: Apply fix to SVCAFS and run MAKE. * Reference: Case #358246 #ADD 00731Y00 203-SPECIAL-PREPARE-READ-REPLY IF WS-ERR-TXT-ADDL = SPACES MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT ELSE MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 END-IF #DELETE 00731Y01/00731Y02 203-SPECIAL-PREPARE-READ-REPLY #DELETE 00731f01 203-SPECIAL-PREPARE-READ-REPLY #ADD 00833L03 310-UPDATE-REC IF WS-ERR-TXT-ADDL = SPACES MOVE HOLD-OK-MSG TO WS-ERR-TXT ELSE MOVE HOLD-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 ELSE IF WS-ERR-TXT-ADDL = SPACES MOVE UPDATE-OK-MSG TO WS-ERR-TXT ELSE MOVE UPDATE-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 #DELETE 00833L04/00833Y06 310-UPDATE-REC #ADD 00963Y00 410-DELETE IF WS-ERR-TXT-ADDL = SPACES MOVE DELETE-OK-MSG TO WS-ERR-TXT ELSE MOVE DELETE-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 END-IF #DELETE 00963Y01 410-DELETE #ADD 01000Y00 500-ADD-RCD IF WS-ERR-TXT-ADDL = SPACES MOVE ADD-OK-MSG TO WS-ERR-TXT ELSE MOVE ADD-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 END-IF #DELETE 01000Y01/01000Y02 500-ADD-RCD #ADD 01113Y00 600-READ-NEXT-RCD IF WS-ERR-TXT-ADDL = SPACES MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT ELSE MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 END-IF #DELETE 01113Y01/01113f02 600-READ-NEXT-RCD #ADD 01668Y0O 909-RETRIEVE-LCONF-ASSIGNS MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 #ENDSCN = BA07035 !*CMP2.13 05/01/03 RQICFES 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQICFES RQICFES 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQICFES RQICFES 6003 * ******************************************************************************** #SCN = BA07055 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00049C0I * 30APR2003 DOO/1693 * Symptom: 1. Field "NETWORK MANAGEMENT MESSAGE ENABLED" on * ICFE screen 3 does not update. When the value of * the field is changed and the update key (PF5) * pressed, the new value is not retained. The next * time the record is read, the old value is * retrieved. * 2. The code treats variable MULT-CRNCY as an * Integer rather than a String which could cause * confusion. * Problem: 1. The lines of code that that set the values of * this field are never executed because a preceding * "IF" statement is not terminated. As a result, * these lines of code are considered part of the * "IF" statement. * 2. Variable MULT-CRNCY is defined as a String in * DDLFICFE but the code stores Integer values * (0 or 1) into it. The code also checks for these * Integer values in it. * Fix: 1. Terminated the "IF" statement that precedes * the code that sets the value of the NMM field on * ICFE screen 3. * 2. Modified the code to store and check for * String values ("0" or "1") when processing the * variable. * Modified paragraphs: 400-MOVE-RECORD * 400-SAVE-RECORD * Dependency: Apply fixes to RQICFES and re-MAKE. * Reference: Case #362348 #ADD 00733A00 400-MOVE-RECORD IF MULT-CRNCY = "1" #DELETE 00733A01 400-MOVE-RECORD #ADD 00733A03 400-MOVE-RECORD IF MULT-CRNCY = "0" #DELETE 00733A04 400-MOVE-RECORD #ADD 00733B04 400-MOVE-RECORD MOVE "Y" TO ADJ-FLG OF SEG2. #DELETE 00733B05 400-MOVE-RECORD #ADD 00778A01 400-SAVE-RECORD MOVE "1" TO MULT-CRNCY #DELETE 00778A02 400-SAVE-RECORD #ADD 00778A04 400-SAVE-RECORD MOVE "0" TO MULT-CRNCY. #DELETE 00778A05 400-SAVE-RECORD #ADD 00778B04 400-SAVE-RECORD MOVE "1" TO ADJ-FLG OF SEG2. #DELETE 00778B05 400-SAVE-RECORD #ENDSCN = BA07055 !*CMP2.13 05/13/03 SVCAFS 6033 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6033 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6033 * ******************************************************************************** #SCN = BA07060 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6033 #NEWVERSION = 6034 #ADD 00013g0W * 25APR2003 PKB/919 * Symptom: FIID field is displayed as in error yet message * says the PAN is at fault. * Problem: For the PAN and FIID, the field in error is * indicated to the requester by the server setting * the ERR-CDE field in the response (value 1 means * the PAN and 2 means the FIID). * In 480-DATA-CHECK-SCREEN paragraph, if the FIID * is spaces the value 2 is moved to ERR-CDE OF * MSG-ERR-EXT. * Fix: This move should be dependent on the MOVE-MESSAGE * flag still being Y (i.e. the PAN is OK). * Modified proc: 480-DATA-CHECK-SCREEN. * Dependency: Apply Fix to SVCAFS and run MAKE. * Reference: Case #362223 * 25APR2003 PKB/919 * Symptom: If the PAN is entered with leading spaces the * field is not highlighted. * Problem: In 480-CHECK-IMPROPER-SPACES the server does not * set ERR-CDE of MSG-ERR-EXT to 1 if there are * leading spaces. * Fix: Set ERR-CDE of MSG-ERR-EXT to 1 if there are * leading spaces. * Modified Proc: * 480-CHECK-IMPROPER-SPACES. * Dependency: Apply Fix to SVCAFS and run MAKEK. * Reference: Case #362230 * 29APR2003 PKB/919 * Symptom: If the Account number on screen 3 is spaces the * field is not highlighted. * Problem: In 481-CHECK-OVERLAY-3, FLD-ID-NUM is set to 3 * instead of 4 when account number is spaces. * Fix: Set FLD-ID-NUM to 4 instead of 3. * Modified Proc: * 481-CHECK-OVERLAY-3. * Dependency: Apply Fix to SVCAFS and run MAKE. * Reference: Case #362368 #ADD 00972e0T 480-DATA-CHECK-SCREEN IF MOVE-MESSAGE IF FIID OF CAF = SPACES ADD 1 TO ERR-CNT MOVE 2 TO ERR-CDE OF MSG-ERR-EXT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES ARE NOT ALLOWED FOR FIID" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00972e0U/00972e0a 480-DATA-CHECK-SCREEN #ADD 00972eET 480-CHECK-IMPROPER-SPACES MOVE 1 TO ERR-CDE OF MSG-ERR-EXT #ADD 00972eH8 481-CHECK-OVERLAY-3 MOVE 4 TO FLD-ID-NUM(ERR-CNT) #DELETE 00972eH9 481-CHECK-OVERLAY-3 #ENDSCN = BA07060 !*CMP2.13 05/13/03 RQCAFS 6052 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6052 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6052 * ******************************************************************************** #SCN = BA07061 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6052 #NEWVERSION = 6053 #ADD 00023z0F * 24APR2003 PKB/919 * Symptom: SET NEW-CURSOR AT C-PIN-SYNC-ACT is not being set * when there is an error on this field. * Problem: TURN TEMP SERROR IN C-PIN-SYNC-ACT is being set * twice. * Fix: Change the second TURN TEMP SERROR for the field * C-PIN-SYNC-ACT to a SET NEW-CURSOR command. * Modified paragraph: 480-FLAG-OV-13-FIELD-8 * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #362144. * 06MAY2003 PKB/919 * Symptom: Error 3 is returned when you validate accounts on * screen 4. * Problem: The subscripts for the account numbers go out of * sync with the screen positions when you have * accounts that span onto screen 4. * Invalid subscript value is also set for C1-STAT. * Fix: Subtract 10 from the account subscript when there * is an error on screen 4. * Initialise REC-IMAGE-ACCT to ensure data area is * clear. * Modified paragraphs: 455-ACCOUNT-FILLS * 480-ERR-FLAG-OV-4 * 480-FLAG-OV-4-FIELD-8 * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #362367 * 07MAY2003 PKB/919 * Symptom: If a send error occurs when the requester sends * to the server to validate the screen data, the * error is not detected. * Problem: The requester is not checking the value of ERR-CDE * to determine if the send was successful * Fix: If ERR-CDE is not zero VALID-DATA should be set to * "BAD" otherwise 480-DATA-CHECK-RETURN should be * performed. * Modified paragraph: 480-DATA-CHECK * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #362369 #ADD 00971 455-ACCOUNT-FILLS MOVE SPACES TO REC-IMAGE-ACCT. #ADD 01356y07 480-DATA-CHECK IF ERR-CDE OF MSG-FILE-MAINT-9216-EXT NOT = ZERO MOVE "BAD" TO VALID-DATA ELSE PERFORM 480-DATA-CHECK-RETURN. #DELETE 01356y08 480-DATA-CHECK #ADD 01356y3f 480-ERR-FLAG-OV-4 SUBTRACT 10 FROM C. #REPLACE 01356y42 480-FLAG-OV-4-FIELD-8 SET NEW-CURSOR AT C1-STAT(C). #ADD 01356y97 480-FLAG-OV-13-FIELD-8 SET NEW-CURSOR AT C-PIN-SYNC-ACT. #DELETE 01356y98 480-FLAG-OV-13-FIELD-8 #ENDSCN = BA07061 !*CMP2.13 05/16/03 RQCAFS 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6053 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6053 * ******************************************************************************** #SCN = BA07062 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6053 #NEWVERSION = 6054 #ADD 00023#0e * 14MAY2003 PKB/919 * Symptom: Field Descriptions for new offline pin management * fields on screen 13 are not always displayed * correctly. * Problem: 550-TABLE-LOOK-UP has not be called by * 570-DISPLAY-OVERLAY-13 in order to process the * field descriptions. * Fix: Call 550-TABLE-LOOK-UP in 570-DISPLAY-OVERLAY-13. * Modified paragraph: 570-DISPLAY-OVERLAY-13 * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #362829 #ADD 02119l08 570-DISPLAY-OVERLAY-13 PERFORM 550-TABLE-LOOK-UP. #ENDSCN = BA07062 !*CMP2.13 06/04/03 RQCAFS 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6054 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6054 * ******************************************************************************** #SCN = BA07070 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6054 #NEWVERSION = 6055 #ADD 00023$0D * 03JUN2003 PKB/919 * Symptom: The previous fix for case 362369 prevents the * fixes for cases #362223 and #362230 working. * Problem: 480-DATA-CHECK-RETURN is not being peformed when * there is an error with the screen validation. * Fix: If the Call to the server is unsuccesful, we * should be calling 480-DATA-CHECK-RETURN. * Modified paragraph: 480-DATA-CHECK. * Dependency: Apply fix to RQCAFS and run MAKE. * Reference: Case #363839 #ADD 01356#02 480-DATA-CHECK PERFORM 480-DATA-CHECK-RETURN #ENDSCN = BA07070 !*CMP2.13 06/19/03 RQCPFS 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6053 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6053 * ******************************************************************************** #SCN = BA07087 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6053 #NEWVERSION = 6054 #ADD 00022#0U * 12JUN2003 MSH/872 * Symptom: Downgrade of EMV Transactions * Problem: None * Fix: Allow the variable cam^chk^typ to also hold the * value '9' indicating that EMV transactions are * to be downgraded to magnetic stripe. * Modified Proc: * 550-TABLE-LOOK-UP * Dependency: Apply fix to DDLFCPF, RQCPFS, SVCPFS, AUTHEMVS, * BALINKG and LINKEMVS and run MAKE. * Reference: WO #030409-01 #DELETE 00022z0C #DELETE 00022x0P #DELETE 00022w0C #DELETE 00022w0D #DELETE 00022w0E #DELETE 00022w0F #DELETE 00022w0G #ADD 01416o0B 550-TABLE-LOOK-UP ELSE IF CAM-CHK-TYP OF SEG9 = "9" MOVE "(DOWNGRADE)" TO WS-CAM-CHK-DESC #ENDSCN = BA07087 !*CMP2.13 06/19/03 SVCPFS 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6029 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6029 * ******************************************************************************** #SCN = BA07088 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00017c0D * 12JUN2003 MSH/872 * Symptom: Downgrade of EMV Transactions * Problem: None * Fix: Allow the variable cam^chk^typ to also hold the * value '9' indicating that the EMV transactions are * to be downgraded to megnetic stripe. * Modified Proc: * 480-DATA-CHECK-SCREEN11 * Dependency: Apply fix to DDLFCPF, RQCPFS, SVCPFS, AUTHEMVS, * BALINKG and LINKEMVS and run MAKE. * Reference: WO #030409-01 #DELETE 00017b0D #DELETE 00017Z0F #DELETE 00017Y0D #DELETE 00017X0C #DELETE 00017X0D #DELETE 00017X0E #REPLACE 00749XKL/00749XKL OFFSET 0 480-DATA-CHECK-SCREEN11 CAM-CHK-TYP OF SEG9 OF CPF NOT = "2" AND CAM-CHK-TYP OF SEG9 OF CPF NOT = "9" #REPLACE 00749XKP 480-DATA-CHECK-SCREEN11 MOVE "CAM CHECK TYPE MUST BE '0', '1', '2' OR '9'" #ENDSCN = BA07088 !*CMP2.13 06/26/03 SVLNCFTS6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVLNCFTS SVLNCFTS 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVLNCFTS SVLNCFTS 6004 * ******************************************************************************** #SCN = BA07094 , FILEID = SVLNCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00043D0N ! 26JUN2003 ahs/3152 ! Symptom: If an OMF write error occurs when updating a record, ! the LCONF server keeps that record locked. ! Problem: When the LCONF server performs an update on a record, ! it reads and locks the record. If an error occurs ! before the new record is written, then the record lock ! is not released. ! Fix: Added code to release the record lock if an error ! occurs while updating the LCONF record. ! Modified procs: lncf_be_modify ! lncf_bf_purge ! Dependency: Apply fix to SVLNCFTS and run MAKE. ! Reference: Case #364065 #ADD 00999 LNCF_BE_MODIFY ! ! unlock the record, because we read it with a lock. ! unlockrec( lncf_tbl_g[ cur_lncf_idx_g ].lncf_fnum ); #ADD 01226 LNCF_BF_PURGE ! ! unlock the record because it was read with a lock ! unlockrec( lncf_tbl_g[ cur_lncf_idx_g ].lncf_fnum ); #ENDSCN = BA07094 !*CMP2.13 07/22/03 SECTBL 6013 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6013 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6013 * ******************************************************************************** #SCN = BA07104 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6013 #NEWVERSION = 6014 #ADD 00268M0B **************************************************************** * RELEASE 3.2 * **************************************************************** * * 20JUN2003 CM/1627 * Symptom: Check Auth Release 3.2 Enhancements. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * RSPD and EVNT. Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fixes to SECTBL and recompile SVISECS. * See the Check Auth Release 3.2 Implementation * Guide for complete installation instructions. * Reference: Check Auth Release 3.2 Enhancements * WO #020715-26 (Event Limits/Risk Grouping) * #011212-42 (Response Code Clarification & * Mapping) #ADD 00486 05 EVNT PIC X(35) VALUE "EVNT010019EVENT CONFIGURATION ". #ADD 00752A02 05 RSPD PIC X(35) VALUE "RSPD010019RESP-CODE CONFIGURATION ". #ADD 00893M00 05 PROD-SCRN-ACC-TABL OCCURS 576 TIMES. #DELETE 00893M01 #ADD 00906M00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 576. #DELETE 00906M01 #ENDSCN = BA07104 !*CMP2.13 07/31/03 SECTBL 6014 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6014 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6014 * ******************************************************************************** #SCN = BA07109 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6014 #NEWVERSION = 6015 #ADD 00268N0H * 30JUL2003 KSS/718 * Symptom: Modified MMF 6.1 Layout for PRM Merchant. * Problem: If Authproc has the new MIF.cfg file for 6.1, * Authproc will not accept the old layout from * the PIP. * Fix: Added screen 3 access for the MMF. * Dependency: Apply fix to DDLFMIF, DDLFMMF, SEIPS, SCRNMMF, * RQMMFS, SVMMFS, SECTBL and remake. * Reference: Case #365813 #ADD 00650F02 05 MMF3 PIC X(35) VALUE "MMF 030018PSE MERCHANT MASTER FILE ". #ADD 00893N00 05 PROD-SCRN-ACC-TABL OCCURS 577 TIMES. #DELETE 00893N01 #ADD 00906N00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 577. #DELETE 00906N01 #ENDSCN = BA07109 !*CMP2.13 08/06/03 SVCAFS 6034 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6034 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6034 * ******************************************************************************** #SCN = BA07110 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6034 #NEWVERSION = 6035 #ADD 00013h0d * 30JUL2003 RCW/671 * Symptom: CAF support needed for up to 256 segments. * Problem: None. * Fix: Change WS variable WS-FIID-PROD-IND to have an * occurs value of 256 (from 32). Change WS variable * NUM-BITS from PIC 9(2) to PIC 9(3), and change the * assigned value from 32 to 256. * Dependency: Apply Fix to SVCAFS and run MAKE. * Reference: Case #360435 #ADD 00448L01 DATA DIVISION 05 WS-FIID-PROD-IND PIC X OCCURS 256 TIMES. #DELETE 00448L02 DATA DIVISION #ADD 00493L00 DATA DIVISION 05 NUM-BITS PIC 9(3) VALUE 256. #DELETE 00493L01 DATA DIVISION #ENDSCN = BA07110 !*CMP2.13 08/26/03 SECTBL 6015 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6015 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6015 * ******************************************************************************** #SCN = BA07123 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6015 #NEWVERSION = 6016 #ADD 00268O0A * 26AUG2003 NM/984 * Symptom: Modified SECTBL file due to Spelling Error. * Problem: Base24 Security file Screen 3 contains incorrect * Description of Page. * Fix: Added I to DENTIFICATION/FILE NAMES * Dependency: Apply fix to SECTBL and run MAKE. * Reference: Case #367499 #ADD 00566 05 IDF1 PIC X(35) VALUE "IDF 010000IDENTIFICATION/FILE NAMES". #DELETE 00567 #ENDSCN = BA07123 !*CMP2.13 09/15/03 SVCAFS 6035 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6035 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6035 * ******************************************************************************** #SCN = BA07125 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6035 #NEWVERSION = 6036 #ADD 00013i0B * 15SEP2003 ahs/3152 * Symptom: The error message "AT LEAST ONE SUPER TELLER * TERMINAL ID IS REQUIRED IF CRD-TYP IS 'ST'" * is displayed even though the Super Teller * terminal ID on screen 14 list is not empty. * Users are unable to add or update Super Teller * CAF records. * Problem: The CAF server is checking the Super Teller * terminal IDs from Working Storage. The Working * Storage variables are always blank in the server. * The correct values should be obtained from the * CAF record, which the requester fills. * Fix: Removed all references to WS-SUPER-TLR-TERM-ID. * The server will use the SUPER-TLR-TERM-ID field * from the CAF. * Modified proc: 480-DATA-CHECK-SCREEN14 * Deleted procs: 480-CHECK-FOR-DUPS * 480-CHECK-FOR-DUPS-CONTINUED * Dependency: Apply fix to SVCAFS and run MAKE. * Reference: Case #368442 #DELETE 00458e0a/00458e0h DATA DIVISION #REPLACE 00972eAS 480-DATA-CHECK-SCREEN14 SUPER-TLR-TERM-ID (1) = SPACES #REPLACE 00972eAb 480-DATA-CHECK-SCREEN14 SUPER-TLR-TERM-ID (1) NOT = SPACES #DELETE 00972eAi/00972eAm 480-DATA-CHECK-SCREEN15 #DELETE 00972eDl/00972eE1 480-CHECK-CARD-NUM #ENDSCN = BA07125 !*CMP2.13 10/14/03 RQCAFS 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6055 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6055 * ******************************************************************************** #SCN = BA07141 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00023y0I * 15OCT2003 SP/211 * Symptom: Enhanced Expiration Date Checking * Problem: None. * Fix: Modified the code to process two fields on new CAF * screen 07: second card status (CRD-STAT-2) and * second card expiration date (EXP-DAT-2). * Modified Paragraphs: * 400-SAVE-RECORD * 480-DATA-CHECK * 480-DATA-CHECK-RETURN * 480-ERR-FLAG-OV7 * 550-TABLE-LOOK-UP-OVERLAY-1 * 550-TABLE-LOOK-UP-OVERLAY-2 * 595-CLEAR-DATA * New paragraphs: * 480-CHK-OVERLAY-7 * 480-FLAG-OV-7-FIELD-3 * 480-FLAG-OV-7-FIELD-4 * 560-CRD-STAT-LOOK-UP. * Dependency: Apply fix to RQCAFS, SECTBL, SCRNCAF, SVCAFS and * run MAKE. Refer to BA60UD07.SCNEXPD1 and * BA60UD07.SCNSWCH for complete listing of * dependencies. * Reference: WO #021122-01 * 15OCT2003 SP/211 * Symptom: M/Chip 4 support enhancement. * Problem: None. * Fix: Added support for two new fields on the CAF EMV * screen 13: status checking action index and EMV * issuer application data format. * Modified paragraphs: 480-ERR-FLAG-OV-13 * 480-FLAG-OV-13-FIELD-9 * 550-TABLE-LOOK-UP-OVERLAY-13 * 595-CLEAR-DATA. * New paragraphs: 480-FLAG-OV-13-FIELD-10 * 480-FLAG-OV-13-FIELD-11. * Dependency: Apply fix to DDLFCAF, DDLGCAFX, RQCAFS, SCRNCAF, * SVCAFS and run MAKE. * Refer to BA60UD07.SCNMCHP4 for a complete listing * of dependencies. * Reference: WO #030609-01 #REPLACE 00115O00 DATA DIVISION 01 WS-EXP-DAT-2 PIC X(4) VALUE "0000". #REPLACE 00124y01/00124y02 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, #REPLACE 00132x05 DATA DIVISION 05 WS-ISS-APPL-DATA-DESC PIC X(16) VALUE SPACES. #ADD 00150 DATA DIVISION 05 WS-CRD-STAT-2 PIC X(20). 05 WS-CRD-STAT-VAL PIC X. 05 WS-CRD-STAT-DESCR PIC X(20). #REPLACE 00202 DATA DIVISION 05 CAF7 PIC X(4) VALUE "BASE". #REPLACE 00252f08 DATA DIVISION COPY SC-CAF7 OF =BAAFT_SCNCAFO. #REPLACE 00592G02/00593G00 400-DO-REST-OF-MOVES MOVE EXP-DAT-2 OF SEG0 TO WS-EXP-DAT-2. PERFORM 550-TABLE-LOOK-UP-OVERLAY-2. #REPLACE 00698c00 400-SAVE-RECORD MOVE WS-EXP-DAT-2 TO EXP-DAT-2. #REPLACE 01356y0q 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-7, #ADD 01356y1Y 480-CHK-OVERLAY-8 480-CHK-OVERLAY-7. PERFORM 480-ERR-FLAG-OV-7 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #REPLACE 01356y33 480-ERR-FLAG-OV-2 480-FLAG-OV-2-FIELD-3 #ADD 01356y5x 480-ERR-FLAG-OV-8 480-ERR-FLAG-OV-7. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-7-FIELD-3, 480-FLAG-OV-7-FIELD-4 DEPENDING ON K. 480-FLAG-OV-7-FIELD-3. TURN TEMP SERROR IN C-EXP-DAT-2. SET NEW-CURSOR AT C-EXP-DAT-2. 480-FLAG-OV-7-FIELD-4. TURN TEMP SERROR IN C-CRD-STAT-2. SET NEW-CURSOR AT C-CRD-STAT-2. #ADD 01356y8n 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-10, 480-FLAG-OV-13-FIELD-11, #ADD 01356y9A 480-FLAG-OV-13-FIELD-9 TURN TEMP SERROR IN C-STAT-CHK-ACT-IDX. SET NEW-CURSOR AT C-STAT-CHK-ACT-IDX. 480-FLAG-OV-13-FIELD-10. TURN TEMP SERROR IN C-ISS-APPL-DATA-FRMT. SET NEW-CURSOR AT C-ISS-APPL-DATA-FRMT. 480-FLAG-OV-13-FIELD-11. #ADD 01699Y03 550-TABLE-LOOK-UP MOVE CRD-STAT OF SEG0 TO WS-CRD-STAT-VAL. PERFORM 560-CRD-STAT-LOOK-UP. MOVE WS-CRD-STAT-DESCR TO WS-CARD-STAT. #DELETE 01699X0N/01699X0O 550-TABLE-LOOK-UP #DELETE 01699c0K 550-TABLE-LOOK-UP #DELETE 01699c0L 550-TABLE-LOOK-UP #DELETE 01699c0M 550-TABLE-LOOK-UP #DELETE 01699c0N 550-TABLE-LOOK-UP #DELETE 01699c0O/01699X0R 550-TABLE-LOOK-UP #DELETE 01699c0P 550-TABLE-LOOK-UP #DELETE 01699c0Q 550-TABLE-LOOK-UP #DELETE 01699c0R 550-TABLE-LOOK-UP #DELETE 01699c0S 550-TABLE-LOOK-UP #DELETE 01699c0T/01699X0U 550-TABLE-LOOK-UP #DELETE 01699c0U 550-TABLE-LOOK-UP #DELETE 01699c0V 550-TABLE-LOOK-UP #DELETE 01699c0W 550-TABLE-LOOK-UP #DELETE 01699c0X 550-TABLE-LOOK-UP #DELETE 01699c0Y/01699X0X 550-TABLE-LOOK-UP #DELETE 01699c0Z 550-TABLE-LOOK-UP #DELETE 01699c10 550-TABLE-LOOK-UP #DELETE 01699c11 550-TABLE-LOOK-UP #DELETE 01699c12 550-TABLE-LOOK-UP #DELETE 01699c13/01699X10 550-TABLE-LOOK-UP #DELETE 01699c14 550-TABLE-LOOK-UP #DELETE 01699c15 550-TABLE-LOOK-UP #DELETE 01699c16 550-TABLE-LOOK-UP #DELETE 01699c17 550-TABLE-LOOK-UP #DELETE 01699c18/01699X13 550-TABLE-LOOK-UP #DELETE 01699c19 550-TABLE-LOOK-UP #DELETE 01699c1A 550-TABLE-LOOK-UP #DELETE 01699c1B 550-TABLE-LOOK-UP #DELETE 01699c1C 550-TABLE-LOOK-UP #DELETE 01699c1D/01699X16 550-TABLE-LOOK-UP #DELETE 01699c1E 550-TABLE-LOOK-UP #DELETE 01699c1F 550-TABLE-LOOK-UP #DELETE 01699c1G 550-TABLE-LOOK-UP #DELETE 01699c1H 550-TABLE-LOOK-UP #DELETE 01699c1I/01699X19 550-TABLE-LOOK-UP #DELETE 01699c1J 550-TABLE-LOOK-UP #DELETE 01699c1K 550-TABLE-LOOK-UP #DELETE 01699c1L 550-TABLE-LOOK-UP #DELETE 01699c1M 550-TABLE-LOOK-UP #DELETE 01699c1N/01699X1B 550-TABLE-LOOK-UP #DELETE 01699c1O 550-TABLE-LOOK-UP #DELETE 01699c1P 550-TABLE-LOOK-UP #DELETE 01699c1Q 550-TABLE-LOOK-UP #DELETE 01699c1R 550-TABLE-LOOK-UP #DELETE 01699c1S 550-TABLE-LOOK-UP #DELETE 01699c1T 550-TABLE-LOOK-UP #DELETE 01699c1U 550-TABLE-LOOK-UP #DELETE 01699c1V 550-TABLE-LOOK-UP #DELETE 01699c1W 550-TABLE-LOOK-UP #DELETE 01699c1X 550-TABLE-LOOK-UP #DELETE 01699c1Y 550-TABLE-LOOK-UP #DELETE 01699c1Z 550-TABLE-LOOK-UP #DELETE 01699c20 550-TABLE-LOOK-UP #DELETE 01699c21 550-TABLE-LOOK-UP #DELETE 01699c22 550-TABLE-LOOK-UP #DELETE 01699c23 550-TABLE-LOOK-UP #DELETE 01699c24 550-TABLE-LOOK-UP #DELETE 01699c25 550-TABLE-LOOK-UP #DELETE 01699c26 550-TABLE-LOOK-UP #DELETE 01699c27 550-TABLE-LOOK-UP #DELETE 01699c28 550-TABLE-LOOK-UP #DELETE 01699c29 550-TABLE-LOOK-UP #DELETE 01699c2A/01699X1D 550-TABLE-LOOK-UP-OVERLAY-2 #ADD 01699X1S 550-TABLE-LOOK-UP-OVERLAY-7 MOVE CRD-STAT-2 OF SEG0 TO WS-CRD-STAT-VAL. PERFORM 560-CRD-STAT-LOOK-UP. * FOR SECOND CARD STATUS VALUE '6' INDICATE CARD NOT USED IF CRD-STAT-2 OF SEG0 = "6" MOVE "(CARD NOT USED)" TO WS-CRD-STAT-2 ELSE MOVE WS-CRD-STAT-DESCR TO WS-CRD-STAT-2. #ADD 01699x0e 550-TABLE-LOOK-UP-OVERLAY-13 IF ISS-APPL-DATA-FRMT OF SEG9 = "0" MOVE "(USE CPF VALUE)" TO WS-ISS-APPL-DATA-DESC ELSE IF ISS-APPL-DATA-FRMT OF SEG9 = "3" MOVE "(M/CHIP 4)" TO WS-ISS-APPL-DATA-DESC ELSE MOVE "(**************)" TO WS-ISS-APPL-DATA-DESC. #ADD 01958 550-ACCOUNT2-LOOK-UP 560-CRD-STAT-LOOK-UP. IF WS-CRD-STAT-VAL = "0" MOVE "(ISSUED NOT ACTIVE) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "1" MOVE "(OPEN) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "2" MOVE "(LOST CARD) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "3" MOVE "(STOLEN CARD) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "4" MOVE "(RESTRICTED) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "5" MOVE "(VIP) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "6" MOVE "(CHECK REASON CODE) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "9" MOVE "(CLOSED) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "A" MOVE "(REFERRAL) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "B" MOVE "(MAYBE) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "C" MOVE "(DENIAL) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "D" MOVE "(SIGNATURE RESTRCTD)" TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "E" MOVE "(COUNTRY CLUB) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "F" MOVE "(EXPIRED) " TO WS-CRD-STAT-DESCR ELSE IF WS-CRD-STAT-VAL = "G" MOVE "(COMMERCIAL) " TO WS-CRD-STAT-DESCR ELSE MOVE "(******************)" TO WS-CRD-STAT-DESCR. #REPLACE 02062 570-DISPLAY-OVERLAY-7 *BASE OVERLAY #REPLACE 02180f06 595-CLEAR-DATA MOVE "6" TO CRD-STAT-2 OF SEG0. #REPLACE 02183x09 595-CLEAR-DATA MOVE "1" TO ACTION-TABLE-INDEX OF SEG9. #REPLACE 02183x0E 595-CLEAR-DATA MOVE SPACES TO WS-ISS-APPL-DATA-DESC. #REPLACE 02183y06 595-CLEAR-DATA MOVE ZEROES TO WS-EXP-DAT-2. #ENDSCN = BA07141 !*CMP2.13 10/31/03 RQCPFS 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCPFS RQCPFS 6054 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCPFS RQCPFS 6054 * ******************************************************************************** #SCN = BA07142 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6054 #NEWVERSION = 6055 #DELETE 00008s00/00022d00 #REPLACE 00022h01 **************************************************************** #ADD 00022$0C * 15OCT2003 JMS/530 * Symptom: SSB Check Enhancement * Problem: None. * Fix: Added support for the new fields * CSF-CHK-DEP-CR-PERCENT, CR-PER-CSF-CHK-DEP-LMT, * CHK-DEP-CR-PERCENT, and CR-PER-CHK-DEP-LMT in the * SSBC segment of the CPF. * Increased REC-IMAGE-REST by 20 in WORKING-STORAGE. * Decreased LEFTOVER by 20 in WORKING-STORAGE. * Paragraphs added: * 480-FLAG-OV-14-FIELD-8 * 480-FLAG-OV-14-FIELD-9 * 480-FLAG-OV-14-FIELD-10 * 480-FLAG-OV-14-FIELD-11 * Paragraphs modified: * 595-CLEAR-DATA * 480-ERR-FLAG-OV-14 * Dependency: Replace SCRNCPF and apply fixes to DDLFCPF, * RQCPFS, and SVCPFS and run Make. SSB Check * customers must run the CPF Conversion program. * Refer to BA60UD07.SCNSSBC for a complete listing * of dependencies. * Reference: WO #020826-01 * 15OCT2003 jfu/543 * Symptom: Secure Internet Validation - CAVV and AAV testing. * Problem: Tested CAVV processing. * Tested AAV processing. * Fix: Added support for SIV ATTEMPT ACTION field on * screen 6. * Changed AVV references to AAV. * Removed old history section prior to release 5.0 * Changed COPY statements where the file's define * name started after column 35. The file's define * name was moved to the next line. * Paragraph added: 480-FLAG-OV-6-FIELD-20 * Paragraphs modified: 410-MOVE DEFAULTS * 480-ERR-FLAG-OV-6 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Replace SCRNCPF. Apply fixes to DDLBCNST, RQCPFS, * SVCPFS, and run Make. Refer to BA60UD07.SCNSIV * for a complete listing of dependencies. * Reference: WO #020718-01 * 15OCT2003 TS/299 SP/211 * Symptom: Visa October 2003 Mandates - POS Balance Inquiry * Service. * Problem: None * Fix: Added support for validation of new Return Balances * field on CPF screen 8. * Modified Paragraphs: * 480-ERR-FLAG-OV-8 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * New Paragraphs: * 480-FLAG-OV-8-FIELD-5 * Dependency: Replace SCRNCPF, apply fixes to DDLFCPF, RQCPFS, * SVCPFS and run Make. POS customers must run the * CPF Conversion program. Refer to BA60UD07.SCNVISA * for a complete listing of dependencies. * Reference: WO #030504-04 * 15OCT2003 MSH/872 SP/211 * Symptom: Switch POS RTAU Enhancement * Problem: None. * Fix: Process fields added to the new CPF screens: * Screen 3 - SRVC-CDE-CHK-FLG * SVC-CDE-ACT-TBL-IDX * Screen 8 - APPRV-CDE-LGTH * FORCE-ONL-CNT * DFT-CAPTR-ISS * Modified Paragraphs: * 400-MOVE-RECORD * 480-DATA-CHECK-RETURN * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY-3 * 570-DISPLAY-OVERLAY-8 * 595-CLEAR-DATA * New Paragraphs: * 480-CHK-OVERLAY-3 * 480-CHK-OVERLAY-8 * 480-ERR-FLAG-OV-3 * 480-ERR-FLAG-OV-8 * 480-FLAG-OV-3-FIELD-1 * 480-FLAG-OV-3-FIELD-2 * 480-FLAG-OV-3-FIELD-3 * 480-FLAG-OV-3-FIELD-4 * 480-FLAG-OV-3-FIELD-5 * 480-FLAG-OV-8-FIELD-1 * 480-FLAG-OV-8-FIELD-2 * 480-FLAG-OV-8-FIELD-3 * 480-FLAG-OV-8-FIELD-4 * Dependency: Apply fix to RQCPFS, SCRNCPF, SVCPFS and run * Make. Refer to BA60UD07.SCNSWCH for a complete * listing of dependencies. * Reference: WO #020812-02 * 15OCT2003 BN/517 SP/211 * Symptom: Expiration Date Checking * Problem: None. * Fix: Process fields added to the new CPF screens: * Screen 3 - EXP-DAT-REQ * EXP-DAT-CMP * EXP-DAT-PRD * Screen 8 - RECUR-PMNT-EXP-CHK-IND * Modified Paragraphs: * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS, * and run Make. Refer to BA60UD07.SCNEXPD1 for a * complete listing of dependencies. * Reference: WO #021122-01 * 15OCT2003 SP/211 * Symptom: M/Chip 4 support enhancement. * Problem: None. * Fix: Allow value "3" in EMV issuer application data * format field to indicate M/Chip 4 format. * Modified Paragraphs: * 550-TABLE-LOOK-UP. * Dependency: Apply fixes to DDLFCPF, RQCPFS, SVCPFS and run * Make. Refer to BA60UD07.SCNMCHP4 for a complete * listing of dependencies. * Reference: WO #030609-01 #DELETE 00022$0D/00022$0Q #ADD 00027 ENVIRONMENT DIVISION COPY CONFIGURATION-SECTION OF =BASRC_BACOUTLS. COPY INPUT-OUTPUT-SECTION OF =BASRC_BACOUTLS. #DELETE 00028i00/00028h04 ENVIRONMENT DIVISION #ADD 00033 DATA DIVISION COPY GENERAL-HEADER OF =BASRC_BACOUTLS. #DELETE 00034d00/00034d02 DATA DIVISION #ADD 00035 DATA DIVISION COPY CPF OF =BASRC_BADDLCOB. COPY SEG-CONSTANTS OF =BASRC_BADDLCOB. * * SIV constants located in the CPF DDL source file * COPY SIV-CONSTANTS OF =BASRC_BADDLCOB. COPY OMF-APPL-CDE-CONSTANTS OF =BASRC_BADDLCOB. #DELETE 00035P00/00036P01 DATA DIVISION #REPLACE 00043m01/00043m02 DATA DIVISION COPY NCD-CONTENTS-TABLE OF =BASRC_COBNAMES. #REPLACE 00043h01/00043h02 DATA DIVISION COPY CARD-TYPE-TABLE OF =BASRC_COBNAMES. #ADD 00046 DATA DIVISION COPY WS-FILE-MAINTENANCE OF =BASRC_BACOUTLS. #DELETE 00047d00/00047d02 DATA DIVISION #REPLACE 00058#05 DATA DIVISION 05 WS-SIV-ATTEMPT-DISP-DESCR PIC X(20). #REPLACE 00060d02 DATA DIVISION 05 WS-RTRN-BAL-DESC PIC X(48). #REPLACE 00074u07 DATA DIVISION 88 VALID-ISS-APPL-DATA VALUE "0" THRU "3". #ADD 00074u08 DATA DIVISION 05 WS-EXP-DAT-REQ-DESC PIC X(23). 05 WS-EXP-DAT-CMP-DESC PIC X(25). 05 WS-RECUR-PMNT-EXP-CHK-DESC PIC X(21). 05 WS-BINARY PIC S9(4) COMP. 05 WS-ASCII REDEFINES WS-BINARY PIC X(2). 88 WS-BINARY-SPACE VALUE SPACE. #REPLACE 00074w0O/00074w0O OFFSET 0 DATA DIVISION COPY SV-VALID-CARD-TYPES OF =BASRC_COBNAMES. #ADD 00102h04 DATA DIVISION 05 CPF3 PIC X(4) VALUE "BASE". #DELETE 00104 DATA DIVISION #ADD 00108h01 DATA DIVISION 05 CPF8 PIC X(4) VALUE "POS ". #DELETE 00108F01 DATA DIVISION #ADD 00113 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 14, 20, 21, 22, 48. #DELETE 00113F00/00113h06 DATA DIVISION #REPLACE 00115u02/00115u03 DATA DIVISION COPY MSG-FILE-MAINT-4096-EXT OF =BASRC_BADDLCOB. #REPLACE 00115w01 DATA DIVISION 10 REC-IMAGE-REST PIC X(1421). #REPLACE 00115w0D DATA DIVISION 05 LEFTOVER PIC X(2442). #ADD 00135 DATA DIVISION COPY SC-ADVISORY-LINE OF =BASRC_BACOUTLS. COPY SC-GENERAL-HDR-EXT OF =BASRC_BACOUTLS. COPY SC-VARIABLE-INSTRUCTIONS OF =BASRC_BACOUTLS. COPY SC-INFORMATION-LINE OF =BASRC_BACOUTLS. #DELETE 00136d00/00136d06 DATA DIVISION #ADD 00143h00 DATA DIVISION COPY SC-CPF3 OF =BAAFT_SCNCPFO. #DELETE 00143h01 DATA DIVISION #ADD 00147h05 DATA DIVISION COPY SC-PSCPF8 OF =BAAFT_SCNCPFO. #DELETE 00147h06 DATA DIVISION #ADD 00465d0C 400-MOVE-RECORD MOVE EXP-DAT-REQ OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO EXP-DAT-REQ OF SEG0. MOVE EXP-DAT-PRD OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO EXP-DAT-PRD OF SEG0. IF SVC-CDE-ACT-TBL-IDX OF SEG0 = SPACES MOVE "1" TO SVC-CDE-ACT-TBL-IDX OF SEG0. IF EXP-DAT-CMP OF SEG0 = SPACES MOVE "0" TO EXP-DAT-CMP OF SEG0. IF SRVC-CDE-CHK-FLG OF SEG0 = SPACES MOVE "N" TO SRVC-CDE-CHK-FLG OF SEG0. IF SVC-CDE-ACT-TBL-IDX OF SEG0 = SPACES MOVE "1" TO SVC-CDE-ACT-TBL-IDX OF SEG0. #ADD 00475#05 400-MOVE-RECORD MOVE APPRV-CDE-LGTH OF SEG2 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 6 TO APPRV-CDE-LGTH OF SEG2. MOVE FORCE-ONL-CNT OF SEG2 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO FORCE-ONL-CNT OF SEG2. IF DFT-CAPTR-ISS OF SEG2 = SPACES MOVE "00" TO DFT-CAPTR-ISS OF SEG2. IF RECUR-PMNT-EXP-CHK-IND OF SEG2 = SPACES MOVE "9" TO RECUR-PMNT-EXP-CHK-IND OF SEG2. #DELETE 00476h00/00476h02 400-MOVE-RECORD #REPLACE 00599#04 410-MOVE-DEFAULTS SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-CAVV-EAF-AAV-C #REPLACE 00599#0Y/00599h02 440-SET-UP-FETCH IF SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-CONT-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-A-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-8-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-A-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-A-C MOVE SIV-ATTEMPT-DISP-DNY-C TO SIV-ATTEMPT-DISP OF SEG2. #REPLACE 00670w0s 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-3, #REPLACE 00670w0x 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-8, #ADD 00670w1Q 480-CHK-OVERLAY-4 480-CHK-OVERLAY-3. PERFORM 480-ERR-FLAG-OV-3 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 00670w1c 480-CHK-OVERLAY-10 480-CHK-OVERLAY-8. PERFORM 480-ERR-FLAG-OV-8 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 00670w5k 480-FLAG-OV-2-FIELD-22 480-ERR-FLAG-OV-3. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-3-FIELD-1, 480-FLAG-OV-3-FIELD-2, 480-FLAG-OV-3-FIELD-3, 480-FLAG-OV-3-FIELD-4, 480-FLAG-OV-3-FIELD-5, DEPENDING ON K. 480-FLAG-OV-3-FIELD-1. TURN TEMP SERROR IN P-EXP-DAT-REQ. SET NEW-CURSOR AT P-EXP-DAT-REQ. 480-FLAG-OV-3-FIELD-2. TURN TEMP SERROR IN P-EXP-DAT-CMP. SET NEW-CURSOR AT P-EXP-DAT-CMP. 480-FLAG-OV-3-FIELD-3. TURN TEMP SERROR IN P-CRD-VALID-PRD. SET NEW-CURSOR AT P-CRD-VALID-PRD. 480-FLAG-OV-3-FIELD-4. TURN TEMP SERROR IN P-SRVC-CDE-CHECK-FLG. SET NEW-CURSOR AT P-SRVC-CDE-CHECK-FLG. 480-FLAG-OV-3-FIELD-5. TURN TEMP SERROR IN P-SVC-CDE-ACT-TBL-IDX. SET NEW-CURSOR AT P-SVC-CDE-ACT-TBL-IDX. #REPLACE 00670#06 480-ERR-FLAG-OV-6 480-FLAG-OV-6-FIELD-20, #REPLACE 00670#0R/00670#0R OFFSET 0 480-FLAG-OV-6-FIELD-19 480-FLAG-OV-6-FIELD-20. TURN TEMP SERROR IN P-SIV-ATTEMPT-DISP. SET NEW-CURSOR AT P-SIV-ATTEMPT-DISP. #REPLACE 00670w8j 480-ERR-FLAG-OV-7 480-FLAG-OV-DUMMY #ADD 00670w9O 480-FLAG-OV-7-FIELD-11 480-ERR-FLAG-OV-8. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-8-FIELD-1, 480-FLAG-OV-8-FIELD-2, 480-FLAG-OV-8-FIELD-3, 480-FLAG-OV-8-FIELD-4, 480-FLAG-OV-8-FIELD-5, DEPENDING ON K. 480-FLAG-OV-8-FIELD-1. TURN TEMP SERROR IN P-APPR-CDE-LGTH. SET NEW-CURSOR AT P-APPR-CDE-LGTH. 480-FLAG-OV-8-FIELD-2. TURN TEMP SERROR IN P-RECUR-PMNT-EXP-CHK-TYP. SET NEW-CURSOR AT P-RECUR-PMNT-EXP-CHK-TYP. 480-FLAG-OV-8-FIELD-3. TURN TEMP SERROR IN P-FORCE-ONL-CNT. SET NEW-CURSOR AT P-FORCE-ONL-CNT. 480-FLAG-OV-8-FIELD-4. TURN TEMP SERROR IN P-DFT-CAPTR-ISS. SET NEW-CURSOR AT P-DFT-CAPTR-ISS. 480-FLAG-OV-8-FIELD-5. TURN TEMP SERROR IN P-RTRN-BAL. SET NEW-CURSOR AT P-RTRN-BAL. #ADD 00670wBT 480-ERR-FLAG-OV-14 480-FLAG-OV-14-FIELD-8, 480-FLAG-OV-14-FIELD-9, 480-FLAG-OV-14-FIELD-10, 480-FLAG-OV-14-FIELD-11, #ADD 00670wBx 480-FLAG-OV-14-FIELD-7 480-FLAG-OV-14-FIELD-8. TURN TEMP SERROR IN C-CHK-DEP-CR-PERCENT. SET NEW-CURSOR AT C-CHK-DEP-CR-PERCENT. 480-FLAG-OV-14-FIELD-9. TURN TEMP SERROR IN C-CSF-CHK-DEP-CR-PERCENT. SET NEW-CURSOR AT C-CSF-CHK-DEP-CR-PERCENT. 480-FLAG-OV-14-FIELD-10. TURN TEMP SERROR IN C-CR-PER-CHK-DEP-LMT. SET NEW-CURSOR AT C-CR-PER-CHK-DEP-LMT. 480-FLAG-OV-14-FIELD-11. TURN TEMP SERROR IN C-CR-PER-CSF-CHK-DEP-LMT. SET NEW-CURSOR AT C-CR-PER-CSF-CHK-DEP-LMT. #REPLACE 01357#09 550-TABLE-LOOK-UP IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV-CAVV-EAF-AAV-C #REPLACE 01357#0W/01357#0W OFFSET 0 550-TABLE-LOOK-UP MOVE SPACES TO WS-SIV-ATTEMPT-DISP-DESCR. IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-CONT-C MOVE "DENOTE & CONTINUE" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-3-ONLY-C MOVE "DENY ONLY 3 & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-8-ONLY-C MOVE "DENY ONLY 8 & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-A-ONLY-C MOVE "DENY ONLY A & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-3-8-C MOVE "DENY 3, 8 & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-3-A-C MOVE "DENY 3, A & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE IF SIV-ATTEMPT-DISP OF SEG2 = SIV-ATTEMPT-DISP-DNY-8-A-C MOVE "DENY 8, A & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR ELSE MOVE "DENY & RETURN" TO WS-SIV-ATTEMPT-DISP-DESCR. #ADD 01399 550-TABLE-LOOK-UP IF RTRN-BAL OF SEG0 = " " MOVE "0" TO RTRN-BAL OF SEG0. MOVE SPACES TO WS-RTRN-BAL-DESC. IF RTRN-BAL OF SEG0 = 0 MOVE "(BALANCES ARE NOT RETURNED FOR PURCHASES)" TO WS-RTRN-BAL-DESC ELSE IF RTRN-BAL OF SEG0 = 1 MOVE "(BALANCES ARE RETURNED FOR PURCHASES)" TO WS-RTRN-BAL-DESC ELSE IF RTRN-BAL OF SEG0 = 2 MOVE "(BALANCES ARE RETURNED BASED ON TERMINAL CONFIG)" TO WS-RTRN-BAL-DESC ELSE MOVE "(**********************************************)" TO WS-RTRN-BAL-DESC. #REPLACE 01416u08 550-TABLE-LOOK-UP MOVE "(M/CHIP 2.1)" TO WS-ISS-APPL-DATA-DESC #ADD 01416u09 550-TABLE-LOOK-UP IF EMV-ISS-APPL-DATA-FRMT = 3 MOVE "(M/CHIP 4)" TO WS-ISS-APPL-DATA-DESC ELSE #ADD 01420r09 550-TABLE-LOOK-UP IF EXP-DAT-REQ OF SEG0 = 0 MOVE "(EXP DATE NOT REQUIRED)" TO WS-EXP-DAT-REQ-DESC ELSE IF EXP-DAT-REQ OF SEG0 = 1 MOVE "(EXP DATE REQUIRED) " TO WS-EXP-DAT-REQ-DESC ELSE IF EXP-DAT-REQ OF SEG0 = 2 MOVE "(EXP DATE CONDITIONAL) " TO WS-EXP-DAT-REQ-DESC ELSE MOVE "(*********************)" TO WS-EXP-DAT-REQ-DESC. IF EXP-DAT-CMP OF SEG0 = "0" MOVE "(COMPARISON NOT REQUIRED)" TO WS-EXP-DAT-CMP-DESC ELSE IF EXP-DAT-CMP OF SEG0 = "1" MOVE "(COMPARISON REQUIRED) " TO WS-EXP-DAT-CMP-DESC ELSE MOVE "(***********************)" TO WS-EXP-DAT-CMP-DESC. IF RECUR-PMNT-EXP-CHK-IND OF SEG2 = "0" MOVE "(NO CHECK) " TO WS-RECUR-PMNT-EXP-CHK-DESC ELSE IF RECUR-PMNT-EXP-CHK-IND OF SEG2 = "1" MOVE "(DATE ON CARD) " TO WS-RECUR-PMNT-EXP-CHK-DESC ELSE IF RECUR-PMNT-EXP-CHK-IND OF SEG2 = "2" MOVE "(DATE IN CAF) " TO WS-RECUR-PMNT-EXP-CHK-DESC ELSE IF RECUR-PMNT-EXP-CHK-IND OF SEG2 = "9" MOVE "(CPF BASE CHECK TYPE)" TO WS-RECUR-PMNT-EXP-CHK-DESC ELSE MOVE "(*******************)" TO WS-RECUR-PMNT-EXP-CHK-DESC. #ADD 01477 570-DISPLAY-OVERLAY-3 TURN PROTECTED IN SC-DATA. DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY SC-INFORMATION-LINE. DISPLAY OVERLAY OVERLAY-3 AT OVERLAY-AREA. DISPLAY OVERLAY-3. IF U-ACCESS(3) = "N" AND A-ACCESS(3) = "N" TURN PROTECTED IN OVERLAY-3. #ADD 01530F02 570-DISPLAY-OVERLAY-8 TURN PROTECTED IN SC-DATA. DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY SC-INFORMATION-LINE. DISPLAY OVERLAY OVERLAY-8 AT OVERLAY-AREA. DISPLAY OVERLAY-8. IF U-ACCESS(8) = "N" AND A-ACCESS(8) = "N" TURN PROTECTED IN OVERLAY-8. #REPLACE 01531s01/01531s02 570-DISPLAY-OVERLAY-14 COPY 580-KEYS-DISPLAYED-EXT OF =BASRC_BACOUTLS. #REPLACE 01570m00/01570m00 OFFSET 0 595-CLEAR-DATA CSF-CHK-DEP-CR-PERCENT OF SEG18, CR-PER-CSF-CHK-DEP-LMT OF SEG18, CHK-DEP-CR-PERCENT OF SEG18, CR-PER-CHK-DEP-LMT OF SEG18, #REPLACE 01570p02 595-CLEAR-DATA MOVE "0" TO RTRN-BAL OF SEG0. #REPLACE 01584#06/01584#06 OFFSET 0 595-CLEAR-DATA MOVE SIV-ATTEMPT-DISP-DNY-C TO SIV-ATTEMPT-DISP OF SEG2. * Next 9 lines - Enhanced Approval & Referral Code Generation * modification MOVE 0 TO EXP-DAT-REQ OF SEG0. MOVE 0 TO EXP-DAT-PRD OF SEG0. MOVE "0" TO EXP-DAT-CMP OF SEG0. MOVE "N" TO SRVC-CDE-CHK-FLG OF SEG0. MOVE "1" TO SVC-CDE-ACT-TBL-IDX OF SEG0. MOVE 6 TO APPRV-CDE-LGTH OF SEG2. MOVE 0 TO FORCE-ONL-CNT OF SEG2. MOVE "00" TO DFT-CAPTR-ISS OF SEG2. MOVE "9" TO RECUR-PMNT-EXP-CHK-IND OF SEG2. #ADD 01612w02 800-NEXT-VALID-OVERLAY-CPF COPY FILE-MAINTENANCE-800-4096-EXT OF =BASRC_BACOUTLS. COPY 900-DISPLAYS-4096-EXT OF =BASRC_BACOUTLS. #DELETE 01614s04 / L 800-NEXT-VALID-OVERLAY-CPF #ENDSCN = BA07142 !*CMP2.13 10/14/03 SECTBL 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6016 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6016 * ******************************************************************************** #SCN = BA07145 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6016 #NEWVERSION = 6017 #ADD 00268N0I * 15OCT2003 MSH/872 * Symptom: Switch POS RTAU Enhancement * Problem: None. * Fix: Added 2 new entries to PROD-SCRN-ACCESS-TABLE-DATA * for CPF screens 3 and 8. Increased the value of * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES * each by 2. * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SECTBL * and SVCPFS and run MAKE. Refer to * BA60UD07.SCNSWCH for a complete listing of * dependencies. * Reference: WO #020812-02 * 15OCT2003 SP/211 * Symptom: Enhanced Expiration Date Checking * Problem: None. * Fix: Added 1 new entry to PROD-SCRN-ACCESS-TABLE-DATA * for CAF screen 7, second card usage control. * Increased the value of PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES each by 1. * Dependency: Apply fix to RQCAFS, SCRNCAF, SECTBL, SVCAFS and * run MAKE. Refer to BA60UD07.SCNEXPD1 for a * complete listing of dependencies. * Reference: WO #021122-01 * * 15OCT2003 ALR/455 * Symptom: POS Enhancements. * Problem: None. * Fix: 1. Added support for the CGF screen. * 2. Added support for the IMNA screen. * 3. Added support for the MLMF screen. * 4. Added support for the MLCF screen. * 5. Increased the value of PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES each by 4. * Dependency: Apply fix to SECTBL and run MAKE. * Reference: WO #020606-01 * * 15OCT2003 BEM/348 * Symptom: BASE24 Surcharging Enhancements * Problem: None. * Fix: Added support for TSRF screen. Increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by * 1. * Dependency: Apply fix to SECTBL and run MAKE. * Refer to BA60UD07.SCNSRCH for a complete listing * of dependencies. * Reference: WO #020807-03 #REPLACE 00374M02 05 CAF7 PIC X(35) VALUE "CAF 070000SECOND CARD USAGE CONTROL". #ADD 00395 05 CGF1 PIC X(35) VALUE "CGF 010027IMN CGF SCREEN1 ". #ADD 00410 05 CPF3 PIC X(35) VALUE "CPF 030000AUTHORIZATION INFO ". #REPLACE 00414G00 05 CPF8 PIC X(35) VALUE "CPF 080200POS AUTHORIZATION INFO ". #ADD 00591A04 05 IMNA1 PIC X(35) VALUE "IMNA010027IMN ADMIN MESSAGES SCRN1 ". #ADD 00649A01 05 MLCF1 PIC X(35) VALUE "MLCF010202MERCHANT CONFIGURATION ". 05 MLMF1 PIC X(35) VALUE "MLMF010202MERCHANT MAPPING ". #ADD 00801B01 05 TSRF PIC X(35) VALUE "TSRF010000TRAN CODE/SUBTYPE RELATE ". #REPLACE 00893O01 05 PROD-SCRN-ACC-TABL OCCURS 585 TIMES. #REPLACE 00906O01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 585. #ENDSCN = BA07145 !*CMP2.13 10/31/03 SVCAFS 6036 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6036 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6036 * ******************************************************************************** #SCN = BA07146 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6036 #NEWVERSION = 6037 #REPLACE 00013h0e/00013f0I * 15OCT2003 SP/211 * Symptom: Enhanced Expiration Date Checking * Problem: None. * Fix: Modified the code to process two new CAF fields: * second card status (CRD-STAT-2) and second card * expiration date (EXP-DAT-2). * Modified Paragraphs: * 480-DATA-CHECK-SCREEN * 480-DATA-CHECK-SCREEN1 * 911-RCD-RETRIEVE * Added Paragraphs: * 480-DATA-CHECK-SCREEN7. * Dependency: Apply fix to RQCAFS, SCRNCAF, SECTBL, SVCAFS and * run MAKE. Refer to BA60UD07.SCNEXPD1 and * BA60UD07.SCNSWCH for complete listing of * dependencies. * Reference: WO #021122-01 * 15OCT2003 SP/211 * Symptom: M/Chip 4 support enhancement. * Problem: None. * Fix: Added support for two new EMV fields: action table * index and EMV issuer application data format. * Modified paragraphs: * 480-DATA-CHECK-SCREEN13 * 911-RCD-RETRIEVE. * Dependency: Apply fix to DDLFCAF, DDLGCAFX, RQCAFS, SCRNCAF, * SVCAFS and run MAKE. * Refer to BA60UD07.SCNMCHP4 for a complete listing * of dependencies. * Reference: WO #030609-01 * 15OCT2003 ALP/455 * Symptom: Enhanced preauth holds are being removed from the * CAF and the UAF with the incorrect length. * Problem: The server adds 76 characters for every enhanced * preauth instead of 78. * Fix: Add 78 characters for the enhanced preauth instead * of 76. * Modified procs: * 315-CHECK-ENHNC-PREV-ON-HOLD * 315-CHECK-ENHNC-ON-HOLD * Dependency: Apply fixes to SVCAFS, SVUAFS and run Make. * Reference: CASE #368821 #REPLACE 00458L03/00458F03 DATA DIVISION 01 WS-CRD-STAT PIC X VALUE SPACES. 88 WS-CRD-STAT-VALID VALUE "0", "1", "2", "3", "4", "5", "6", "9", "A", "B", "C", "D", "E", "F", "G". #ADD 00467 DATA DIVISION 01 WS-ISS-APPL-DATA-FRMT PIC X. 88 VALID-ISS-APPL-DATA-FRMT VALUE "0", "3". 01 WS-ACTION-TABLE-INDEX PIC X. 88 VALID-ACTION-TABLE-INDEX VALUE "1", "2", "3", "4". #ADD 00510X03 DATA DIVISION / #REPLACE 00511 /00511 OFFSET 0 DATA DIVISION 01 WS-ERR-MSGS. 05 WS-CRD-STAT-ERR. 10 FILLER PIC X(50) VALUE "CARD STATUS MUST BE 0,1,2,3,4,5,6,9,A,B,C,D,E,F OR". 10 FILLER PIC X(20) VALUE " G". 05 WS-EXP-DAT-ERR. 10 FILLER PIC X(50) VALUE "DATE MUST BE IN FORMAT OF YEAR AND MONTH". 10 FILLER PIC X(20) VALUE SPACES. 05 WS-FRST-EXP-DAT-ERR. 10 FILLER PIC X(50) VALUE "FIELD CANNOT BE ZEROS WHEN SECOND CARD EXPIRY DATE". 10 FILLER PIC X(20) VALUE " IS NON-ZEROS". 05 WS-SCND-EXP-DAT-ERR. 10 FILLER PIC X(50) VALUE "FIELD CANNOT BE NON-ZEROS WHEN FIRST CARD EXPIRY D". 10 FILLER PIC X(20) VALUE "ATE IS ZEROS". 05 WS-SCND-CRD-STAT-ERR. 10 FILLER PIC X(50) VALUE "CARD STATUS '6' INVALID WITH NON-ZERO SECOND CARD ". 10 FILLER PIC X(20) VALUE "EXPIRY DATE". 05 WS-ACTION-TABLE-INDEX-ERR. 10 FILLER PIC X(50) VALUE "STATUS CHECKING ACTION INDEX MUST BE 1,2,3 OR 4". 10 FILLER PIC X(20) VALUE SPACES. 05 WS-ISS-APPL-DATA-FRMT-ERR. 10 FILLER PIC X(50) VALUE "EMV IAD FORMAT MUST BE 0 OR 3". 10 FILLER PIC X(20) VALUE SPACES. #REPLACE 00880e0l 315-CHECK-ENHNC-PREV-ON-HOLD ADD 78 TO CALCULATED-SEG25-LGTH. #REPLACE 00880e0p 315-CHECK-ENHNC-PREV-ON-HOLD ADD 78 TO CALCULATED-SEG25-LGTH. #ADD 00972e0t 480-DATA-CHECK-SCREEN IF OVERLAY-NUM = 7 PERFORM 480-DATA-CHECK-SCREEN7 ELSE #REPLACE 00972e1Y/00972e1a 480-DATA-CHECK-SCREEN1 MOVE "SPACES ARE NOT ALLOWED FOR CARD STATUS" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE MOVE CRD-STAT OF SEG0 TO WS-CRD-STAT IF NOT WS-CRD-STAT-VALID ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-CRD-STAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF END-IF. #REPLACE 00972e2x/00972e2x OFFSET 0 480-DATA-CHECK-SCREEN2 MOVE "N" TO FLAG-MOVE END-IF END-IF ELSE IF EXP-DAT-2 OF SEG0 NOT = "0000" AND EXP-DAT-2 OF SEG0 NOT = SPACES ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-FRST-EXP-DAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF END-IF. #ADD 00972e7w 480-DATA-CHECK-SCREEN10 480-DATA-CHECK-SCREEN7. MOVE EXP-DAT-2 OF SEG0 TO WS-VERIFY-DATE IF WS-VERIFY-DATE NOT = ZEROES IF ( WS-VERIFY-DATE NOT NUMERIC )OR NOT ( VALID-MTH AND VALID-YR ) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-EXP-DAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF IF EXP-DAT OF SEG0 = "0000" ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-SCND-EXP-DAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF END-IF. MOVE CRD-STAT-2 OF SEG0 TO WS-CRD-STAT IF NOT WS-CRD-STAT-VALID ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-CRD-STAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. IF ( WS-VERIFY-DATE NOT = ZEROES ) AND ( CRD-STAT-2 OF SEG0 = "6" ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-SCND-CRD-STAT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. #ADD 00972eAG 480-DATA-CHECK-SCREEN13 MOVE ACTION-TABLE-INDEX OF SEG9 TO WS-ACTION-TABLE-INDEX. IF NOT VALID-ACTION-TABLE-INDEX ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-ACTION-TABLE-INDEX-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. MOVE ISS-APPL-DATA-FRMT OF SEG9 TO WS-ISS-APPL-DATA-FRMT. IF NOT VALID-ISS-APPL-DATA-FRMT ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-ISS-APPL-DATA-FRMT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. #REPLACE 00972eAK 480-DATA-CHECK-SCREEN13 MOVE 11 TO FLD-ID-NUM(ERR-CNT) #ADD 01724 911-RCD-RETRIEVE * VALIDATE THE SECOND CARD EXPIRATION DATE FIELD IF EXP-DAT-2 OF SEG0 NOT NUMERIC * SET THE FIELD TO A DEFAULT VALUE, IF THE SECOND CARD * EXPIRATION DATE ON CAF IS INVALID MOVE "0000" TO EXP-DAT-2 OF SEG0. * VALIDATE THE SECOND CARD STATUS FIELD MOVE CRD-STAT-2 OF SEG0 TO WS-CRD-STAT. IF NOT WS-CRD-STAT-VALID * SET THE FIELD TO A DEFAULT VALUE, IF THE SECOND CARD * STATUS ON CAF IS INVALID MOVE "6" TO CRD-STAT-2 OF SEG0. #REPLACE 01743R09/01743R0A 911-RCD-RETRIEVE PERFORM 100-CAF-ERROR-TEXT-FILL ELSE * VALIDATE THE ACTION TABLE INDEX FIELD MOVE ACTION-TABLE-INDEX OF SEG9 TO WS-ACTION-TABLE-INDEX IF NOT VALID-ACTION-TABLE-INDEX * SET THE FIELD TO A DEFAULT VALUE, IF THE ACTION * TABLE INDEX ON CAF IS INVALID MOVE "1" TO ACTION-TABLE-INDEX OF SEG9 END-IF * VALIDATE THE EMV IAD FORMAT FIELD MOVE ISS-APPL-DATA-FRMT OF SEG9 TO WS-ISS-APPL-DATA-FRMT IF NOT VALID-ISS-APPL-DATA-FRMT * SET THE FIELD TO A DEFAULT VALUE, IF THE EMV IAD * FORMAT ON CAF IS INVALID MOVE "0" TO ISS-APPL-DATA-FRMT OF SEG9 END-IF. #ENDSCN = BA07146 !*CMP2.13 10/31/03 SVCPFS 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCPFS SVCPFS 6030 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCPFS SVCPFS 6030 * ******************************************************************************** #SCN = BA07147 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6030 #NEWVERSION = 6031 #DELETE 00006U01/00013G0D #ADD 00017d0C * 15OCT2003 JMS/530 * Symptom: SSB Check Enhancement * Problem: None. * Fix: Added support for the new fields * CSF-CHK-DEP-CR-PERCENT, CR-PER-CSF-CHK-DEP-LMT, * CHK-DEP-CR-PERCENT, and CR-PER-CHK-DEP-LMT in the * SSBC segment of the CPF. * Increased SSBC-SEG-LGTH and REC-IMAGE-REST by 20. * Decreased LEFTOVER by 20. * Added WS-SSBC-ERR-MSGS to WORKING-STORAGE. * Paragraph modified: 480-DATA-CHECK-SCREEN14 * Dependency: Restore SCRNCPF and apply fixes to DDLFCPF, * RQCPFS, and SVCPFS and run MAKE. SSB Check * customers must run the CPF Conversion program. * Refer to BA60UD07.SCNSSBC for a complete listing * of dependencies. * Reference: WO #020826-01 * * 15OCT2003 jfu/543 * Symptom: Secure Internet Validation - CAVV and AAV testing * Problem: Tested CAVV processing. * Tested AAV processing. * Fix: Added support for the SIV BAD ACTION field on * screen 6. * Changed AVV references to AAV references. * Removed old history section prior to release 5.0 * Changed COPY statements where the file's define * name started after column 35. The file's define * name was moved to the next line. * Paragraph modified: 480-DATA-CHECK-SCREEN6 * Dependency: Replace SCRNCPF. Apply fixes to DDLBCNST, * RQCPFS, SVCPFS and run MAKE. Refer to * BA60UD07.SCNSIV for a complete listing of * dependencies. * Reference: WO #020718-01 * * 15OCT2003 TS/299 SP/211 * Symptom: Visa October 2003 Mandates - POS Balance Inquiry * Service. * Problem: None * Fix: Added support for validation of new Return Balances * field on CPF screen 8. * Paragraph modified: 480-DATA-CHECK-SCREEN8. * Dependency: Restore SCRNCPF, apply fixes to DDLFCPF, RQCPFS, * SVCPFS and run MAKE. * POS customers must run the CPF Conversion program. * Refer to BA60UD07.SCNVISA for a complete listing * of dependencies. * Reference: WO #030504-04 * * 15OCT2003 MSH/872 SP/211 * Symptom: Switch POS RTAU Enhancement * Problem: None. * Fix: Process fields added to the new CPF screens: * Screen 3 - SRVC-CDE-CHK-FLG * SVC-CDE-ACT-TBL-IDX * Screen 8 - APPRV-CDE-LGTH * FORCE-ONL-CNT * DFT-CAPTR-ISS * Modified Paragraphs: * 480-DATA-CHECK-SCREEN * New Paragraphs: * 480-DATA-CHECK-SCREEN3 * 480-DATA-CHECK-SCREEN8 * Dependency: Apply fix to RQCPFS, SCRNCPF, SECTBL and SVCPFS * and run MAKE. Refer to BA60UD07.SCNSWCH for a * complete listing of dependencies. * Reference: WO #020812-02 * * 15OCT2003 BN/517 SP/211 * Symptom: Expiration Date Checking * Problem: None. * Fix: Process fields added to the new CPF screens: * Screen 3 - EXP-DAT-REQ * EXP-DAT-CMP * EXP-DAT-PRD * Screen 8 - RECUR-PMNT-EXP-CHK-IND * Modified Paragraphs: * 480-DATA-CHECK-SCREEN * New Paragraphs: * 480-DATA-CHECK-SCREEN3 * 480-DATA-CHECK-SCREEN8 * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF and SVCPFS * and run MAKE. Refer to BA60UD07.SCNEXPD1 for a * complete listing of dependencies. * Reference: WO #021122-01 * * 15OCT2003 SP/211 * Symptom: M/Chip 4 support enhancement. * Problem: None. * Fix: Allow value "3" in EMV issuer application data * format field to indicate M/Chip 4 format. * Modified Paragraphs: * 480-DATA-CHECK-SCREEN11. * Dependency: Apply fixes to DDLFCPF, RQCPFS, SVCPFS and Run * MAKE. * Refer to BA60UD07.SCNMCHP4 for a complete listing * of dependencies. * Reference: WO #030609-01 #DELETE 00017d0D #DELETE 00017d0E #DELETE 00017d0F #DELETE 00017d0G #DELETE 00017d0H #DELETE 00017d0I #DELETE 00017d0J #DELETE 00017d0K #DELETE 00017d0L #DELETE 00017d0M #DELETE 00017d0N #DELETE 00017d0O #ADD 00041 ENVIRONMENT DIVISION COPY FILE-CONTROL-OMF OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-OMF-TEMPLATE OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-LCONF OF "=BASRC_BACOUTLS". #DELETE 00042K00/00101K02 ENVIRONMENT DIVISION #ADD 00204 DATA DIVISION COPY FD-OMF-TEMPLATE OF "=BASRC_BACOUTLS". #DELETE 00204F00/00205F02 DATA DIVISION #ADD 00220 DATA DIVISION COPY MSG-ERR-EXT OF "=BASRC_BADDLCOB". #DELETE 00220U00/00221U02 DATA DIVISION #ADD 00222 DATA DIVISION COPY MSG-FILE-MAINT-4096-EXT OF "=BASRC_BADDLCOB". #DELETE 00222U00/00223U02 DATA DIVISION #REPLACE 00225X01 DATA DIVISION 10 REC-IMAGE-REST PIC X(1421). #REPLACE 00225X0D DATA DIVISION 05 LEFTOVER PIC X(2442). #ADD 00234 DATA DIVISION COPY CPF OF "=BASRC_BADDLCOB". COPY IDF OF "=BASRC_BADDLCOB". COPY SEG-CONSTANTS OF "=BASRC_BADDLCOB". COPY SEG-ID-CONSTANTS OF "=BASRC_BADDLCOB". * * SIV constants located in the CPF DDL source file * COPY SIV-CONSTANTS OF "=BASRC_BADDLCOB". COPY CURRENCY-CODE-TABLE OF "=BASRC_COBNAMES". #DELETE 00234U00/00235U02 DATA DIVISION #ADD 00288 DATA DIVISION 05 BASE-SEG-LGTH PIC S9(4) COMP VALUE 340. 05 ATM-SEG-LGTH PIC S9(4) COMP VALUE 98. 05 POS-SEG-LGTH PIC S9(4) COMP VALUE 164. 05 EMV-SEG-LGTH PIC S9(4) COMP VALUE 86. 05 SSBC-SEG-LGTH PIC S9(4) COMP VALUE 72. 05 CARD-SEG-LGTH PIC S9(4) COMP VALUE 478. 05 NCD-SEG-LGTH PIC S9(4) COMP VALUE 110. 05 SV-SEG-LGTH PIC S9(4) COMP VALUE 96. 01 NCD-MISC. 05 WS-HOLD-LMT PIC S9(18) COMP. #DELETE 00288K00/00292C02 DATA DIVISION #ADD 00314 DATA DIVISION COPY WS-TIMESTAMP-CONTIME OF "=BASRC_BACOUTLS". #DELETE 00315K00/00315K02 DATA DIVISION #ADD 00383 DATA DIVISION COPY WS-SERVER-UTIL-PLUS-EXT OF "=BASRC_BACOUTLS". #DELETE 00383U00/00384U02 DATA DIVISION #ADD 00385 DATA DIVISION COPY SERVER-ERROR-MESSAGES OF "=BASRC_BACOUTLS". #DELETE 00386K00/00386K02 DATA DIVISION #ADD 00387 DATA DIVISION 05 INVALID-C-CODE PIC X(65) VALUE "PLEASE CORRECT CURRENCY CODE IN IDF OR COBNAMES". 05 INVALID-RTRN-BAL PIC X(65) VALUE "VALID VALUES FOR RETURN BALANCES ARE 0, 1 AND 2". 05 INVALID-DRT-CAPTR-ISS PIC X(65) VALUE "DRAFT CAPTURE ISSUER MUST BE BETWEEN 00 AND 99". 05 INVALID-FORCE-ONL-CNT PIC X(65) VALUE "FORCE ONLINE COUNT MUST BE BETWEEN 00 AND 99". 05 INVALID-RECUR-PMNT-EXP. 10 FILLER PIC X(50) VALUE "RECURRING PAYMENT EXP CHECK TYPE MUST BE 0, 1, 2 ". 10 FILLER PIC X(15) VALUE "OR 9". 05 INVALID-APPRV-CDE-LGTH PIC X(65) VALUE "APPROVAL CODE LENGTH MUST BE BETWEEN 2 AND 6". 05 INVALID-EXP-DAT-REQ PIC X(65) VALUE "EXPIRATION DATE PROCESSING FLAG MUST BE 0". 05 INVALID-EXP-DAT-REQ-2 PIC X(65) VALUE "EXPIRATION DATE PROCESSING FLAG MUST BE 0, 1 OR 2". 05 INVALID-EXP-DAT-CMP PIC X(65) VALUE "EXPIRE DATE COMPARISON MUST BE 0". 05 INVALID-EXP-DAT-CMP-2 PIC X(65) VALUE "EXPIRATION DATE COMPARISON MUST BE 0 OR 1". 05 INVALID-EXP-DAT-PRD. 10 FILLER PIC X(50) VALUE "CARD VALIDITY PERIOD MUST BE BETWEEN 0 AND 600 MO". 10 FILLER PIC X(15) VALUE "NTHS". 05 INVALID-SVC-CDE-CHK PIC X(65) VALUE "CHECK IF HOST ONLINE - SERVICE CODE MUST BE Y OR N". 05 INVALID-ACT-TBL-IDX. 10 FILLER PIC X(50) VALUE "SERVICE CODE CHECKING ACTION INDEX MUST BE 1, 2, ". 10 FILLER PIC X(15) VALUE "3 OR 4". COPY SERVER-SEG-ERROR-MESSAGES OF "=BASRC_BACOUTLS". #DELETE 00387K00/00388K02 DATA DIVISION #ADD 00394 DATA DIVISION COPY WS-AUDIT-CALL-EXT OF "=BASRC_BACOUTLS". #DELETE 00394U00/00395U02 DATA DIVISION #ADD 00396 DATA DIVISION COPY TRANSACTION-DEFINITIONS OF "=BASRC_BACOUTLS". #DELETE 00397K00/00397K02 DATA DIVISION #REPLACE 00399c09/00399c0A DATA DIVISION 10 FILLER PIC X(43) VALUE "CHECK IF HOST ONLINE SIV MUST BE 'Y' OR 'N'". #REPLACE 00399c0D DATA DIVISION "BAD SIV ACTION MUST BE '0' OR '1'". #REPLACE 00399c0F/00399c0H DATA DIVISION 10 FILLER PIC X(41) VALUE "SIV NOT PRESENT ACTION MUST BE '0' OR '1'". 05 SIV-ATTEMPT-DISP-ERR. 10 FILLER PIC X(27) VALUE "SIV ATTEMPT ACTION MUST BE ". 10 FILLER PIC X(25) VALUE "0, 1, 2, 3, 4, 5, 6, OR 7". #ADD 00399b01 DATA DIVISION 05 FILLER PIC X(41) VALUE "BAD OFFLINE PIN ACTION MUST BE 0, 1, OR 3". #DELETE 00399b02 DATA DIVISION #DELETE 00399b03 DATA DIVISION #DELETE 00399b04 DATA DIVISION #DELETE 00399b05 DATA DIVISION #DELETE 00399b06 DATA DIVISION #REPLACE 00399X0T/00399X0T OFFSET 0 DATA DIVISION COPY NCD-CONTENTS-TABLE OF "=BASRC_COBNAMES". #REPLACE 00399X18 DATA DIVISION 88 VALID-ISS-APPL-DATA VALUE "0" THRU "3". #ADD 00399X1k DATA DIVISION 01 WS-SSBC-ERR-MSGS. 05 CHK-DEP-CR-PERCENT-ERR. 10 FILLER PIC X(48) VALUE "CHECK DEPOSIT CREDIT PERCENT MUST BE 0 TO 100 % ". 05 CSF-CHK-DEP-CR-PERCENT-ERR. 10 FILLER PIC X(40) VALUE "CSF CHECK DEPOSIT CREDIT PERCENT MUST BE". 10 FILLER PIC X(12) VALUE " 0 TO 100 % ". 05 CHK-DEP-MAX-CR-ERR. 10 FILLER PIC X(45) VALUE "MAXIMUM CREDIT PER CHECK DEPOSIT IS REQUIRED ". 05 CSF-CHK-DEP-MAX-CR-ERR. 10 FILLER PIC X(49) VALUE "MAXIMUM CREDIT PER CSF CHECK DEPOSIT IS REQUIRED ". 05 DEP-CR-MAX-ERR. 10 FILLER PIC X(38) VALUE "MAX CREDIT MUST NOT EXCEED MAX DEPOSIT". 10 FILLER PIC X(30) VALUE " CREDIT AMOUNT ON SCREEN 4 ". COPY SV-VALID-CARD-TYPES OF "=BASRC_COBNAMES". * END FIELDS REQUIRED FOR EDIT CHECKS #DELETE 00399X1l/00399X1o DATA DIVISION #ADD 00413 DECLARATIVES COPY OMF-ERR-DECLARATIVE-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 00413U00/00414U02 DECLARATIVES #ADD 00422 DECLARATIVES COPY LCONF-FILE-ERROR-DECLARATIVE OF "=BASRC_BACOUTLS". #DELETE 00423K00/00423K02 DECLARATIVES #ADD 00424 DECLARATIVES COPY BUILD-FILE-ERROR-EXT OF "=BASRC_BACOUTLS". #DELETE 00424U00/00425U02 DECLARATIVES #ADD 00434 DECLARATIVES COPY SERVER-SKEL-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 00434U00/00435U02 DECLARATIVES #ADD 00749X0G 480-DATA-CHECK-SCREEN IF OVERLAY-NUM = 3 PERFORM 480-DATA-CHECK-SCREEN3 ELSE #ADD 00749X0S 480-DATA-CHECK-SCREEN IF OVERLAY-NUM = 8 PERFORM 480-DATA-CHECK-SCREEN8 ELSE #ADD 00749XB6 480-DATA-CHECK-SCREEN4 480-DATA-CHECK-SCREEN3. IF ( EXP-DAT-REQ OF SEG0 OF CPF NOT = 0 AND DAT-OFST OF SEG0 OF CPF = 0 ) ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EXP-DAT-REQ TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EXP-DAT-REQ OF SEG0 OF CPF NOT = 0 AND EXP-DAT-REQ OF SEG0 OF CPF NOT = 1 AND EXP-DAT-REQ OF SEG0 OF CPF NOT = 2 ) ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EXP-DAT-REQ-2 TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EXP-DAT-CMP OF SEG0 OF CPF NOT = "0" AND EXP-CHK-IND OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EXP-DAT-CMP TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EXP-DAT-CMP OF SEG0 OF CPF NOT = "0" AND EXP-DAT-CMP OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EXP-DAT-CMP-2 TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EXP-DAT-PRD OF SEG0 OF CPF < 0 OR EXP-DAT-PRD OF SEG0 OF CPF > 600 ) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EXP-DAT-PRD TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( SRVC-CDE-CHK-FLG OF SEG0 OF CPF NOT = "Y" AND SRVC-CDE-CHK-FLG OF SEG0 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-SVC-CDE-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( SVC-CDE-ACT-TBL-IDX OF SEG0 OF CPF NOT = "1" AND SVC-CDE-ACT-TBL-IDX OF SEG0 OF CPF NOT = "2" AND SVC-CDE-ACT-TBL-IDX OF SEG0 OF CPF NOT = "3" AND SVC-CDE-ACT-TBL-IDX OF SEG0 OF CPF NOT = "4") ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-ACT-TBL-IDX TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749c0K 480-DATA-CHECK-SCREEN6 SIV-CHK-TYP-CVV-CAVV-EAF-AAV-C AND #REPLACE 00749c18/00749c18 OFFSET 0 480-DATA-CHECK-SCREEN6 IF SIV-ATTEMPT-DISP NOT = SPACES AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-CONT-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-A-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-8-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-A-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-A-C ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-ATTEMPT-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749XIs 480-DATA-CHECK-SCREEN10 480-DATA-CHECK-SCREEN8. IF ( APPRV-CDE-LGTH OF SEG2 OF CPF NOT = 2 AND APPRV-CDE-LGTH OF SEG2 OF CPF NOT = 3 AND APPRV-CDE-LGTH OF SEG2 OF CPF NOT = 4 AND APPRV-CDE-LGTH OF SEG2 OF CPF NOT = 5 AND APPRV-CDE-LGTH OF SEG2 OF CPF NOT = 6 ) ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-APPRV-CDE-LGTH TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( RECUR-PMNT-EXP-CHK-IND OF SEG2 OF CPF NOT = "0" AND RECUR-PMNT-EXP-CHK-IND OF SEG2 OF CPF NOT = "1" AND RECUR-PMNT-EXP-CHK-IND OF SEG2 OF CPF NOT = "2" AND RECUR-PMNT-EXP-CHK-IND OF SEG2 OF CPF NOT = "9" ) ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-RECUR-PMNT-EXP TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( FORCE-ONL-CNT OF SEG2 OF CPF < 0 OR FORCE-ONL-CNT OF SEG2 OF CPF > 99 ) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-FORCE-ONL-CNT TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DFT-CAPTR-ISS NOT NUMERIC OR ( DFT-CAPTR-ISS OF SEG2 OF CPF < 0 AND DFT-CAPTR-ISS OF SEG2 OF CPF > 99 ) ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-DRT-CAPTR-ISS TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( RTRN-BAL OF SEG0 OF CPF NOT = "0" AND RTRN-BAL OF SEG0 OF CPF NOT = "1" AND RTRN-BAL OF SEG0 OF CPF NOT = "2" ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-RTRN-BAL TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749XLk 480-DATA-CHECK-SCREEN11 MOVE 14 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XLu 480-DATA-CHECK-SCREEN11 MOVE 15 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XM3 480-DATA-CHECK-SCREEN11 MOVE 16 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XMF 480-DATA-CHECK-SCREEN11 MOVE "ISSUER APPL DATA FORMAT MUST BE 0,1,2 OR 3" #ADD 00749XO1 480-DATA-CHECK-SCREEN14 IF CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 100 ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE CHK-DEP-CR-PERCENT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 100 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE CSF-CHK-DEP-CR-PERCENT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 0 IF DEP-CR-LMT OF SEG1 OF CPF > 0 IF CR-PER-CHK-DEP-LMT OF SEG18 > DEP-CR-LMT OF SEG1 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE DEP-CR-MAX-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 0 IF DEP-CR-LMT OF SEG1 OF CPF > 0 IF CR-PER-CSF-CHK-DEP-LMT OF SEG18 > DEP-CR-LMT OF SEG1 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE DEP-CR-MAX-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 0 IF CR-PER-CHK-DEP-LMT OF SEG18 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE CHK-DEP-MAX-CR-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CSF-CHK-DEP-CR-PERCENT OF SEG18 OF CPF > 0 IF CR-PER-CSF-CHK-DEP-LMT OF SEG18 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE CSF-CHK-DEP-MAX-CR-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01526 999-SAVE-LAST-FM COPY AUDIT-CODE-4096-EXT OF "=BASRC_BACOUTLS". #DELETE 01526U00 / L 999-SAVE-LAST-FM #ENDSCN = BA07147 !*CMP2.13 10/14/03 SVKEYDS 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVKEYDS SVKEYDS 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVKEYDS SVKEYDS 6001 * ******************************************************************************** #SCN = BA07148 , FILEID = SVKEYDS #VOLUME = $ROOK.BA60AFT #FILE = SVKEYDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00039A07 * 15OCT2003 rkk/299 * Symptom: SPDH DUKPT Support via TSS enhancement. * Problem: None. * Fix: Removed key hex check if TSS is configured. * Changed COPY statements where the file's define * name started after column 35. The file's define * name was moved to the next line. * Procs modified: * 480-DATA-CHECK-SCREEN1 * 909-RETRIEVE-LCONF-ASSIGNS * Procs added: * 480-VERIFY-KEY-LOCATOR-1 * 480-VERIFY-KEY-LOCATOR-2 * Dependency: Apply fix to SVKEYDS and remake. Refer to * BA60UD07.SCNDKTSS for a complete listing of * dependencies. * Reference: WO #020707-06, #020707-07 #ADD 00105 ENVIRONMENT DIVISION COPY FILE-CONTROL-OMF OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-OMF-TEMPLATE OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-LCONF OF "=BASRC_BACOUTLS". #DELETE 00106 /00108 ENVIRONMENT DIVISION #ADD 00149 DATA DIVISION COPY OMF OF "=BASRC_BADDLCOB". #DELETE 00150 DATA DIVISION #ADD 00151 DATA DIVISION COPY FD-OMF-TEMPLATE OF "=BASRC_BACOUTLS". #DELETE 00152 DATA DIVISION #ADD 00156 DATA DIVISION COPY LCONF OF "=BASRC_BADDLCOB". #DELETE 00157 DATA DIVISION #ADD 00163A00 DATA DIVISION COPY MSG-ERR-EXT OF "=BASRC_BADDLCOB". COPY MSG-FILE-MAINT-1024-EXT OF "=BASRC_BADDLCOB". #DELETE 00163A01/00163A02 DATA DIVISION #ADD 00181 DATA DIVISION COPY KEYD OF "=BASRC_BADDLCOB". #DELETE 00182 DATA DIVISION #REPLACE 00212 /00212 OFFSET 0 DATA DIVISION 01 WS-CHAR-CHECK. 05 WS-CHAR-1ST-HALF PIC X(16). 05 WS-CHAR-2ND-HALF PIC X(16). #REPLACE 00214 DATA DIVISION 05 WS-CHECK-R OCCURS 32 TIMES PIC X. #ADD 00215 DATA DIVISION 01 WS-DRVN-KEY-ERR-1. 05 FILLER PIC X(33) VALUE "DERIVATION KEY MAY NOT BE SPACES ". 05 FILLER PIC X(26) VALUE "WHEN SECURE-DEV-TYP IS TSS". 01 WS-DRVN-KEY-ERR-2. 05 FILLER PIC X(40) VALUE "SECOND HALF OF DERIV KEY MUST BE SPACES ". 05 FILLER PIC X(26) VALUE "WHEN SECURE-DEV-TYP IS TSS". #ADD 00255 DATA DIVISION COPY WS-TIMESTAMP-CONTIME OF "=BASRC_BACOUTLS". #DELETE 00256 DATA DIVISION #ADD 00287 DATA DIVISION 05 SECURE-DEV-TYP PIC X(4). 88 SECURE-DEV-TYP-IS-TSS VALUE "TSS ". #ADD 00323A00 DATA DIVISION COPY WS-AUDIT-CALL-EXT OF "=BASRC_BACOUTLS". #DELETE 00323A01 DATA DIVISION #ADD 00325 DATA DIVISION COPY TRANSACTION-DEFINITIONS OF "=BASRC_BACOUTLS". #DELETE 00326 DATA DIVISION #ADD 00329 DATA DIVISION COPY SERVER-ERROR-MESSAGES OF "=BASRC_BACOUTLS". 01 LCONF-PARAM-ERR. 05 LCONF-PARAM-MSG PIC X(37) VALUE "ERROR WHILE RETRIEVING LCONF PARAM - ". 05 LCONF-PARAM-IN-ERR PIC X(33). #DELETE 00330 DATA DIVISION #ADD 00337 DATA DIVISION COPY FILE-ERRORS OF "=BASRC_BACOUTLS". #DELETE 00338 DATA DIVISION #ADD 00361A00 DECLARATIVES COPY OMF-ERR-DECLARATIVE-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 00361A01 DECLARATIVES #ADD 00365 DECLARATIVES COPY LCONF-FILE-ERROR-DECLARATIVE OF "=BASRC_BACOUTLS". #DELETE 00366 DECLARATIVES #ADD 00369A00 DECLARATIVES COPY BUILD-FILE-ERROR-EXT OF "=BASRC_BACOUTLS". #DELETE 00369A01 DECLARATIVES #ADD 00381A00 DECLARATIVES COPY SERVER-SKEL-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 00381A01 DECLARATIVES #ADD 00736 480-DATA-CHECK-SCREEN1 IF SECURE-DEV-TYP-IS-TSS PERFORM 480-VERIFY-KEY-LOCATOR-1 ELSE PERFORM 480-VERIFY-KEY-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. #DELETE 00737 /00738 480-DATA-CHECK-SCREEN1 #REPLACE 00739 /00745 480-DATA-CHECK-SCREEN1 IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE END-IF END-IF. #ADD 00749 480-DATA-CHECK-SCREEN1 IF SECURE-DEV-TYP-IS-TSS PERFORM 480-VERIFY-KEY-LOCATOR-2 ELSE #REPLACE 00750 /00751 480-DATA-CHECK-SCREEN1 PERFORM 480-VERIFY-KEY-DATA VARYING I FROM 17 BY 1 UNTIL I > 32. #ADD 00762 480-DATA-CHECK-SCREEN1 IF NOT SECURE-DEV-TYP-IS-TSS #REPLACE 00763 /00764 480-DATA-CHECK-SCREEN1 PERFORM 480-VERIFY-KEY-DATA VARYING I FROM 1 BY 1 UNTIL I > 4. #ADD 00773 480-VERIFY-KEY-DATA 480-VERIFY-KEY-LOCATOR-1. IF WS-CHAR-1ST-HALF = SPACES MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA MOVE "Y" TO BAD-FLAG IF MOVE-MESSAGE MOVE WS-DRVN-KEY-ERR-1 TO WS-ERR-TXT END-IF END-IF. 480-VERIFY-KEY-LOCATOR-2. IF WS-CHAR-2ND-HALF NOT = SPACES MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA MOVE "Y" TO BAD-FLAG IF MOVE-MESSAGE MOVE WS-DRVN-KEY-ERR-2 TO WS-ERR-TXT END-IF END-IF. #ADD 01169 909-RETRIEVE-LCONF-ASSIGNS MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "SECURE-DEV-TYP" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO SECURE-DEV-TYP MOVE "A" TO ITEM-TYP OF LCONF MOVE "KEYD" TO ITEM-NAME OF LCONF MOVE SPACES TO KEYD-FNAME-HOLD READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE FILE-NAME OF LCONF TO KEYD-FNAME-HOLD CLOSE LCONF-FILE ELSE MOVE "KEYD" TO LCONF-ASSIGN-IN-ERR MOVE LCONF-ASSIGN-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR PERFORM 100-LCONF-ERROR-TEXT-FILL CLOSE LCONF-FILE END-IF ELSE MOVE "SECURE-DEV-TYP" TO LCONF-PARAM-IN-ERR MOVE LCONF-PARAM-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR PERFORM 100-LCONF-ERROR-TEXT-FILL CLOSE LCONF-FILE END-IF #DELETE 01170 /01191 909-RETRIEVE-LCONF-ASSIGNS #ADD 01524A00 999-SAVE-LAST-FM COPY AUDIT-CODE-1024-EXT OF "=BASRC_BACOUTLS". #DELETE 01524A01 999-SAVE-LAST-FM #ENDSCN = BA07148 !*CMP2.13 10/20/03 BAAFTM 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTM BAAFTM 6005 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTM BAAFTM 6005 * ******************************************************************************** #SCN = BA07197 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6005 #NEWVERSION = 6006 #ADD 0088D0H # 15OCT2003 BEM/348 # Symptom: BASE24 Surcharging Enhancements # Problem: None. # Fix: Added statements to include baaft_rqtsrfxm and # baaft_svtsrftm. # Dependency: Restore RQTSRFXM, RQTSRFSS, RQTSRFXS, SVTSRFTM, # SVTSRFTG, SVTSRFTS, AND BA60DDL.DDLFTSRF. Apply # fix to BAAFTM, BAAFTMM, CCAFMLM and run MAKE. # Refer to BA60UD07.SCNSRCH for a complete listing # of dependencies. # Reference: WO #020807-03 #ADD 0183 !include $(baaft_rqtsrfxm) !include $(baaft_svtsrftm) #ENDSCN = BA07197 !*CMP2.13 10/20/03 BAAFTMM 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6003 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTMM BAAFTMM 6003 * ******************************************************************************** #SCN = BA07198 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6003 #NEWVERSION = 6004 #ADD 0095C0N # 15OCT2003 BEM/348 # Symptom: BASE24 Surcharging Enhancements # Problem: None. # Fix: Added the following defines: # baaft_rqtsrfxm # baaft_rqtsrfxo # baaft_rqtsrfxs # baaft_rqtsrfss # baaft_svtsrf # baaft_svtsrftm # baaft_svtsrfts # Dependency: Restore RQTSRFXM, RQTSRFSS, RQTSRFXS, SVTSRFTM, # SVTSRFTG, SVTSRFTS, AND BA60DDL.DDLFTSRF. Apply # fix to BAAFTM, BAAFTMM, CCAFMLM and run MAKE. # Refer to BA60UD07.SCNSRCH for a complete listing # of dependencies. # Reference: WO #020807-03 #ADD 0358 baaft_rqtsrfss = \argus.$rook.ba60aft.rqtsrfss baaft_rqtsrfxm = \argus.$rook.ba60aft.rqtsrfxm baaft_rqtsrfxo = \argus.$rook.ba60aft.rqtsrfxo baaft_rqtsrfxs = \argus.$rook.ba60aft.rqtsrfxs baaft_svtsrfte = \argus.$rook.ba60aft.svtsrfte baaft_svtsrftg = \argus.$rook.ba60aft.svtsrftg baaft_svtsrftm = \argus.$rook.ba60aft.svtsrftm baaft_svtsrfto = \argus.$rook.ba60aft.svtsrfto baaft_svtsrfts = \argus.$rook.ba60aft.svtsrfts #ENDSCN = BA07198 !*CMP2.13 10/20/03 CCAFMLM 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.CCAFMLM CCAFMLM 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.CCAFMLM CCAFMLM 6001 * ******************************************************************************** #SCN = BA07199 , FILEID = CCAFMLM #VOLUME = $ROOK.BA60AFT #FILE = CCAFMLM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6001 #NEWVERSION = 6002 #ADD 0042A0B # 15OCT2003 BEM/348 # Symptom: BASE24 Surcharging Enhancements # Problem: None. # Fix: Added TSRF compile dependency and bind step. # Dependency: Restore RQTSRFXM, RQTSRFSS, RQTSRFXS, SVTSRFTM, # SVTSRFTG, SVTSRFTS, AND BA60DDL.DDLFTSRF. Apply # fix to BAAFTM, BAAFTMM, CCAFMLM and run MAKE. # Refer to BA60UD07.SCNSRCH for a complete listing # of dependencies. # Reference: WO #020807-03 #ADD 0061 $(baaft_svtsrfto) \ #ADD 0114 = #APPEND :var add * from $(baaft_svtsrfto), delete = #APPEND :var delete code cntl_util_srv_0009 = #APPEND :var select refer ( cntl_util_srv_0009 to tsrf_entry ) = #ENDSCN = BA07199 !*CMP2.13 10/20/03 MEGATBL 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.MEGATBL MEGATBL 6005 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.MEGATBL MEGATBL 6005 * ******************************************************************************** #SCN = BA07200 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00046C08 * 15OCT2003 BEM/348 * Symptom: BASE24 Surcharging Enhancements * Problem: None. * Fix: Added TSRF to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fix to MEGATBL and run MAKE. * Refer to BA60UD07.SCNSRCH for a complete listing * of dependencies. * Reference: WO #020807-03 #ADD 00125 "TSRF", #ENDSCN = BA07200 !*CMP2.13 10/20/03 SVMHLPS 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6009 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVMHLPS SVMHLPS 6009 * ******************************************************************************** #SCN = BA07201 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00101I0A * 15OCT2003 BEM/348 * Symptom: BASE24 Surcharging Enhancements * Problem: None. * Fix: Added TSRF to the BASE-TABLE. Incremented * BASE-ENTRY and BASE-ENTRIES-L. * Dependency: Apply fix to SECTBL and SVMHLPS and run MAKE. * Refer to BA60UD07.SCNSRCH for a complete listing * of dependencies. * Reference: WO #020807-03 #ADD 00197D02 DATA DIVISION 05 FILLER PIC X(31) VALUE "TSRFTRAN CODE/SUBTYPE RELATION ". #REPLACE 00203H01 DATA DIVISION 05 BASE-ENTRY OCCURS 32 TIMES. #REPLACE 00206H01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 32. #ENDSCN = BA07201 !*CMP2.13 10/20/03 SVTCFTS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVTCFTS SVTCFTS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVTCFTS SVTCFTS 6000 * ******************************************************************************** #SCN = BA07202 , FILEID = SVTCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVTCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00042 ! ! 15OCT2003 BEM/348 ! Symptom: BASE24 Surcharging Enhancements ! Problem: None. ! Fix: Added logic to do reverse approximate positioning ! when reading the TCF. ! Procs added: ! tcf_bh_view_nxt_prev ! tcf_bha_read_nxt_prev ! Dependency: Apply fix to OK60AFM.AFMSVTG and SVTCFTS and run Make. ! Refer to BA60UD07.SCNSRCH for a complete listing ! of dependencies. ! Reference: WO #020807-03 #ADD 00544 TCF_B_RQST_PROCESS txn_view_nxt_prev_d -> begin call tcf_bh_view_nxt_prev( msg, tcf ); end; #ADD 01412 TCF_BG_EXISTENCE_VRFY ?section tcf_bh_view_nxt_prev ?page "tcf_bh_view_nxt_prev" !##################################################################### !# # !# tcf_bc_view_nxt_prev # !# # !# This procedure governs the read next functionality of the TCF # !# file. It locates and opens the TCF-specific file and reads # !# the previous next record facilitating reading the TCF # !# backwards. # !# # !# INPUT PARAMETERS: # !# msg_addr - Address of the request message structure. # !# tcf_addr - Address of the TCF record. # !# # !# OUTPUT PARAMETERS: # !# msg_addr - Address of the reply message tagged with # !# retrieved record if read succeeds, or filled # !# with error text on failure. # !# # !# RETURN: # !# # !##################################################################### proc tcf_bh_view_nxt_prev( msg_addr, tcf_addr ); int .msg_addr; int .tcf_addr; begin int .msg( msg_file_maint_1024_ext_def ) := @msg_addr; int .tcf( tcf_def ) := @tcf_addr; ! ! Retrieve the previous next TCF record ! if tcf_util_data_chk( msg, tcf ) then begin call tcf_bha_read_nxt_prev( msg, tcf ); end; end; ! of proc tcf_bh_view_nxt_prev ?section tcf_bha_read_nxt_prev ?page "tcf_bha_read_nxt_prev" !##################################################################### !# # !# tcf_bha_read_nxt_prev # !# # !# This procedure retrieves the TCF record which preceeds the # !# given primary key on the request message. It uses the reverse # !# approximate keypositioning mode on calling the read utility. # !# # !# INPUT PARAMETERS: # !# msg_addr - Address of the request message structure. # !# tcf_addr - Address of the TCF record. # !# # !# OUTPUT PARAMETERS: # !# msg_addr - Address of the reply message tagged with # !# retrieved record if read succeeds, or filled # !# with error text on failure. # !# RETURN: # !# true - File i/o and key conversions successful. # !# false - File i/o and key conversions failed. # !# # !##################################################################### int proc tcf_bha_read_nxt_prev( msg_addr, tcf_addr ); int .msg_addr; int .tcf_addr; begin int err; int .msg( msg_file_maint_1024_ext_def ) := @msg_addr; int .tcf( tcf_def ) := @tcf_addr; err := false; if not tcf_util_file_read( msg, tcf, kp_rvrs_approx_skip_l, rm_read_l, err, eof_l, err_read_next_l ) then begin return false; end; if err then begin return false; end; call tcf_util_look_up( msg, tcf ); call tcf_util_reply_frmt( msg, tcf, rec_read_l ); return true; end; ! of proc tcf_bha_read_nxt_prev #ADD 01509 TCF_UTIL_DATA_CHK txn_view_next_d, txn_view_nxt_prev_d -> #DELETE 01510 TCF_UTIL_DATA_CHK #ENDSCN = BA07202 !*CMP2.13 10/23/03 BAAFTMM 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6004 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.BAAFTMM BAAFTMM 6004 * ******************************************************************************** #SCN = BA07221 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6004 #NEWVERSION = 6005 #ADD 0095D0H # 15OCT2003 alr/455 # Symptom: Re-architecture modifications to minimize Make # dependencies. # Problem: The PROD-TKN-TABLE is only sourced in by the # RQTKNS file. Changes to this table caused # unnecessary rebuilding of objects. # Fix: Moved the table to the new BAAFT_COBTKN file. # Added baaft_cobtkn define. # Dependency: Restore COBTKN. Apply fix to BAAFTMM, RQTKNM, RQTKNS # and run MAKE. # Reference: Case #369664-04 #ADD 0104 baaft_cobtkn = \argus.$rook.ba60aft.cobtkn #ENDSCN = BA07221 !*CMP2.13 10/23/03 RQTKNM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQTKNM RQTKNM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQTKNM RQTKNM 6000 * ******************************************************************************** #SCN = BA07222 , FILEID = RQTKNM #VOLUME = $ROOK.BA60AFT #FILE = RQTKNM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0071 # 15OCT2003 alr/455 # Symptom: Re-architecture modifications to minimize Make # dependencies. # Problem: The PROD-TKN-TABLE is only sourced in by the # RQTKNS file. Changes to this table caused # unnecessary rebuilding of objects. # Fix: Moved the table to the new COBTKN file. # Changed basrc_cobnames define to baaft_cobtkn. # Dependency: Restore COBTKN. Apply fix to BAAFTMM, COBNAMES, # RQTKNM, RQTKNS and run MAKE. # Reference: Case #369664-04 #REPLACE 0094 $(baaft_cobtkn) # 0094 #ENDSCN = BA07222 !*CMP2.13 10/23/03 RQTKNS 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQTKNS RQTKNS 6009 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQTKNS RQTKNS 6009 * ******************************************************************************** #SCN = BA07223 , FILEID = RQTKNS #VOLUME = $ROOK.BA60AFT #FILE = RQTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00021I0A * 15OCT2003 alr/455 * Symptom: Re-architecture modifications to minimize Make * dependencies. * Problem: The PROD-TKN-TABLE is only sourced in by the * RQTKNS file. Changes to this table caused * unnecessary rebuilding of objects. * Fix: Changed references of COBNAMES to COBTKN. * Dependency: Restore COBTKN. Apply fix to BAAFTMM, COBNAMES, * RQTKNM, RQTKNS and run Make. * Reference: Case #369664-04 #REPLACE 00085 DATA DIVISION * number of tokens that were added to the TKN Table in COBTKN. #REPLACE 00090 DATA DIVISION * COBTKN. #REPLACE 00096H02 DATA DIVISION COPY PROD-TKN-TABLE OF =BAAFT_COBTKN. #REPLACE 00200 DATA DIVISION * COBTKN. #REPLACE 00667 290-DISPLAY-DEFAULTS PERFORM 595-GET-COBTKN-TBL VARYING I FROM 1 BY 1 #REPLACE 01152 481-CHECK-OVERLAY-4 * If new tokens were added to/deleted from the COBTKN table #REPLACE 01752 /01753 595-LOCK-SCREEN MOVE "DUPLICATE IDS IN TKN-TABLE IN COBTKN. CORRECT AND RECOM - "PILE TKN REQ" #REPLACE 01757 /01758 595-LOCK-SCREEN MOVE "INVALID IDS IN TKN-TABLE IN COBTKN. CORRECT AND RECOMP - "ILE TKN REQ" #REPLACE 01843 595-GET-COBNAMES-TBL 595-GET-COBTKN-TBL. #REPLACE 01872 595-ORDR * been added to or deleted from the TKN-TABLE in COBTKN #ENDSCN = BA07223 !*CMP2.13 10/23/03 SVUAFS 6015 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVUAFS SVUAFS 6015 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVUAFS SVUAFS 6015 * ******************************************************************************** #SCN = BA07224 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6015 #NEWVERSION = 6016 #ADD 00017O0n * 15OCT2003 ALP/455 * Symptom: Enhanced preauth holds are being removed from the * CAF and the UAF with the incorrect length. * Problem: The servers add 76 characters for every enhanced * preauth instead of 78. * Fix: Add 78 instead of 76 to the segment length for * enhanced preauths. * Modified procs: * 315-CHECK-ENHNC-PREV-ON-HOLD * 315-CHECK-ENHNC-ON-HOLD * Dependency: Apply fixes to SVCAFS, SVUAFS and run Make. * Reference: CASE #368821 #REPLACE 01058O0q 315-CHECK-ENHNC-PREV-ON-HOLD ADD 78 TO CALCULATED-SEG25-LGTH. #REPLACE 01058O0x 315-CHECK-ENHNC-ON-HOLD ADD 78 TO CALCULATED-SEG25-LGTH. #ENDSCN = BA07224 !*CMP2.13 11/03/03 SVLNCFTS6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVLNCFTS SVLNCFTS 6005 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVLNCFTS SVLNCFTS 6005 * ******************************************************************************** #SCN = BA07259 , FILEID = SVLNCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00043E0E ! 03NOV2003 jra/24 ! Symptom: Undefined problem with ERF server due to an LCONF param ! starting with a space. ! Problem: No code existed in the LNCF server to remove leading ! spaces from the LNCF Item Text field as is done with ! other LNCF fields. ! Fix: Added code to remove leading spaces from LNCF Item Text ! field. ! Modified procs: lncf_util_data_chk_param ! Dependency: Apply fix to SVLNCFTS and run MAKE. ! Reference: Case #370524 #ADD 03846 LNCF_UTIL_DATA_CHK_PARAM ! ! Eliminate leading spaces from item text ! call lncf_util_spaces_eliminate( lncf.lconf_item.item_txt.byte[2], $len( lncf.lconf_item.item_txt ) - 2 ); #ENDSCN = BA07259 !*CMP2.13 11/05/03 RQKEYAS 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYAS RQKEYAS 6008 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYAS RQKEYAS 6008 * ******************************************************************************** #SCN = BA07266 , FILEID = RQKEYAS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00042E08 * 07NOV2003 ahs/3152 clr/451 * Symptom: Pressing F8 to reset the screen data does not * clear the GRP field. The requester rejects * any operations because the GRP field is blank * but the GRP field displayed is not blank. * Problem: The requester did not clear the working * storage copy of the GRP field. * Fix: Added code to clear the working storage copy * of the GRP field. * Modified: 595-CLEAR-DATA. * This is a partial retrofit of this fix. The * rest was done independently as BA05077. * Dependency: Apply fix to RQKEYAS and run MAKE. * Reference: Retro of BA5B708 for Case #352684. #ADD 01176C05 595-CLEAR-DATA MOVE SPACES TO WS-GRP. #ENDSCN = BA07266 !*CMP2.13 11/06/03 COBTKN 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.COBTKN COBTKN 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.COBTKN COBTKN 6000 * ******************************************************************************** #SCN = BA07268 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #REPLACE 00057 OFFSET 1/00057 OFFSET 1 * 06NOV2003 DLM/401. * Symptom: Added PRM Real Time token. * Problem: None. * Fix: Added two entries to the PROD-TKN-TABLE for PRM * Real Time token processing: * ATM53 - ATM PRM RT TOKEN * POS60 - POS PRM RT TOKEN * Dependency: Apply fixes to COBTKN, BATKNCVS, BATKNID, and * BATKNDDL. Then rrun make. * Reference: WO #000070-01. ?SECTION PROD-TKN-TABLE #ADD 00195 05 ATM53 PIC X(29) VALUE "2901ATM PRM RT TOKEN ". 05 POS60 PIC X(29) VALUE "2902POS PRM RT TOKEN ". #ADD 00197 02 WS-PROD-TKN-TBL OCCURS 131 TIMES. #DELETE 00198 #ADD 00201 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 131. #DELETE 00202 / L #ENDSCN = BA07268 !*CMP2.13 11/10/03 SVERFS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVERFS SVERFS 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVERFS SVERFS 6000 * ******************************************************************************** #SCN = BA07270 , FILEID = SVERFS #VOLUME = $ROOK.BA60AFT #FILE = SVERFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00045 * 10NOV2003 jfu/543 * Symptom: Unable to read through records where the currency * code no longer exists in the COBNAMES file. * Problem: Both the read and read-next function would not * allow records to be displayed where the currency * code no longer exists in the COBNAMES file. * Fix: When reading a ERF record or reading through ERF * records, ignore the error returned on the currency * code check and display the appropriate record. * Changed COPY statements where the file's define * name started after column 35. The file's define * name was moved to the next line. * Paragraph modified: 200-READ-RCD. * 600-READ-NEXT-RCD. * Dependency: Apply fix to SVERFS and run Make. * Reference: Case #370746 #REPLACE 00111 /00111 OFFSET 0 ENVIRONMENT DIVISION COPY FILE-CONTROL-OMF OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-OMF-TEMPLATE OF "=BASRC_BACOUTLS". COPY FILE-CONTROL-LCONF OF "=BASRC_BACOUTLS". #DELETE 00112 /00113 ENVIRONMENT DIVISION #REPLACE 00246 /00246 OFFSET 0 DATA DIVISION COPY FD-OMF-TEMPLATE OF "=BASRC_BACOUTLS". #REPLACE 00259 /00259 OFFSET 0 DATA DIVISION COPY MSG-FILE-MAINT-1024-EXT OF "=BASRC_BADDLCOB". #REPLACE 00277 /00278 DATA DIVISION #REPLACE 00308 /00308 OFFSET 0 DATA DIVISION COPY WS-TIMESTAMP-CONTIME OF "=BASRC_BACOUTLS". #REPLACE 00368 /00368 OFFSET 0 DATA DIVISION COPY TRANSACTION-DEFINITIONS OF "=BASRC_BACOUTLS". #REPLACE 00371 /00371 OFFSET 0 DATA DIVISION COPY SERVER-ERROR-MESSAGES OF "=BASRC_BACOUTLS". #REPLACE 00410 /00410 OFFSET 0 UA-ERF-FILE-PROC COPY OMF-ERR-DECLARATIVE-1024-EXT OF "=BASRC_BACOUTLS". #REPLACE 00414 /00414 OFFSET 0 UA-ERF-FILE-PROC COPY LCONF-FILE-ERROR-DECLARATIVE OF "=BASRC_BACOUTLS". #REPLACE 00418 /00418 OFFSET 0 UA-ERF-FILE-PROC COPY BUILD-FILE-ERROR-EXT OF "=BASRC_BACOUTLS". #REPLACE 00430 /00430 OFFSET 0 UA-ERF-FILE-PROC COPY SERVER-SKEL-1024-EXT OF "=BASRC_BACOUTLS". #ADD 00497 200-READ-RCD MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE "N" TO ERROR-FLAG #ADD 00726 600-READ-NEXT-RCD MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE "N" TO ERROR-FLAG #REPLACE 01417 999-SAVE-LAST-FM COPY AUDIT-CODE-1024-EXT OF "=BASRC_BACOUTLS". #ENDSCN = BA07270 !*CMP2.13 11/12/03 RQECFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQECFM RQECFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQECFM RQECFM 6000 * ******************************************************************************** #SCN = BA07289 , FILEID = RQECFM #VOLUME = $ROOK.BA60AFT #FILE = RQECFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0058 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-001 #DELETE 0079 #ENDSCN = BA07289 !*CMP2.13 11/12/03 RQEMFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQEMFM RQEMFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQEMFM RQEMFM 6000 * ******************************************************************************** #SCN = BA07290 , FILEID = RQEMFM #VOLUME = $ROOK.BA60AFT #FILE = RQEMFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0058 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-002 #DELETE 0079 #ENDSCN = BA07290 !*CMP2.13 11/12/03 RQKEYAM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYAM RQKEYAM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYAM RQKEYAM 6000 * ******************************************************************************** #SCN = BA07291 , FILEID = RQKEYAM #VOLUME = $ROOK.BA60AFT #FILE = RQKEYAM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0031 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-003 #DELETE 0053 #ENDSCN = BA07291 !*CMP2.13 11/12/03 RQKEYDM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQKEYDM RQKEYDM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQKEYDM RQKEYDM 6000 * ******************************************************************************** #SCN = BA07292 , FILEID = RQKEYDM #VOLUME = $ROOK.BA60AFT #FILE = RQKEYDM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0046 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-004 #DELETE 0070 #ENDSCN = BA07292 !*CMP2.13 11/12/03 RQMARFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQMARFM RQMARFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQMARFM RQMARFM 6000 * ******************************************************************************** #SCN = BA07293 , FILEID = RQMARFM #VOLUME = $ROOK.BA60AFT #FILE = RQMARFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0030 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-005 #REPLACE 0051 $(basrc_bacoutls) # 0051 #DELETE 0052 #ENDSCN = BA07293 !*CMP2.13 11/12/03 RQSECM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQSECM RQSECM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQSECM RQSECM 6000 * ******************************************************************************** #SCN = BA07294 , FILEID = RQSECM #VOLUME = $ROOK.BA60AFT #FILE = RQSECM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0031 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this requester object. # Problem: The requester does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-006 #REPLACE 0051 $(basrc_bacoutls) # 0051 #DELETE 0052 #ENDSCN = BA07294 !*CMP2.13 11/12/03 SVARFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVARFM SVARFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVARFM SVARFM 6000 * ******************************************************************************** #SCN = BA07295 , FILEID = SVARFM #VOLUME = $ROOK.BA60AFT #FILE = SVARFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0025 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this server object. # Problem: The server does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-007 #REPLACE 0048 $(basrc_bautil) # 0048 #DELETE 0049 #ENDSCN = BA07295 !*CMP2.13 11/12/03 SVECFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVECFM SVECFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVECFM SVECFM 6000 * ******************************************************************************** #SCN = BA07296 , FILEID = SVECFM #VOLUME = $ROOK.BA60AFT #FILE = SVECFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0053 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this server object. # Problem: The server does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-008 #DELETE 0077 #ENDSCN = BA07296 !*CMP2.13 11/12/03 SVERFM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVERFM SVERFM 6000 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVERFM SVERFM 6000 * ******************************************************************************** #SCN = BA07297 , FILEID = SVERFM #VOLUME = $ROOK.BA60AFT #FILE = SVERFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0040 # 12NOV2003 JMS/583 # Symptom: Changes to cobnames causes the unnecessary rebuilding of # this server object. # Problem: The server does not use information from cobnames, so # there should not be a dependency on the COBNAMES file. # Fix: Removed the cobnames dependency. # Dependency: Apply fix and run MAKE. # Reference: Case #361464-009 #DELETE 0064 #ENDSCN = BA07297 !*CMP2.13 11/20/03 COBTKN 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.COBTKN COBTKN 6001 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.COBTKN COBTKN 6001 * ******************************************************************************** #SCN = BA07323 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #REPLACE 00057A0C OFFSET 1/00057A0C OFFSET 1 * 20NOV2003 DLM/401. * Symptom: There is a conflict with token ID '29'. * Problem: Token ID '29' was selected for the PRM Real Time * Token. This token ID is already in use by the * eCheck product. * Fix: Changed the two entries in the PROD-TKN-TABLE * for PRM Real Time token processing from 29 to * 32: * ATM53 - ATM PRM RT TOKEN * POS60 - POS PRM RT TOKEN * Dependency: Apply fixes to COBTKN, BATKNID and DDLBATKN and * run Make. * Reference: Case #371864 **************************************************************** ?SECTION PROD-TKN-TABLE #REPLACE 00195A01/00195A02 05 ATM53 PIC X(29) VALUE "3201ATM PRM RT TOKEN ". 05 POS60 PIC X(29) VALUE "3202POS PRM RT TOKEN ". #ENDSCN = BA07323 !*CMP2.13 12/18/03 SECTBL 6017 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6017 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6017 * ******************************************************************************** #SCN = BA08022 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6017 #NEWVERSION = 6018 #ADD 00268Q0l * 17DEC2003 BOURNEP * Symptom: IPCF Screen 2 refers to Acquirer Processing Code * instead of Issuer Processing Code. * Problem: As above. * Fix: Change Acquirer to Issuer. * Dependency: Apply fix to SECTBL and run MAKE. * Reference: Case #372487 #ADD 00599 05 IPCF2 PIC X(35) VALUE "IPCF020000ISSUER PROCESSING CODE ". #DELETE 00600 #ENDSCN = BA08022 !*CMP2.13 01/05/04 SECTBL 6018 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6018 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6018 * ******************************************************************************** #SCN = BA08028 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6018 #NEWVERSION = 6019 #ADD 00268Q0m * 05JAN2004 MAOC * Symptom: Base24-refunds release 3.1 version 5 enhancements. * Problem: None. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA for * RLCT4. * Increased PROD-SCRN-ACC-TABL and PROD-MAX-TABL- * ENTRIES by 1. * Dependency: Apply fixes to SECTBL and re-make SVISECS. * Reference: WO #030420-03 (Period Limits for Refunds Outside * Valid Return Period) #ADD 00740A0E 05 RLCT4 PIC X(35) VALUE "RLCT040019LIMITS CONFIG SCREEN ". #REPLACE 00893Q01 05 PROD-SCRN-ACC-TABL OCCURS 586 TIMES. #REPLACE 00906Q01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 586. #ENDSCN = BA08028 !*CMP2.13 01/09/04 SECTBL 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SECTBL SECTBL 6019 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SECTBL SECTBL 6019 * ******************************************************************************** #SCN = BA08032 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00268S0B * 09JAN2004 KURZENB * Symptom: None. * Problem: Additional screen needed for Merchant Link * interface as part of POS Enhancements. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA for * Merchant Totals File (MTF). * Increased PROD-SCRN-ACC-TABL and PROD-MAX-TABL- * ENTRIES by 1. * Dependency: Apply fix to SECTBL and run MAKE. * Reference: Case #373537 #ADD 00663 05 MTF1 PIC X(35) VALUE "MTF 010202MERCHANT TOTALS ". #REPLACE 00893S01 05 PROD-SCRN-ACC-TABL OCCURS 587 TIMES. #REPLACE 00906S01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 587. #ENDSCN = BA08032 !*CMP2.13 02/04/04 SVCAFS 6037 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.SVCAFS SVCAFS 6037 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.SVCAFS SVCAFS 6037 * ******************************************************************************** #SCN = BA08042 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6037 #NEWVERSION = 6038 #ADD 00013Z09 * 04FEB2004 HEUERTT * Symptom: Wrong field is highlighted when an out of range * numeric value is entered in the TIMES USED PER * PERIOD LIMIT field on screen 8. * Problem: The correct error message is displayed but the * ISSUER TXN PROFILE field is highlighted and has * the flashing cursor. * Fix: The edit checking USE-LMT OF SEG1 = 0 was moving * a value of 8 to the FLD-ID-NUM(ERR-CNT), the * value moved should be 7. * Modified paragraph: 480-CHECK-OVERLAY-8-ATM * Dependency: Apply fix to RQCAFS, SVCAFS and run MAKE. * Reference: Case #373660 #ADD 00972eKc 480-CHECK-OVERLAY-8-ATM MOVE 7 TO FLD-ID-NUM(ERR-CNT) #DELETE 00972eKd 480-CHECK-OVERLAY-8-ATM #ENDSCN = BA08042 !*CMP2.13 02/04/04 RQCAFS 6056 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.RQCAFS RQCAFS 6056 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.RQCAFS RQCAFS 6056 * ******************************************************************************** #SCN = BA08043 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6056 #NEWVERSION = 6057 #ADD 00023&0h * 04FEB2004 HEUERTT * Symptom: Wrong field is highlighted when an out of range * numeric value is entered in the TIMES USED PER * PERIOD LIMIT field on screen 8. * Problem: The correct error message is displayed but the * ISSUER TXN PROFILE field is highlighted and has * the flashing cursor. * Fix: Modified paragraph 480-ERR-FLAG-OV-8 to use a * new paragraph, 480-FLAG-OV-8-FIELD-7, not the * 480-FLAG-OV-DUMMY paragraph to highlight and * set the cursor to the correct field. * Modified paragraph: 480-ERR-FLAG-OV-8. * New paragraph: 480-FLAG-OV-8-FIELD-7. * Dependency: Apply fix to RQCAFS, SVCAFS and run MAKE. * Reference: Case #373660 #ADD 01356y66 480-ERR-FLAG-OV-8 480-FLAG-OV-8-FIELD-7, #DELETE 01356y67 480-ERR-FLAG-OV-8 #ADD 01356y6S 480-FLAG-OV-8-FIELD-8 480-FLAG-OV-8-FIELD-7. TURN TEMP SERROR IN C-USE-LMT-PRD-1. SET NEW-CURSOR AT C-USE-LMT-PRD-1. #ENDSCN = BA08043 !*CMP2.13 02/09/04 COBTKN 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \ARGUS.$ROOK.BA60AFT.COBTKN COBTKN 6002 * * NEW FILE: \ARGUS.$EARL.BA6DAFT.COBTKN COBTKN 6002 * ******************************************************************************** #SCN = BA08046 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00057B0D * 09FEB2004 koeppenk * Symptom: Reversal Amount not backed out of the UAF. * Problem: RTAU/AUTH does not back out all totals when * it receives a 0420 for a transaction it * performed stand-in on. The reason is that the * acquiring process (HISO) doesn't set the * compl^req field in the 0420 correctly. * Fix: Added support for the new Completion Required * token (COMPL-REQ-TKN). Added token id * compl^req^tkn^id^d (BQ). * ATM54 - ATM COMPLETION REQ TOKEN * POS61 - POS COMPLETION REQ TOKEN * Dependency: Apply fixes to COBTKN, BATKNCVS, PSHISOS,PSHISOG, * ATHISOS, ATHISOG, DDLBATKN, BATKNID and run MAKE. * Restore BA60LOGM.ATHISO and BA60LOGM.PSHISO. * Reference: Case #370207. #ADD 00195B03 05 ATM54 PIC X(29) VALUE "BQ01ATM COMPLETION REQ TOKEN ". 05 POS61 PIC X(29) VALUE "BQ02POS COMPLETION REQ TOKEN ". #ADD 00197A00 02 WS-PROD-TKN-TBL OCCURS 133 TIMES. #DELETE 00197A01 #ADD 00201A00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 133. #DELETE 00201A01 #ENDSCN = BA08046 !*CMP2.13 04/28/04 RQICFS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQICFS RQICFS 6028 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQICFS RQICFS 6028 * ******************************************************************************** #SCN = BA08093 , FILEID = RQICFS #VOLUME = $ROOK.BA60AFT #FILE = RQICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00020b0F * 16APR2004 engelk * Symptom: When Enhanced Preauth is turned on in the PITABLE * but Preauth Hold is not, users may not turn * on (set to "Y") PRE-AUTH PURCHASE or * PRE-AUTH PUR COMPL on screen 9 of the ICF. * Problem: Only Segment 23, Preauth Hold was checked within * the PITABLE when determining whether this * transaction type was allowed. When Enhanced * Preauth was added, no check was added for * Segment 26. * Fix: Changed code to allow a "Y" for PRE-AUTH PURCHASE * and PRE-AUTH PUR COMPL if segment 23 or segment * 26 is turned on in the PITABLE. * Modified: 480-DATA-CHECK * Dependency: Apply fix to RQICFS. Run MAKE. * Reference: Case #378300. #ADD 01087A01 480-DATA-CHECK IF ( WS-POS-TRAN(2) = "Y" AND WS-SITE-PROD-IND(23) = "0" AND WS-SITE-PROD-IND(26) = "0" ) #DELETE 01087A02 480-DATA-CHECK #ADD 01087A0C 480-DATA-CHECK IF ( WS-POS-TRAN(3) = "Y" AND WS-SITE-PROD-IND(23) = "0" AND WS-SITE-PROD-IND(26) = "0" ) #DELETE 01087A0D 480-DATA-CHECK #ENDSCN = BA08093 !*CMP2.13 06/21/04 RQECFS 6037 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQECFS RQECFS 6037 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQECFS RQECFS 6037 * ******************************************************************************** #SCN = BA08116 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6037 #NEWVERSION = 6038 #ADD 00019k0J * 17JUN2004 koeppenk * Symptom: SVHF extract does not run automatically. * Problem: ECF - SVHF extract parameters require that the * start/stop date and time on ECF screen 7 be * manually updated. If that does not happen, the * daily extract will extract the same data. * Fix: Modified the code to support automatic SVHF * extract. * Modified the code to initialize the SVHF-STRT-DAT * and SVHF-END-DAT to zeroes instead of spaces. * Modified proc: 400-MOVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fix to SVHFXS, SVHFXG, RQECFS and run Make. * Reference: Retro of SCN BA5P522 for Case #375803 #REPLACE 00152h02 400-MOVE-RECORD MOVE ZEROES TO SVHF-STRT-DAT OF ECF #REPLACE 00152h08 400-MOVE-RECORD MOVE ZEROES TO SVHF-STRT-DAT OF ECF. #REPLACE 00152h0B 400-MOVE-RECORD MOVE ZEROES TO SVHF-END-DAT OF ECF #REPLACE 00152h0H 400-MOVE-RECORD MOVE ZEROES TO SVHF-END-DAT OF ECF. #ADD 00654h0R 480-DATA-CHECK MOVE "START DATE MUST BE NUMERIC AND IN YYMMDD - " FORMAT OR ZEROES" TO ERR-TXT #DELETE 00654h0S/00654h0T 480-DATA-CHECK #ADD 00654h14 480-DATA-CHECK MOVE "END DATE MUST BE NUMERIC AND IN YYMMDD F - "ORMAT OR ZEROES" TO ERR-TXT #DELETE 00654h15/00654h16 480-DATA-CHECK #REPLACE 01090h01/01090h02 595-CLEAR-DATA MOVE ZEROES TO SVHF-STRT-DAT. MOVE ZEROES TO SVHF-END-DAT. #ENDSCN = BA08116 !*CMP2.13 08/03/04 CCAFMLM 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.CCAFMLM CCAFMLM 6002 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.CCAFMLM CCAFMLM 6002 * ******************************************************************************** #SCN = BA08136 , FILEID = CCAFMLM #VOLUME = $ROOK.BA60AFT #FILE = CCAFMLM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6002 #NEWVERSION = 6003 #ADD 0042B0B # 02AUG2004 Heuertt # Symptom: Bind options for INSPECT, SYMBOLS, and SAVEABEND are # set to ON. # Problem: When CCAFMLM is executed, the INSPECT, SYMBOLS, and # SAVEABEND bind options are set to ON. This will over- # ride any global bind options that may have been set. # Fix: Removed the setting of the options to allow control to # be retained by global settings. # Dependency: Apply fix to CCAFMLM. # Reference: Case #383069 #DELETE 0088 /0090 #ENDSCN = BA08136 !*CMP2.13 10/01/04 RQHCFS 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQHCFS RQHCFS 6043 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQHCFS RQHCFS 6043 * ******************************************************************************** #SCN = BA08158 , FILEID = RQHCFS #VOLUME = $ROOK.BA60AFT #FILE = RQHCFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6043 #NEWVERSION = 6044 #ADD 00019q0E * 01OCT2004 frederr * Symptom: TCP/IP stations are being marked up by HISO before * they are connected. * Problem: XPNET will send a '9511' message to a station's * process when that station is started. However, * with TCP/IP the station is not actually started * until a protocol level connection is made. XPNET * will send a '9518' message once this connection is * completed. The '9511' should be ignored. * Fix: Modified the requester to accept '04' for the * protocol type field found on screen 1 of the HCF. * The '04' will be used for the TCP/IP protocol and * allow HISO to ignore XPNET '9511' messages. * Modified sections: 480-DATA-CHECK * 550-DESCR-OVERLAY-1 * Dependency: Apply fix to RQHCFS and BAHISOS. Run MAKE. * Reference: Case #384772. #REPLACE 00343j0Y/00343j0Z 480-DATA-CHECK NOT = "02" AND NOT = "03" AND NOT = "04" #REPLACE 00343G08 480-DATA-CHECK MOVE "PROTOCOL TYPE MUST BE '00' - '04'" TO ERR-TXT #ADD 00568d16 550-DESCR-OVERLAY-1 ELSE IF PROTO-TYP = "04" MOVE "(TCP/IP)" TO WS-PROTO-TYP #ENDSCN = BA08158 !@CMP2.24 10/19/04 COBTKN 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6003 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6003 * ******************************************************************************** #SCN = BA08235 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00057C0H * 15OCT2004 urbanej * Symptom: BASE24-es ATM IFX Device Handler and BASE24-atm * Integration * Problem: None * Fix: Added support for the IFX User Data Token. * Added token * ATM55 - IFX USER DATA TOKEN (09) * Dependency: Apply fix to COBTKN, and run Make. * Refer to BA60UD08.SCNIFX for the complete list of * dependencies. * Reference: WO #030529-01 * * 15OCT2004 ngb * Symptom: New ATM Token for Release 6.0. * Problem: None. * Fix: Added support for new ATM Data1 token. Added token * ID atm^data1^tkn^id^d (AG). * ATM56 - ATM DATA1 TOKEN * Dependency: Apply fix to ATTKNCVS, ATTKNID, COBTKN, DDLATTKN * and re-MAKE. * Reference: WO #040927-01 * * 15OCT2004 steffej * Symptom: Mobile Top-Up Enhancement * Problem: None * Fix: Added token descriptions to the PROD-TKN-TABLE for * the following new BASE tokens. * Split Transaction Routing Token (BR) * Pre-Pay Switch Token (BS) * Pre-Pay Response Token (BT) * Pre-Pay Selection Token (BU) * Pre-Pay Voucher Receipt Token (BV) * Pre-Pay Online Receipt Token (BW) * Inventory Voucher Token (N8) * Pre-Pay Generic Receipt Token (BB) * Pre-Pay Original Data Token (BX) * Pre-Pay Merchant Token (CJ) * They have been added for both ATM and POS. * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 19. * ATM57 - SPLIT TXN ROUTING TKN * POS62 - SPLIT TXN ROUTING TKN * ATM58 - PRE PAY SWITCH TKN * POS63 - PRE PAY SWITCH TKN * ATM59 - PRE PAY RESPONSE TKN * POS64 - PRE PAY RESPONSE TKN * ATM60 - PRE PAY SELECTION TKN * POS65 - PRE PAY SELECTION TKN * ATM61 - PRE PAY VOUCHER RCPT * POS66 - PRE PAY VOUCHER RCPT * ATM62 - PRE PAY ONLINE RCPT * POS67 - PRE PAY ONLINE RCPT * ATM63 - INVENTORY VOUCHER TKN * POS68 - INVENTORY VOUCHER TKN * ATM64 - PRE PAY GENERIC RCPT * POS69 - PRE PAY GENERIC RCPT * ATM65 - PRE PAY ORIG DATA TKN * POS70 - PRE PAY ORIG DATA TKN * POS71 - PRE PAY MERCHANT TKN * Dependency: Apply fix to COBTKN and run MAKE. Refer to * BA60UD08.SCNMTOP for a complete listing of * dependencies. * Reference: WO #031001-03 #ADD 00195C02 05 ATM55 PIC X(29) VALUE "0901ATM IFX USER DATA TOKEN ". 05 ATM56 PIC X(29) VALUE "AG01ATM ATM DATA1 TOKEN ". 05 ATM57 PIC X(29) VALUE "BR01ATM SPLIT TXN ROUTING TKN". 05 POS62 PIC X(29) VALUE "BR02POS SPLIT TXN ROUTING TKN". 05 ATM58 PIC X(29) VALUE "BS01ATM PRE PAY SWITCH TKN ". 05 POS63 PIC X(29) VALUE "BS02POS PRE PAY SWITCH TKN ". 05 ATM59 PIC X(29) VALUE "BT01ATM PRE PAY RESPONSE TKN ". 05 POS64 PIC X(29) VALUE "BT02POS PRE PAY RESPONSE TKN ". 05 ATM60 PIC X(29) VALUE "BU01ATM PRE PAY SELECTION TKN". 05 POS65 PIC X(29) VALUE "BU02POS PRE PAY SELECTION TKN". 05 ATM61 PIC X(29) VALUE "BV01ATM PRE PAY VOUCHER RCPT ". 05 POS66 PIC X(29) VALUE "BV02POS PRE PAY VOUCHER RCPT ". 05 ATM62 PIC X(29) VALUE "BW01ATM PRE PAY ONLINE RCPT ". 05 POS67 PIC X(29) VALUE "BW02POS PRE PAY ONLINE RCPT ". 05 ATM63 PIC X(29) VALUE "N801ATM INVENTORY VOUCHER TKN". 05 POS68 PIC X(29) VALUE "N802POS INVENTORY VOUCHER TKN". 05 ATM64 PIC X(29) VALUE "BB01ATM PRE PAY GENERIC RCPT ". 05 POS69 PIC X(29) VALUE "BB02POS PRE PAY GENERIC RCPT ". 05 ATM65 PIC X(29) VALUE "BX01ATM PRE PAY ORIG DATA TKN". 05 POS70 PIC X(29) VALUE "BX02POS PRE PAY ORIG DATA TKN". 05 POS71 PIC X(29) VALUE "CJ02POS PRE PAY MERCHANT TKN ". #ADD 00197C00 02 WS-PROD-TKN-TBL OCCURS 154 TIMES. #DELETE 00197C01 #ADD 00201C00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 154. #DELETE 00201C01 #ENDSCN = BA08235 !@CMP2.24 10/19/04 MEGATBL 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.MEGATBL MEGATBL 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.MEGATBL MEGATBL 6006 * ******************************************************************************** #SCN = BA08236 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00046F09 * 15OCT2004 CarlsoB/dargyj * Symptom: Mobile Top-Up Enhancement * Problem: None * Fix: Added entries for the Split Transaction Routing * File (STRF) and the Mobile Operator File (MOF). * Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, * SVSTRFTM, SVSTRFTS, BA60DDL.DDLFSTRF, the BA60TMTU * subvolume and BA60DDL.DDLFMOF. * Apply fixes to BAAFTM, BAAFTMM, BA60SRC.BASEFM, * BA60SRC.BASEM, BA60SRC.BASEMM, CCAFMLM, MEGATBL, * SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM * and BA60DDL.DDLFOMF. * Run MAKE. * Refer to BA60UD08.SCNMTOP for a complete listing * of dependencies. * Reference: WO #031001-03 #ADD 00103 "MOF ", #ADD 00120 "STRF", #ENDSCN = BA08236 !@CMP2.24 10/19/04 RQCAFS 6057 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6057 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6057 * ******************************************************************************** #SCN = BA08237 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6057 #NEWVERSION = 6058 #ADD 00023*0G * 15OCT2004 DicarlG * Symptom: Block display of PIN offsets. * Problem: None. * Fix: POFST/PVV field on screen 1 will be masked with * asterisks when LCONF param MASK-POFST-PVV is set * to "Y". * Modified procs: * 200-GET-DATA * 275-UPDATE-RECORD * 300-VALIDATE-DATA * 400-VALIDATE-DATA * 400-SAVE-RECORD * 550-TABLE-LOOK-UP-OVERLAY-1 * 595-CLEAR-DATA * Dependency: Apply fixes to RQCAFS, SCRNCAF, SVCAFS and run * MAKE. * Reference: WO #031013-06 * 15OCT2004 SmithT * Symptom: New EMV cards are being declined by BASE24. * Problem: This is because the ATC for the new card is being * checked against the old. * Fix: New ATC field has been added to store this data. * Dependency: Apply fix to DDLFCAF, RQCAFS, SCRNCAF and run * Make. Refer to BA60UD08.SCNSCNDC for a complete * listing of dependencies. * Modified paragraph: * 400-DO-REST-OF-MOVES * 450-SET-UP-ADD-CONTINUED * 595-CLEAR-DATA * Reference: WO #041002-01 * 15OCT2004 SmithT * Symptom: Values 1 and 2 not supported as EMV IAD formats * on screen 13. * Problem: As above. * Fix: Added the new value to be the same as CPF. * Dependency: Apply fix to RQCAFS and run Make. * Modified paragraph: * 550-TABLE-LOOK-UP-OVERLAY-13 * Reference: Case #385691 #ADD 00121o05 DATA DIVISION 01 WS-POFST-PVV-FLAG PIC X VALUE " ". 88 MOVE-WS-POFST-PVV VALUE "Y". #ADD 00132&02 DATA DIVISION 05 WS-ATC-2 PIC 9(4) VALUE ZERO. #ADD 00171k02 DATA DIVISION 05 WS-POFST-PVV PIC X(16). #ADD 00232y0B DATA DIVISION 05 MASK-POFST-PVV PIC X. #REPLACE 00232y0C DATA DIVISION 05 LEFTOVER PIC X(4155). #ADD 00305 200-GET-DATA-EXIT MOVE "Y" TO WS-POFST-PVV-FLAG. #ADD 00439 300-VALIDATE-DATA IF MASK-POFST-PVV = "Y" AND WS-POFST-PVV = "****************" MOVE "N" TO WS-POFST-PVV-FLAG. #ADD 00447 300-VALIDATE-DATA IF MASK-POFST-PVV = "Y" AND WS-POFST-PVV = "****************" MOVE "DATA O.K - POFST/PVV VALUE OF ASTERISKS VALID ONLY - " FOR UPDATE" TO WS-MESSAGE-TEXT MOVE SPACES TO WS-ERROR-NUM PERFORM 990-DISPLAY-MESSAGE ELSE #REPLACE 00448 /00450 300-VALIDATE-DATA MOVE "DATA O.K." TO WS-MESSAGE-TEXT MOVE SPACES TO WS-ERROR-NUM PERFORM 990-DISPLAY-MESSAGE. #ADD 00522 275-UPDATE-RECORD IF MASK-POFST-PVV = "Y" AND WS-POFST-PVV = "****************" MOVE "N" TO WS-POFST-PVV-FLAG. #ADD 00571c06 400-VALIDATE-DATA IF MOVE-WS-POFST-PVV MOVE WS-POFST-PVV TO PIN-OFST OF SEG0. #ADD 00592&02 400-DO-REST-OF-MOVES IF ATC-2 OF SEG9 = SPACES MOVE ZEROS TO WS-ATC-2 ELSE MOVE ATC-2 OF SEG9 TO WS-ATC-2. #ADD 00697n02 400-SAVE-RECORD IF WS-POFST-PVV NOT = "****************" MOVE WS-POFST-PVV TO PIN-OFST OF SEG0. #REPLACE 00938l02 450-SET-UP-ADD-CONTINUED MOVE ZEROES TO ATC-2 OF SEG9. #ADD 01699X0I 550-TABLE-LOOK-UP IF MASK-POFST-PVV = "Y" MOVE "****************" TO WS-POFST-PVV ELSE MOVE PIN-OFST OF SEG0 TO WS-POFST-PVV. #ADD 01699&2V 550-TABLE-LOOK-UP-OVERLAY-13 ELSE IF ISS-APPL-DATA-FRMT OF SEG9 = "1" MOVE "(VIS)" TO WS-ISS-APPL-DATA-DESC ELSE IF ISS-APPL-DATA-FRMT OF SEG9 = "2" MOVE "(M/CHIP 2.1)" TO WS-ISS-APPL-DATA-DESC #ADD 02124c00 595-CLEAR-DATA WS-POFST-PVV, #ADD 02183x02 595-CLEAR-DATA ATC-2 OF SEG9, #REPLACE 02183&08 595-CLEAR-DATA MOVE ZEROES TO WS-ATC-2. #REPLACE 02190y09 595-CLEAR-DATA ATC-2 OF SEG9, #ENDSCN = BA08237 !@CMP2.24 10/19/04 RQCPFS 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6055 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6055 * ******************************************************************************** #SCN = BA08238 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00022%27 * 15OCT2004 AldersR * Symptom: Offline PIN Change Notification. * Problem: None. * Fix: Added code to process new field TRANSPORT-KEY. * Modified Paragraphs: * 480-ERR-FLAG-OV-11 * 480-FLAG-OV-11-FIELD-14 * 480-FLAG-OV-11-FIELD-15 * 480-FLAG-OV-11-FIELD-16 * 480-FLAG-OV-11-FIELD-17 * 480-FLAG-OV-11-FIELD-18 * 480-FLAG-OV-11-FIELD-19 * 595-CLEAR-DATA. * Added Paragraphs: * 480-FLAG-OV-11-FIELD-20 * Dependency: Apply fixes DDLFCPF, RQCPFS, SCRNCPF, SVCPFS * and run Make. Refer to BA60UC08.SCNOFFP for * a complete list of dependencies. * Reference: WO #040213-02 * 15OCT2004 LamproK * Symptom: Visa iCVV Support. * Problem: None. * Fix: Added code to process new fields: * EMV-CV-CHK-MTHD * EMV-CV-CHK-TYP * EMV-CV-DATA * EMV-CV-EFF-DAT * Modified Paragraphs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-ERR-FLAG-OV-11 * 480-FLAG-OV-11-FIELD-10 * 480-FLAG-OV-11-FIELD-11 * 480-FLAG-OV-11-FIELD-12 * 480-FLAG-OV-11-FIELD-13 * 480-FLAG-OV-11-FIELD-14 * 480-FLAG-OV-11-FIELD-15 * 480-FLAG-OV-11-FIELD-16 * 480-FLAG-OV-11-FIELD-17 * 480-FLAG-OV-11-FIELD-18 * 480-FLAG-OV-11-FIELD-19 * 480-FLAG-OV-11-FIELD-20 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA. * Added Paragraphs: * 480-FLAG-OV-11-FIELD-21 * 480-FLAG-OV-11-FIELD-22 * 480-FLAG-OV-11-FIELD-23 * 480-FLAG-OV-11-FIELD-24 * Dependency: Apply fixes to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS * and run Make. Refer to BA60UD08.SCNICVV for a * complete listing of dependencies. * Reference: WO #040214-05 * 15OCT2004 annisd * Symptom: Stored Value Dormancy/Escheatment 6.0 Uplift * Problem: None. * Fix: Support multiple Stored Value Card Types by using * a global define in COBNAMES for Stored Value * Card Types. * Added support for the following new Stored * Value field on Screen 10 (SC-PSCPF10): * ESCHEATMENT * Modified valid values for CHECK DIGIT ALGO to be * 0 or 1. * Modified Paragraphs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-ERR-FLAG-OV-10 * 480-FLAG-OV-10-FIELD-9 * 480-FLAG-OV-10-FIELD-10 * 550-TABLE-LOOK-UP * 596-INIT-STORED-VALUE * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS * and re-make. * Refer to BA60UD08.SCNSVDE for a complete listing * of dependencies. * Reference: WO #020715-15 #DELETE 00022%28/00022%2B #ADD 00060o05 DATA DIVISION 05 WS-EMV-CV-CHK-TYP PIC X. 05 WS-EMV-CV-CHK-MTHD PIC X. 05 WS-EMV-CV-CHK-DESC PIC X(17). 05 WS-EMV-CV-MTH-DESC PIC X(17). 05 WS-EMV-CV-DATA PIC X(3). #ADD 00074w0Y DATA DIVISION 05 WS-SV-ESCHEATMENT-FLG PIC X VALUE SPACE. #ADD 00115u0C DATA DIVISION 05 WS-TRANSPORT-KEY PIC X(16). #REPLACE 00115%09 DATA DIVISION 05 LEFTOVER PIC X(2426). #ADD 00484u02 400-MOVE-RECORD IF TRANSPORT-KEY OF SEG9 = SPACES MOVE 0 TO TRANSPORT-KEY OF SEG9. IF EMV-CV-EFF-DAT OF SEG9 = SPACES MOVE 0501 TO EMV-CV-EFF-DAT OF SEG9. IF EMV-CV-CHK-TYP OF SEG9 = SPACES MOVE "0" TO EMV-CV-CHK-TYP OF SEG9. IF EMV-CV-CHK-MTHD OF SEG9 = SPACES MOVE "0" TO EMV-CV-CHK-MTHD OF SEG9. IF EMV-CV-DATA OF SEG9 = SPACES MOVE "000" TO EMV-CV-DATA OF SEG9. MOVE EMV-CV-CHK-TYP TO WS-EMV-CV-CHK-TYP. MOVE EMV-CV-CHK-MTHD TO WS-EMV-CV-CHK-MTHD. MOVE EMV-CV-DATA TO WS-EMV-CV-DATA. #ADD 00484w0C 400-MOVE-RECORD IF SV-ESCHEATMENT-FLG OF SEG24 = " " MOVE "N" TO WS-SV-ESCHEATMENT-FLG ELSE MOVE SV-ESCHEATMENT-FLG OF SEG24 TO WS-SV-ESCHEATMENT-FLG. #ADD 00498u02 400-SAVE-RECORD MOVE WS-EMV-CV-CHK-TYP TO EMV-CV-CHK-TYP. MOVE WS-EMV-CV-CHK-MTHD TO EMV-CV-CHK-MTHD. MOVE WS-EMV-CV-DATA TO EMV-CV-DATA. #ADD 00498w08 400-SAVE-RECORD IF ( VALID-SV-CRD-TYP ) #DELETE 00498w09/00498w0A 400-SAVE-RECORD #ADD 00498w0Q 400-SAVE-RECORD MOVE WS-SV-ESCHEATMENT-FLG TO SV-ESCHEATMENT-FLG OF SEG24. #ADD 00670w9b 480-ERR-FLAG-OV-10 480-FLAG-OV-10-FIELD-10, #ADD 00670w9l 480-FLAG-OV-10-FIELD-7 480-FLAG-OV-10-FIELD-9. TURN TEMP SERROR IN P-SV-ESCHEATMENT-FLG. SET NEW-CURSOR AT P-SV-ESCHEATMENT-FLG. #REPLACE 00670w9n 480-FLAG-OV-10-FIELD-9 480-FLAG-OV-10-FIELD-10. #REPLACE 00670z02/00670z03 480-ERR-FLAG-OV-11 480-FLAG-OV-11-FIELD-19, 480-FLAG-OV-11-FIELD-20, 480-FLAG-OV-11-FIELD-21, 480-FLAG-OV-11-FIELD-22, 480-FLAG-OV-11-FIELD-23, 480-FLAG-OV-11-FIELD-24 #ADD 00670wAn 480-FLAG-OV-11-FIELD-9 480-FLAG-OV-11-FIELD-10. TURN TEMP SERROR IN P-EMV-CV-CHK-TYP. SET NEW-CURSOR AT P-EMV-CV-CHK-TYP. 480-FLAG-OV-11-FIELD-11. TURN TEMP SERROR IN P-EMV-CV-EFF-DAT. SET NEW-CURSOR AT P-EMV-CV-EFF-DAT. 480-FLAG-OV-11-FIELD-12. TURN TEMP SERROR IN P-EMV-CV-CHK-MTHD. SET NEW-CURSOR AT P-EMV-CV-CHK-MTHD. 480-FLAG-OV-11-FIELD-13. TURN TEMP SERROR IN P-EMV-CV-DATA. SET NEW-CURSOR AT P-EMV-CV-DATA. #REPLACE 00670z05 480-FLAG-OV-11-FIELD-10 480-FLAG-OV-11-FIELD-15. #REPLACE 00670z09 480-FLAG-OV-11-FIELD-11 480-FLAG-OV-11-FIELD-14. #REPLACE 00670z0D 480-FLAG-OV-11-FIELD-12 480-FLAG-OV-11-FIELD-16. #REPLACE 00670z0H 480-FLAG-OV-11-FIELD-13 480-FLAG-OV-11-FIELD-17. #REPLACE 00670z0L/00670z0N 480-FLAG-OV-11-FIELD-15 480-FLAG-OV-11-FIELD-18. TURN TEMP SERROR IN P-TRANSPORT-KEY. SET NEW-CURSOR AT P-TRANSPORT-KEY. #REPLACE 00670z0P/00670z0R 480-FLAG-OV-11-FIELD-16 480-FLAG-OV-11-FIELD-19. TURN TEMP SERROR IN P-FALLBACK-ACTN-ATM. SET NEW-CURSOR AT P-FALLBACK-ACTN-ATM. #REPLACE 00670z0T/00670z0V 480-FLAG-OV-11-FIELD-17 480-FLAG-OV-11-FIELD-20. TURN TEMP SERROR IN P-FALLBACK-ACTN-POS. SET NEW-CURSOR AT P-FALLBACK-ACTN-POS. #REPLACE 00670z0X/00670z0Z 480-FLAG-OV-11-FIELD-18 480-FLAG-OV-11-FIELD-21. TURN TEMP SERROR IN P-STATUS-CHECK-ACT-INDEX. SET NEW-CURSOR AT P-STATUS-CHECK-ACT-INDEX. #REPLACE 00670z0b/00670z0d 480-FLAG-OV-11-FIELD-19 480-FLAG-OV-11-FIELD-22. TURN TEMP SERROR IN P-EMV-ISS-APPL-DATA. SET NEW-CURSOR AT P-EMV-ISS-APPL-DATA. #REPLACE 00670z0f/00670z0h 480-FLAG-OV-11-FIELD-19 480-FLAG-OV-11-FIELD-23. TURN TEMP SERROR IN P-EMV-PREFIX-ROUTING. SET NEW-CURSOR AT P-EMV-PREFIX-ROUTING. #REPLACE 00670z0j/00670z0l 480-ERR-FLAG-OV-14 480-FLAG-OV-11-FIELD-24. TURN TEMP SERROR IN P-EMV-ISS. SET NEW-CURSOR AT P-EMV-ISS. #ADD 01416o1F 550-TABLE-LOOK-UP MOVE SPACES TO WS-EMV-CV-CHK-DESC. IF WS-EMV-CV-CHK-TYP = "0" MOVE "(NONE)" TO WS-EMV-CV-CHK-DESC ELSE IF WS-EMV-CV-CHK-TYP = "1" MOVE "(NO ARQC)" TO WS-EMV-CV-CHK-DESC ELSE IF WS-EMV-CV-CHK-TYP = "2" MOVE "(INVALID/NO ARQC)" TO WS-EMV-CV-CHK-DESC ELSE IF WS-EMV-CV-CHK-TYP = "3" MOVE "(ALWAYS)" TO WS-EMV-CV-CHK-DESC ELSE MOVE "(***********)" TO WS-EMV-CV-CHK-DESC. MOVE SPACES TO WS-EMV-CV-MTH-DESC. IF WS-EMV-CV-CHK-MTHD = "0" MOVE "(STANDARD)" TO WS-EMV-CV-MTH-DESC ELSE IF WS-EMV-CV-CHK-MTHD = "1" MOVE "(NO SERVICE CODE)" TO WS-EMV-CV-MTH-DESC ELSE MOVE "(***********)" TO WS-EMV-CV-MTH-DESC. #ADD 01570o08 595-CLEAR-DATA MOVE "0" TO WS-EMV-CV-CHK-TYP. MOVE "0" TO WS-EMV-CV-CHK-MTHD. MOVE "0501" TO EMV-CV-EFF-DAT OF SEG9. MOVE "000" TO WS-EMV-CV-DATA. #REPLACE 01570z04 595-CLEAR-DATA MOVE "0000000000000000" TO WS-TRANSPORT-KEY. #ADD 01611w0L 596-INIT-STORED-VALUE MOVE "N" TO SV-ESCHEATMENT-FLG OF SEG24, WS-SV-ESCHEATMENT-FLG. #ENDSCN = BA08238 !@CMP2.24 10/19/04 RQPBFS 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQPBFS RQPBFS 6027 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQPBFS RQPBFS 6027 * ******************************************************************************** #SCN = BA08240 , FILEID = RQPBFS #VOLUME = $ROOK.BA60AFT #FILE = RQPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00023a09 * 15OCT2004 annisd * Symptom: Stored Value Dormancy/Escheatment 6.0 Uplift * Problem: None. * Fix: Added support for the following three new * Stored Value fields on Screen 1 (SC-PBF1): * DORMANCY DATE CARD ACTIVATION STATE * BALANCE PRIOR TO DORMANCY DATE * Modified Paragraphs: * 410-CONVERT * 450-SET-UP-ADD * 595-CLEAR-DATA * Dependency: Apply fix to DDLFPBF, RQPBFS, SCRNPBF, AUTHLIBS * and remake. * Refer to BA60UD08.SCNSVDE for a complete listing * of dependencies. * Reference: WO #020715-15 #ADD 00151N01 DATA DIVISION 05 WS-BAL-PRIOR-TO-DORM-FEE PIC X(17). 05 WS-BAL-PRIOR-TO-DORM-FEE-R REDEFINES WS-BAL-PRIOR-TO-DORM-FEE PIC X OCCURS 17 TIMES. 05 WS-BAL-PRIOR-TO-DORM-FEE-NUM PIC 9(17). 05 WS-BAL-PRIOR-TO-DORM-FEE-NUM-R REDEFINES WS-BAL-PRIOR-TO-DORM-FEE-NUM PIC 9 OCCURS 17 TIMES. #ADD 00567 410-CONVERT * Convert the Balance Prior to Dormancy Fee IF BAL-PRIOR-TO-DORMANCY-FEE = SPACES MOVE 0 to BAL-PRIOR-TO-DORMANCY-FEE. IF BAL-PRIOR-TO-DORMANCY-FEE < 0 MOVE "Y" TO NEG-DISP ELSE MOVE "N" TO NEG-DISP. MOVE BAL-PRIOR-TO-DORMANCY-FEE TO AMT-NUMBER. PERFORM 400-CHANGE-NUM. MOVE AMT-DISPLAY TO WS-BAL-PRIOR-TO-DORM-FEE. #ADD 00696R00 450-SET-UP-ADD MOVE ZEROS TO DORMANCY-DAT, BAL-PRIOR-TO-DORMANCY-FEE, CRD-ACTVT-ST. #ADD 01528N03 595-CLEAR-DATA MOVE ZEROS TO DORMANCY-DAT, BAL-PRIOR-TO-DORMANCY-FEE, CRD-ACTVT-ST. #ENDSCN = BA08240 !@CMP2.24 10/19/04 SECTBL 6020 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6020 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6020 * ******************************************************************************** #SCN = BA08244 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6020 #NEWVERSION = 6021 #ADD 00268T0B * 15OCT2004 CarlsoB/dargyj * Symptom: Mobile Top-Up Enhancement * Problem: None * Fix: Added support for the Split Transaction Routing * File (STRF) and the Mobile Operator File (MOF). * Added five entries to PROD-SCRN-ACCESS-TABLE-DATA. * Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 5. * Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, * SVSTRFTM, SVSTRFTS, BA60DDL.DDLFSTRF, the BA60TMTU * subvolume and BA60DDL.DDLFMOF. * Apply fixes to BAAFTM, BAAFTMM, BA60SRC.BASEFM, * BA60SRC.BASEM, BA60SRC.BASEMM, CCAFMLM, MEGATBL, * SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM * and BA60DDL.DDLFOMF. Run MAKE. * Refer to BA60UD08.SCNMTOP for a complete listing * of dependencies. * Reference: WO #031001-03 * * 15OCT2004 annisd * Symptom: Stored Value Dormancy/Escheatment 6.0 Uplift * Problem: None. * Fix: Added a new entry to PROD-SCRN-ACCESS-TABLE-DATA * for SVDF. Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES each by 1. * Dependency: Apply fix to SECTBL, SVMHLPS and remake. * Refer to BA60UD08.SCNSVDE for a complete listing * of dependencies. * Reference: WO #020715-15. #ADD 00650F03 05 MOF1 PIC X(35) VALUE "MOF 010000MOBILE OPERATOR FILE ". 05 MOF2 PIC X(35) VALUE "MOF 020000MOBILE OPERATOR FILE ". 05 MOF3 PIC X(35) VALUE "MOF 030000MOBILE OPERATOR FILE ". 05 MOF4 PIC X(35) VALUE "MOF 040000MOBILE OPERATOR FILE ". #ADD 00774A02 05 STRF PIC X(35) VALUE "STRF010000SPLIT TXN ROUTING FILE ". #ADD 00779G00 05 SVDF1 PIC X(35) VALUE "SVDF010202SV DORMANCY FILE ". #ADD 00893T00 05 PROD-SCRN-ACC-TABL OCCURS 593 TIMES. #DELETE 00893T01 #ADD 00906T00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 593. #DELETE 00906T01 #ENDSCN = BA08244 !@CMP2.24 10/19/04 SVCAFS 6038 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6038 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6038 * ******************************************************************************** #SCN = BA08245 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6038 #NEWVERSION = 6039 #ADD 00013l0E * 15OCT2004 DicarlG * Symptom: Block display of PIN offsets. * Problem: None. * Fix: POFST/PVV field on screen 1 will be masked with * asterisks when LCONF param MASK-POFST-PVV is set * to "Y". * Modified procs: * 205-DO-MOVES-TO-REC-IMAGE * 909-RETRIEVE-LCONF-ASSIGNS * Dependency: Apply fixes to RQCAFS, SCRNCAF, SVCAFS and run * MAKE. * Reference: WO #031013-06 * 15OCT2004 SmithT * Symptom: Values 1 and 2 not supported as EMV IAD formats * on screen 13. * Problem: As above. * Fix: Added the new value to be the same as CPF. * Dependency: Apply fix to SVCAFS and run Make. * Reference: Case #385691 #ADD 00281e0B DATA DIVISION 05 MASK-POFST-PVV PIC X. #REPLACE 00281e0C DATA DIVISION 05 LEFTOVER PIC X(4155). #ADD 00318 DATA DIVISION 01 LCONF-PARAM-MASK-POFST-PVV PIC X. #REPLACE 00467k03 DATA DIVISION 88 VALID-ISS-APPL-DATA-FRMT VALUE "0", "1", "2", "3". #REPLACE 00511k0c DATA DIVISION "EMV IAD FORMAT MUST BE 0,1,2 OR 3". #ADD 00742 205-DO-MOVES-TO-REC-IMAGE MOVE LCONF-PARAM-MASK-POFST-PVV TO MASK-POFST-PVV. #ADD 01668Y0R 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "MASK-POFST-PVV" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 AND PTXT OF LCONF = "Y" MOVE "Y" TO LCONF-PARAM-MASK-POFST-PVV ELSE MOVE "N" TO LCONF-PARAM-MASK-POFST-PVV MOVE 0 TO FILE-STAT-ELEMENT MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 END-IF #ENDSCN = BA08245 !@CMP2.24 10/19/04 SVCPFS 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6031 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6031 * ******************************************************************************** #SCN = BA08246 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 00017e1b * 15OCT2004 AldersR * Symptom: Offline PIN Change Notification. * Problem: None. * Fix: Added code to process new field TRANSPORT-KEY. * Modified Procs: * 200-READ-RCD * 480-DATA-CHECK-SCREEN11 * 510-RCD-ADD * 600-READ-NEXT-RCD * 620-CLEAR-SEG9 * 912-RCD-REPLACE * Modified Procs: * 115-INTER-BINARY-HEX * 115-INTER-HEX-BINARY * 970-TRANSPORT-HEX * Dependency: Apply fixes to DDLFCPF, RQCPFS, SCRNCPF, * SVCPFS and run Make. Refer to * BA60UC08.SCNOFFP for a complete listing * of dependencies. * Reference: WO #040213-02 * 15OCT2004 LamproK * Symptom: Visa iCVV Support. * Problem: None. * Fix: Added code to process new fields: * EMV-CV-CHK-MTHD * EMV-CV-CHK-TYP * EMV-CV-DATA * EMV-CV-EFF-DAT * Modified Paragraphs: * 480-DATA-CHECK-SCREEN11 * 620-CLEAR-SEG9 * 970-TRANSPORT-HEX * Dependency: Apply fixes to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS * and run Make. Refer to BA60UD08.SCNICVV for a * complete listing of dependencies. * Reference: WO #040214-05 * 15OCT2004 annisd * Symptom: Stored Value Dormancy/Escheatment 6.0 Uplift * Problem: None. * Fix: Support multiple Stored Value Card Types by using * a global define in COBNAMES for Stored Value * Card Types. * Added support for the following new Stored * Value field on Screen 10 (SC-PSCPF10): * ESCHEATMENT * Modified valid values for CHECK DIGIT ALGO to be * 0 or 1. * Modified Paragraphs: * 480-DATA-CHECK-SCREEN * 480-DATA-CHECK-SCREEN10 * 480-DATA-CHECK-SCREEN20 * Dependency: Apply fix to DDLFCPF, RQCPFS, SCRNCPF, SVCPFS * and re-make. * Refer to BA60UD08.SCNSVDE for a complete listing * of dependencies. * Reference: WO #020715-15 #DELETE 00017e1c/00017e1z #ADD 00225U07 DATA DIVISION 05 WS-TRANSPORT-KEY PIC X(16). #REPLACE 00225e04 DATA DIVISION 05 LEFTOVER PIC X(2426). #ADD 00267 DATA DIVISION 01 WS-TRANSPORT-KEY-X. 05 TRANSPORT-X PIC X(1) OCCURS 16 TIMES. #ADD 00371 DATA DIVISION 05 Q PIC S9(4) COMP VALUE ZERO. #ADD 00380 DATA DIVISION 05 ENCR-NBR PIC S9(4) COMP VALUE 0. #ADD 00399X0Q DATA DIVISION 01 EMV-CV-YEAR PIC S9(04) COMP. 01 EMV-CV-MONTH PIC S9(04) COMP. #ADD 00499U03 100-LCONF-ERROR-TEXT-FILL 115-INTER-BINARY-HEX. IF TRANSPORT-KEY OF SEG9 OF CPF = " " MOVE "0000000000000000" TO WS-TRANSPORT-KEY ENTER "HEXCHAR^BINARY" OF UTILIB USING WS-TRANSPORT-KEY, 16, TRANSPORT-KEY OF SEG9 OF CPF GIVING ENCR-NBR. ENTER "BINARY^HEXCHAR" OF UTILIB USING WS-TRANSPORT-KEY, 16, TRANSPORT-KEY OF SEG9 OF CPF GIVING ENCR-NBR. #REPLACE 00499U04/00501V01 100-LCONF-ERROR-TEXT-FILL 115-INTER-HEX-BINARY. ENTER "HEXCHAR^BINARY" OF UTILIB USING WS-TRANSPORT-KEY, 16, TRANSPORT-KEY OF SEG9 OF CPF GIVING ENCR-NBR. #ADD 00510Q01 200-READ-RCD IF BYTE-MAP-R(10) = "1" PERFORM 115-INTER-BINARY-HEX #ADD 00749X0p 480-DATA-CHECK-SCREEN IF ( VALID-SV-CRD-TYP ) #DELETE 00749X0q/00749X0r 480-DATA-CHECK-SCREEN #ADD 00749XJj 480-DATA-CHECK-SCREEN10 IF SV-ESCHEATMENT-FLG OF SEG24 OF CPF NOT = "Y" AND SV-ESCHEATMENT-FLG OF SEG24 OF CPF NOT = "N" ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ESCHEATMENT FLAG MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749XJo 480-DATA-CHECK-SCREEN10 MOVE 10 TO FLD-ID-NUM(ERR-CNT) #ADD 00749XLN 480-DATA-CHECK-SCREEN11 IF EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "1" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "2" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD VERIFICATION CHECK TYPE MUST BE 0-3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF EMV-CV-EFF-DAT OF SEG9 OF CPF = ZEROS ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATE IS REQUIRED WHEN EMV CHECK - "TYPE IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE DIVIDE EMV-CV-EFF-DAT OF SEG9 OF CPF BY 100 GIVING EMV-CV-YEAR MULTIPLY EMV-CV-YEAR BY 100 GIVING EMV-CV-YEAR SUBTRACT EMV-CV-YEAR FROM EMV-CV-EFF-DAT OF SEG9 OF CPF GIVING EMV-CV-MONTH IF EMV-CV-MONTH < 1 OR EMV-CV-MONTH > 12 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATE MONTH MUST BE '01' - '12' - "-- FORMAT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "0" AND EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV CHECK METHOD MUST BE '0' OR '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF ( EMV-CV-DATA NOT NUMERIC OR ( EMV-CV-DATA OF SEG9 OF CPF < 0 AND EMV-CV-DATA OF SEG9 OF CPF > 999 ) ) ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATA MUST BE 3 CHARS NUMERIC ONLY" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749XLS 480-DATA-CHECK-SCREEN11 MOVE 15 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XLb 480-DATA-CHECK-SCREEN11 MOVE 14 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749b08 480-DATA-CHECK-SCREEN11 MOVE 16 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749b0H 480-DATA-CHECK-SCREEN11 MOVE 17 TO FLD-ID-NUM(ERR-CNT) #ADD 00749b0L 480-DATA-CHECK-SCREEN11 MOVE WS-TRANSPORT-KEY TO WS-TRANSPORT-KEY-X. PERFORM 970-TRANSPORT-HEX VARYING Q FROM 1 BY 1 UNTIL Q > 16. #REPLACE 00749e2J 480-DATA-CHECK-SCREEN11 MOVE 19 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749e2M 480-DATA-CHECK-SCREEN11 MOVE 20 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749e2P 480-DATA-CHECK-SCREEN11 MOVE 21 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749b0O 480-DATA-CHECK-SCREEN11 MOVE 22 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749b0R 480-DATA-CHECK-SCREEN11 MOVE 23 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749b0U 480-DATA-CHECK-SCREEN11 MOVE 24 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XOs/00749XOs OFFSET 0 480-DATA-CHECK-SCREEN20 IF NOT ( CHECK-DIGIT-ALGO OF SEG12 OF CPF = 0 OR CHECK-DIGIT-ALGO OF SEG12 OF CPF = 1 ) #REPLACE 00749XOw 480-DATA-CHECK-SCREEN20 MOVE "CHECK DIGIT ALGO MUST BE 0 OR 1" TO WS-ERR-TXT #ADD 00822U06 510-RCD-ADD PERFORM 115-INTER-HEX-BINARY #ADD 00850 600-READ-NEXT-RCD IF BYTE-MAP-R(10) = "1" PERFORM 115-INTER-BINARY-HEX #ADD 00876W0C 620-CLEAR-SEG9 EMV-ISS-APPL-DATA-FRMT OF SEG9 OFFL-PIN-MGMT-ACT OF SEG9 OFFL-PIN-BAD-EXCD-ACT OF SEG9. MOVE "0000000000000000" TO WS-TRANSPORT-KEY. MOVE ZERO TO TRANSPORT-KEY OF SEG9. #DELETE 00876W0D 620-CLEAR-SEG9 #ADD 00876W0H 620-CLEAR-SEG9 MOVE "0" TO EMV-CV-CHK-TYP OF SEG9. MOVE "0" TO EMV-CV-CHK-MTHD OF SEG9. MOVE 0501 TO EMV-CV-EFF-DAT OF SEG9. MOVE "000" TO EMV-CV-DATA OF SEG9. #REPLACE 01341U01 912-RCD-REPLACE PERFORM 115-INTER-HEX-BINARY #ADD 01506 999-CHECK-LAST-UPDATE 970-TRANSPORT-HEX. IF TRANSPORT-X(Q) NOT NUMERIC AND TRANSPORT-X(Q) NOT = "A" AND TRANSPORT-X(Q) NOT = "B" AND TRANSPORT-X(Q) NOT = "C" AND TRANSPORT-X(Q) NOT = "D" AND TRANSPORT-X(Q) NOT = "E" AND TRANSPORT-X(Q) NOT = "F" MOVE 17 TO Q ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "KEY CONTAINS INVALID CHARACTERS, MUST BE 0-9, A-F" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA08246 !@CMP2.24 10/19/04 SVIPCFTG6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIPCFTG SVIPCFTG 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIPCFTG SVIPCFTG 6000 * ******************************************************************************** #SCN = BA08247 , FILEID = SVIPCFTG #VOLUME = $ROOK.BA60AFT #FILE = SVIPCFTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00043 ! 15OCT2004 AldersR ! Symptom: Forward Declined Advices to Host ! Problem: None ! Fix: Altered text on COMPLETION REQUIRED TO HOST message. ! Dependency: Apply fix to RQIPCFSS, SVIPCFTG, SVIPCFTS and run ! MAKE. Refer to BA60UC08.SCNFORW for a complete ! listing of dependencies. ! Reference: WO #040406-01 #REPLACE 00496 OFFSET 8 ! 7 ! "COMPLETION REQUIRED TO HOST MUST BE 'Y' , 'N' OR 'A' ", #ENDSCN = BA08247 !@CMP2.24 10/19/04 SVIPCFTS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIPCFTS SVIPCFTS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIPCFTS SVIPCFTS 6000 * ******************************************************************************** #SCN = BA08248 , FILEID = SVIPCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVIPCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00042 ! 15OCT2004 AldersR ! Symptom: Forward Declined Advices to Host ! Problem: None ! Fix: Added code to map and validate a IPCF.COMPL_REQ of A. ! Modified Proc: IPCF_B_RQST_PROCESS ! IPCF_UTIL_DATA_CHK_OVERLAY_2 ! Dependency: Apply fixes to RQIPCFSS, SVIPCFTG, SVIPCFTS and run ! MAKE. Refer to BA60UC08.SCNFORW for a complete ! list of dependencies. ! Reference: WO #040406-01 #REPLACE 00569 /00569 OFFSET 0 IPCF_B_RQST_PROCESS end else if ipcf.compl_req = "4" then begin ipcf.compl_req := "A"; end; #REPLACE 03012 /03012 OFFSET 0 IPCF_UTIL_DATA_CHK_OVERLAY_2 ipcf.compl_req <> "N" and ipcf.compl_req <> "A" then #ADD 03026 IPCF_UTIL_DATA_CHK_OVERLAY_2 if ipcf.compl_req = "N" then #REPLACE 03029 /03029 OFFSET 0 IPCF_UTIL_DATA_CHK_OVERLAY_2 end else if ipcf.compl_req = "A" then begin ipcf.compl_req := "4"; end; #ENDSCN = BA08248 !@CMP2.24 10/19/04 SVMHLPS 6010 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6010 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVMHLPS SVMHLPS 6010 * ******************************************************************************** #SCN = BA08249 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6010 #NEWVERSION = 6011 #ADD 00101J0A * 15OCT2004 CarlsoB/dargyj * Symptom: Mobile Top-Up Enhancement * Problem: None * Fix: Added support for the Split Transaction Routing * File (STRF) and the Mobile Operator File (MOF). * Added STRF and MOF to the BASE-TABLE. Incremented * the BASE-ENTRY and BASE-ENTRIES-L. * Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, * SVSTRFTM, SVSTRFTS, BA60DDL.DDLFSTRF, the BA60TMTU * subvolume and BA60DDL.DDLFMOF. * Apply fixes to BAAFTM, BAAFTMM, BA60SRC.BASEFM, * BA60SRC.BASEM, BA60SRC.BASEMM, CCAFMLM, MEGATBL, * SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM * and BA60DDL.DDLFOMF. * Run MAKE. * Refer to BA60UD08.SCNMTOP for a complete listing * of dependencies. * Reference: WO #031001-03 * 15OCT2004 falkl/annisd * Symptom: Stored Value Dormancy/Escheatment 6.0 Uplift * Problem: None. * Fix: Added SVDF to POS-TABLE. Incremented POS-ENTRY * and POS-ENTRIES-L. * Dependency: Apply fix to SECTBL, SVMHLPS and remake. * Refer to BA60UD08.SCNSVDE for a complete listing * of dependencies. * Reference: WO #020715-15. #ADD 00174 DATA DIVISION 05 FILLER PIC X(31) VALUE "MOF MOBILE OPERATOR FILE". #ADD 00190 DATA DIVISION 05 FILLER PIC X(31) VALUE "STRFSPLIT TXN ROUTING FILE ". #ADD 00203J00 DATA DIVISION 05 BASE-ENTRY OCCURS 34 TIMES. #DELETE 00203J01 DATA DIVISION #ADD 00206J00 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 34. #DELETE 00206J01 DATA DIVISION #ADD 00291H00 DATA DIVISION 05 FILLER PIC X(31) VALUE "SVDFSTORED VALUE DORMANCY FILE ". #REPLACE 00296I01 DATA DIVISION 05 POS-ENTRY OCCURS 31 TIMES. #REPLACE 00299I01 DATA DIVISION 01 POS-ENTRIES-L PIC S9(4) COMP VALUE 31. #ENDSCN = BA08249 !@CMP2.24 10/18/04 BAAFTM 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.BAAFTM BAAFTM 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.BAAFTM BAAFTM 6006 * ******************************************************************************** #SCN = BA08250 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6006 #NEWVERSION = 6007 #ADD 0088F0C # 15OCT2004 CarlsoB # Symptom: Mobile Top-Up Enhancement # Problem: None # Fix: Added support for the Split Transaction Routing File # (STRF) Requester/Server to include baaft_rqstrfxm and # baaft_svstrftm. # Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, # SVSTRFTM, SVSTRFTS, and BA60DDL.DDLFSTRF. # Apply fixes to BAAFTM, BAAFTMM, CCAFMLM, MEGATBL, # SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM, and # BA60DDL.DDLFOMF. # Run MAKE. # Refer to BA60UD08.SCNMTOP for a complete listing of # dependencies. # Reference: WO #031001-03 # #ADD 0175 !include $(baaft_rqstrfxm) !include $(baaft_svstrftm) #ENDSCN = BA08250 !@CMP2.24 10/18/04 BAAFTMM 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6005 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.BAAFTMM BAAFTMM 6005 * ******************************************************************************** #SCN = BA08251 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6005 #NEWVERSION = 6006 #ADD 0095D0I # 15OCT2004 CarlsoB # Symptom: Mobile Top-Up Enhancement # Problem: None # Fix: Added the following defines for the Split Transaction # Routing File (STRF) Requester/Server support. # baaft_rqstrfss # baaft_rqstrfxm # baaft_rqstrfxo # baaft_rqstrfxs # baaft_svstrfte # baaft_svstrftg # baaft_svstrftm # baaft_svstrfto # baaft_svstrfts # Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, # SVSTRFTM, SVSTRFTS, and BA60DDL.DDLFSTRF. # Apply fixes to BAAFTM, BAAFTMM, CCAFMLM, MEGATBL, # SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM, and # BA60DDL.DDLFOMF. # Run MAKE. # Refer to BA60UD08.SCNMTOP for a complete listing of # dependencies. # Reference: WO #031001-03 #ADD 0340 baaft_rqstrfss = \K9.$ROOK.ba60aft.rqstrfss baaft_rqstrfxm = \K9.$ROOK.ba60aft.rqstrfxm baaft_rqstrfxo = \K9.$ROOK.ba60aft.rqstrfxo baaft_rqstrfxs = \K9.$ROOK.ba60aft.rqstrfxs baaft_svstrfte = \K9.$ROOK.ba60aft.svstrfte baaft_svstrftg = \K9.$ROOK.ba60aft.svstrftg baaft_svstrftm = \K9.$ROOK.ba60aft.svstrftm baaft_svstrfto = \K9.$ROOK.ba60aft.svstrfto baaft_svstrfts = \K9.$ROOK.ba60aft.svstrfts #ENDSCN = BA08251 !@CMP2.24 10/18/04 CCAFMLM 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.CCAFMLM CCAFMLM 6003 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.CCAFMLM CCAFMLM 6003 * ******************************************************************************** #SCN = BA08252 , FILEID = CCAFMLM #VOLUME = $ROOK.BA60AFT #FILE = CCAFMLM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6003 #NEWVERSION = 6004 #ADD 0042C0B # 15OCT2004 CarlsoB # Symptom: Mobile Top-Up Enhancement # Problem: None # Fix: Added support for the Split Transaction Routing File # (STRF) Requester/Server by creating a dependency on # baaft_svstrfto, and inserting a bind step to replace # cntl_util_srv_0010 with strf_entry. # Dependency: Restore RQSTRFSS, RQSTRFXM, RQSTRFXS, SVSTRFTG, # SVSTRFTM, SVSTRFTS, and BA60DDL.DDLFSTRF. # Apply fixes to BAAFTM, BAAFTMM, CCAFMLM, MEGATBL, # SECTBL, SVMHLPS, BA60DDL.BADDLM, BA60DDL.BADDLMM, and # BA60DDL.DDLFOMF. # Run MAKE. # Refer to BA60UD08.SCNMTOP for a complete listing of # dependencies. # Reference: WO #031001-03 #ADD 0060 $(baaft_svstrfto) \ #ADD 0132A07 = #APPEND :var add * from =baaft_svstrfto, delete = #APPEND :var delete code cntl_util_srv_0010 = #APPEND :var select refer ( cntl_util_srv_0010 to strf_entry ) #ENDSCN = BA08252 !@CMP2.24 10/27/04 RQKEYFS 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQKEYFS RQKEYFS 6025 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQKEYFS RQKEYFS 6025 * ******************************************************************************** #SCN = BA08285 , FILEID = RQKEYFS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00193Y0A * 27OCT2004 sanderj * Symptom: Field 53 support. * Problem: None. * Fix: Added '3' (triple length key) and '9' (AKB key) * as allowed values for the KEY-LGTH field. * Modified Paragraph: 550-LOOK-UP-OVERLAY1 * Dependency: Apply fixes to DDSIDDLS, RQKEYFS, SVKEYFS and * VDPSS. Replace VDPSMAN and VDPSUPDT. Run MAKE. * Reference: Case #385322. #ADD 00213J00 DATA DIVISION 01 WC-TRIPLE PIC X(8) VALUE "(TRIPLE)". 01 WC-AKB PIC X(5) VALUE "(AKB)". #ADD 05497Q08 550-LOOK-UP-OVERLAY1 IF KEY-LGTH = "3" MOVE WC-TRIPLE TO WS-KEY-LGTH-DESC ELSE IF KEY-LGTH = "9" MOVE WC-AKB TO WS-KEY-LGTH-DESC ELSE #ENDSCN = BA08285 !@CMP2.24 10/27/04 SVKEYFS 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVKEYFS SVKEYFS 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVKEYFS SVKEYFS 6006 * ******************************************************************************** #SCN = BA08286 , FILEID = SVKEYFS #VOLUME = $ROOK.BA60AFT #FILE = SVKEYFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00147F12 * 27OCT2004 sanderj * Symptom: Field 53 support. * Problem: None. * Fix: Added '3' (triple length key) and '9' (AKB key) * as allowed values for the KEY-LGTH field. * Modified Paragraph: 480-DATA-CHECK-SCREEN * Dependency: Apply fixes to DDSIDDLS, RQKEYFS, SVKEYFS and * VDPSS. Replace VDPSMAN and VDPSUPDT. Run MAKE. * Reference: Case #385322. #ADD 00455A02 DATA DIVISION 01 WC-KEY-LGTH-ERR-MSG PIC X(31) VALUE "KEY LENGTH MUST BE 1, 2, 3 or 9". #REPLACE 01513A1A/01513A1A OFFSET 0 480-DATA-CHECK-SCREEN1 KEY-LGTH NOT = "2" AND KEY-LGTH NOT = "3" AND KEY-LGTH NOT = "9" #REPLACE 01513A1F 480-DATA-CHECK-SCREEN1 MOVE WC-KEY-LGTH-ERR-MSG #ENDSCN = BA08286 !@CMP2.24 11/18/04 SVCPFS 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6032 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6032 * ******************************************************************************** #SCN = BA08310 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 00017e20 * 18NOV2004 rinkc * Symptom: CPF screen no longer displays error line on a * read of a record that does not exist. * Problem: Code added to perform 115-INTER-BINARY-HEX was not * correctly separated from existing processing. * Fix: Added END-IF after PERFORM 115-INTER-BINARY-HEX. * Modified Procs: * 200-READ-RCD * 600-READ-NEXT-RCD * Dependency: Apply fixes to SVCPFS. Run Make. Refer to * BA60UC08.SCNOFFP for a complete listing * of dependencies. * Reference: WO #040213-02 #ADD 00510f02 200-READ-RCD END-IF #ADD 00850f02 600-READ-NEXT-RCD END-IF #ENDSCN = BA08310 !@CMP2.24 12/14/04 SVKEY6S 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVKEY6S SVKEY6S 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVKEY6S SVKEY6S 6000 * ******************************************************************************** #SCN = BA09018 , FILEID = SVKEY6S #VOLUME = $ROOK.BA60AFT #FILE = SVKEY6S #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00041 * 14DEC2004 frederr * Symptom: The server is forcing users to put data in the * 2nd half of the pin key fields on screen 2 when * the key length on screen 1 is set to 2. * Problem: The server is data checking the 2nd half of the * pin key field when the key length is set to 2. * The pin key field is set by interfaces on key * exchanges. The server should not data check this * field in any circumstance. * Fix: Modified the server to not data check the pin key * fields on screen 2 of the KEY6. Also modified the * server to not data check the mac pin key fields * found on screen 3 of the KEY6. * Modified: WS-MISC-MSGS * 480-DATA-CHECK-SCREEN2 * 480-DATA-CHECK-SCREEN3 * Dependency: Apply fix to svkey6s. Run MAKE. * Reference: Case #387248. #DELETE 00517 /00522 DATA DIVISION #DELETE 00565 /00570 DATA DIVISION #DELETE 01537 /01556 480-DATA-CHECK-SCREEN2 #REPLACE 01557 /01566 480-DATA-CHECK-SCREEN2 MOVE WS-OUT-KEY1-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01599 /01618 480-DATA-CHECK-SCREEN2 #REPLACE 01619 /01628 480-DATA-CHECK-SCREEN2 MOVE WS-OUT-KEY2-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01663 /01682 480-DATA-CHECK-SCREEN2 #REPLACE 01683 /01692 480-DATA-CHECK-SCREEN2 MOVE WS-IN-KEY1-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01725 /01744 480-DATA-CHECK-SCREEN2 #REPLACE 01745 /01754 480-DATA-CHECK-SCREEN2 MOVE WS-IN-KEY2-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01790 /01809 480-DATA-CHECK-SCREEN3 #REPLACE 01810 /01819 480-DATA-CHECK-SCREEN3 MOVE WS-OUT-MAC1-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01852 /01871 480-DATA-CHECK-SCREEN3 #REPLACE 01872 /01881 480-DATA-CHECK-SCREEN3 MOVE WS-OUT-MAC2-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01916 /01935 480-DATA-CHECK-SCREEN3 #REPLACE 01936 /01945 480-DATA-CHECK-SCREEN3 MOVE WS-IN-MAC1-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #DELETE 01978 /01997 480-DATA-CHECK-SCREEN3 #REPLACE 01998 /02007 480-DATA-CHECK-SCREEN3 MOVE WS-IN-MAC2-PART2 TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 16. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. #ENDSCN = BA09018 !@CMP2.24 02/18/05 RQMEGAS 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6043 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6043 * ******************************************************************************** #SCN = BA09048 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6043 #NEWVERSION = 6044 #DELETE 00008m00/00020W0A #ADD 00020p0C * 18FEB2005 UrbaneJ * Symptom: When selecting an item on the second page of the * base product menu, the terminal aborted and event * 1048 was generated. The item was selected by * placing the cursor next the item and pressing the * F1 key. * Problem: When selecting an item on the second page of a * product menu, the calculated index value was * incorrect. * Fix: Modified the calculation of the index value for * the product menus. * Removed history sections prior to release 5.0. * Modified paragraph: 350-INTERR-CURSOR-FOR-FILE. * Dependency: Apply fix to RQMEGAS and run Make. * Reference: Case #391317 #REPLACE 01483b03/01483b04 350-INTERR-CURSOR-FOR-FILE COMPUTE WS-VIRTUAL-INDEX = I #ENDSCN = BA09048 !@CMP2.24 03/10/05 COBTKN 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6004 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6004 * ******************************************************************************** #SCN = BA09055 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00057D12 * 10MAR2005 sanderj * Symptom: Added support for the new Switch Common Data * token. * Problem: None. * Fix: Added support for the Switch Common Data token in * the PROD-TKN-TABLE and incremented the occurs for * WS-PROD-TKN-TBL and the value of * PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. Run MAKE. * Reference: WO #050111-01. #ADD 00195D0L 05 ATM66 PIC X(29) VALUE "BY01ATM SWI COMMON DATA TOKEN". 05 POS72 PIC X(29) VALUE "BY02POS SWI COMMON DATA TOKEN". #REPLACE 00197D01 02 WS-PROD-TKN-TBL OCCURS 156 TIMES. #REPLACE 00201D01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 156. #ENDSCN = BA09055 !@CMP2.24 04/06/05 SVLNCFTS6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVLNCFTS SVLNCFTS 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVLNCFTS SVLNCFTS 6006 * ******************************************************************************** #SCN = BA09064 , FILEID = SVLNCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVLNCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00043C0W ! 06APR2005 cooneyc ! Symptom: Error 16 is generated on the OMF when attempting to ! access the sixth LCONF in a network. ! Problem: When the LCONF table is full and a new LCONF is ! accessed, the server attempts to close the OMF for ! an entry in the LCONF table. If the OMF was not opened ! (only reads were done on the LCONF), error 16 is ! generated and the LCONF entry is not cleared. On a ! subsequent attempt to access the LCONF in the ! non-cleared entry, error message "OMF-AUDIT MUST BE ! SPECIFIED IN LCONF" is generated. ! Fix: Added code to skip closing the OMF if it is not open. ! Modified proc: lncf_util_tbl_maint_close ! Dependency: Apply fix to SVLNCFTS and run MAKE. ! Reference: Case #393307 #ADD 08540B00 LNCF_UTIL_TBL_MAINT_CLOSE ! ! If the OMF is not open, do not attempt to close it. It will not ! be open if only reads were done on the entries in the LCONF. ! if lncf_tbl_g[ cur_lncf_idx_g ].omf_fnum <> null_file_num_l then begin omf_err := file_close_( lncf_tbl_g[ cur_lncf_idx_g ].omf_fnum ); end else begin omf_err := false; end; #DELETE 08540B01 LNCF_UTIL_TBL_MAINT_CLOSE #ENDSCN = BA09064 !@CMP2.24 04/27/05 SVERFS 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVERFS SVERFS 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVERFS SVERFS 6001 * ******************************************************************************** #SCN = BA09074 , FILEID = SVERFS #VOLUME = $ROOK.BA60AFT #FILE = SVERFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00045A0H * 27APR2005 cooneyc * Symptom: A "file indicator not valid" message is displayed * when trying to access a record from a sixth * logical network. * Problem: Several fields in the working storage section used * to maintain the logical network tables contained * values of "10" or occurs clauses of "10" instead * of "5". There are only 5 FDs and checks on the * logical network table only checked for 5. * Fix: Modified the following fields to support 5 logical * networks at one time (more than 5 are supported by * reusing entries in the table): L-NET-NAME, * F-NAME-I, OMF-AUDIT-FLAG, F-NAME, F-NAME-EXP, * F-NUM, VALID-FILE-INDICATOR, MAX-FIIDS and * MAX-L-NETS. Also, modified the index to the table * where the new logical network information will * reside (index J is now used instead of K) when the * logical network table is full. * Section modified: working storage * Paragraph modified: 909-TABL-MAINT * Dependency: Apply fix to SVERFS and run Make. * Reference: Case #393643 #REPLACE 00317 DATA DIVISION 05 L-NET-NAME PIC X(4) OCCURS 5 TIMES. #REPLACE 00320 DATA DIVISION 05 F-NAME-I PIC X(24) OCCURS 5 TIMES. #REPLACE 00323 DATA DIVISION 05 OMF-AUDIT-FLAG PIC X OCCURS 5 TIMES. #REPLACE 00326 DATA DIVISION 05 F-NAME PIC X(35) OCCURS 5 TIMES. #REPLACE 00329 DATA DIVISION 05 F-NAME-EXP PIC X(3) OCCURS 5 TIMES. #REPLACE 00333 DATA DIVISION OCCURS 5 TIMES. #REPLACE 00338 DATA DIVISION 88 VALID-FILE-INDICATOR VALUE 1, 2, 3, 4, 5. #DELETE 00339 DATA DIVISION #REPLACE 00354 /00355 DATA DIVISION 05 MAX-FIIDS PIC S9(4) COMP VALUE 5. 05 MAX-L-NETS PIC S9(4) COMP VALUE 5. #REPLACE 01058 /01060 909-TABL-MAINT MOVE LN OF MSG-ERR-EXT TO L-NET-NAME(J) MOVE ERF-FNAME-HOLD TO F-NAME(J) MOVE OMF-AUDIT-HOLD TO OMF-AUDIT-FLAG(J) #ENDSCN = BA09074 !@CMP2.24 05/17/05 SVCPFS 6033 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6033 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6033 * ******************************************************************************** #SCN = BA09084 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6033 #NEWVERSION = 6034 #ADD 00017g0E * 13MAY2005 heuertt * Symptom: Maximum length of track1 data is 68 bytes. * Problem: According to the ISO 7813 standards, the maximum * length for track1 data, including the start and * end sentinals, should be 79 bytes. * Fix: Modified 480-DATA-CHECK-SCREEN1 to allow the field * TRK1-MAX-LGTH OF SEG0 to contain a value up to 79 * bytes. * Dependency: Apply fixes to SVCPFS and run MAKE. * Reference: Case 394843 #REPLACE 00749X3J 480-DATA-CHECK-SCREEN1 IF TRK1-MAX-LGTH OF SEG0 OF CPF > 79 #REPLACE 00749X3N 480-DATA-CHECK-SCREEN1 MOVE "TRACK 1 MAX LENGTH CAN RANGE FROM 0 - 79" #ENDSCN = BA09084 !@CMP2.24 08/15/05 COBTKN 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6005 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6005 * ******************************************************************************** #SCN = BA09108 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00057E0C * 12AUG2005 owallad * Symptom: VisaNet October 2005 Mandates and Miscellaneous * Enhancements * Problem: None. * Fix: Added support for Healthcare token ("CL") and * Reward Program Identification token ("CQ"). * Added tokens: POS73 - REWARD PROGRAM TOKEN * POS74 - HEALTHCARE TOKEN * Dependency: Apply fix to COBTKN, DDLPSTKN, PSTKNCVS, and * PSTKNID and run MAKE. * Reference: WO #050426-04 #ADD 00195E02 05 POS73 PIC X(29) VALUE "CL02POS HEALTHCARE TOKEN ". 05 POS74 PIC X(29) VALUE "CQ02POS REWARD PROGRAM TOKEN ". #REPLACE 00197E01 02 WS-PROD-TKN-TBL OCCURS 158 TIMES. #REPLACE 00201E01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 158. #ENDSCN = BA09108 !#CMP2.26 10/15/05 COBTKN 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6006 * ******************************************************************************** #SCN = BA09301 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00057F0B * 14OCT2005 SteffeJ * Symptom: Mobile Top-Up POS Acquiring Integration * Enhancement * Problem: None * Fix: Added support for the POS Split Transaction * Routing Token ("CR") to support Mobile * transactions: POS75 - POS SPLIT TXN ROUTING TKN * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run MAKE. * Refer to BA60UD09.SCNMTOP for a complete listing * of dependencies. * Reference: WO #041224-01 * 14OCT2005 SchieuR * Symptom: Enhanced Reversal Routing in HISO * Problem: None * Fix: Added support for the Enhanced Reversal Routing * Token ("CS"): POS76 - ENHANCED RVSL RTE TKN * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run MAKE. * Refer to BA60UD09.SCNERRH for a complete listing * of dependencies. * Reference: Case #325481 * 14OCT2005 Wisharj * Symptom: Diebold BNA Enhancement * Problem: None. * Fix: Added support for the Diebold BNA Counts Token in * the PROD-TKN-TABLE and incremented the occurs for * WS-PROD-TKN-TBL and the value of * PROD-TKN-TABLE-CNT. * Dependency: Apply fixes to ATTKNID, COBTKN and DDLATTKN and * run MAKE. * Refer to BA60UD09.SCNDBNA for a complete listing * of dependencies. * Reference: WO #020415-01 #ADD 00195F02 05 POS75 PIC X(29) VALUE "CR02POS SPLIT TXN ROUTING TKN". 05 POS76 PIC X(29) VALUE "CS02POS ENHANCED RVSL RTE TKN". 05 ATM67 PIC X(29) VALUE "AO01ATM DIEBOLD BNA COUNTS ". #DELETE 00195F03/00195A03 #ADD 00197 02 WS-PROD-TKN-TBL OCCURS 161 TIMES. #DELETE 00197A00/00198A01 #ADD 00201 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 161. #DELETE 00201A00 / L #ENDSCN = BA09301 !#CMP2.26 10/15/05 MEGATBL 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.MEGATBL MEGATBL 6007 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.MEGATBL MEGATBL 6007 * ******************************************************************************** #SCN = BA09302 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00046G0H * 14OCT2005 dargyj * Symptom: BASE24-inventory Initial Release * Problem: None. * Fix: Added an entry for the BASE24-inventory Stock * Configuration File (NSCF). * Dependency: Apply fixes to PITABLE, MEGATBL, SECTBL, SVMHLPS * and BA60CSE.DESCTBL. * Restore NV60* subvolumes and run Make. * Refer to BA60UD09.SCNINV for a complete listing of * dependencies. * Reference: WO #041223-01 #ADD 00103G02 "NSCF", #ENDSCN = BA09302 !#CMP2.26 10/15/05 PITABLE 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.PITABLE PITABLE 6005 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.PITABLE PITABLE 6005 * ******************************************************************************** #SCN = BA09303 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00060E0B * 14OCT2005 dargyj * Symptom: BASE24-inventory Initial Release * Problem: None. * Fix: Added the BASE24-inventory product indicator to * PI-TABLE. Updated the PRODUCT-DESC-TABLE to * to contain the description for BASE24-inventory. * Updated the VIRTUAL-DESCR-PROD-TABLE to contain * the description for BASE24-inventory. * Dependency: Apply fixes to PITABLE, MEGATBL, SECTBL, SVMHLPS * and BA60CSE.DESCTBL. * Restore NV60* subvolumes and run Make. * Refer to BA60UD09.SCNINV for a complete listing of * dependencies. * Reference: WO #041223-01 #REPLACE 00085 05 INVENTORY PIC X VALUE "N". #REPLACE 00358 05 FILLER-11 PIC X(12) VALUE "INVENTORY ". #REPLACE 00645 "INVENTORY INV ". #ENDSCN = BA09303 !#CMP2.26 10/15/05 SECTBL 6021 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6021 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6021 * ******************************************************************************** #SCN = BA09305 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6021 #NEWVERSION = 6022 #ADD 00268U0U * 14OCT2005 UrbaneJ * Symptom: Upgrade HPDH to Latest Initialization * Specifications * Problem: None * Fix: Added entries for HPTC Screens 11, 13, 15, and 16. * Increased number of entries by 4. * Dependency: Apply fix to SECTBL and run Make. * Refer to BA60UD09.SCNHPDHI for a complete listing * of dependencies. * Reference: WO #041203-01 * * 14OCT2005 dargyj * Symptom: BASE24-inventory Initial Release * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * the NSCF and the NTLF. Increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 4. * Dependency: Apply fix to PITABLE, MEGATBL, SECTBL, SVMHLPS * and BA60CSE.DESCTBL. Restore NV60* subvolumes. * Run Make. Refer to BA60UD09.SCNINV for a complete * listing of dependencies. * Reference: WO #041223-01 * * 14OCT2005 kurzenb * Symptom: Shared 912 AKDS enhancement * Shared NDC+ AKDS enhancement * Problem: None. * Fix: Added ATD22 to PROD-SCRN-ACCESS-TABLE-DATA. * Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fix to SECTBL and run Make. Refer to * BA60UD09.SCNWDAK and BA60UD09.SCNWNAK for a * complete listing of dependencies. * Reference: WO #041129-01 (Shared 912 AKDS) * WO #030917-03 (Shared NDC+ AKDS) * * 14OCT2005 KoeppeK * Symptom: Mobile Top-Up POS Acquiring Integration * Enhancement * Problem: None. * Fix: Added entry to PROD-SCRN-ACCESS-TABLE-DATA for * ACNF9. Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fix to SECTBL. Run Make. Refer to * BA60UD09.SCNMTOPP for a complete listing of * dependencies. * Reference: WO #041224-01 * * 14OCT2005 AlbeldR * Symptom: Expanded AST/RTBL Enhancement * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * two new AST screens. Increased PROD-SCRN-ACC-TABL * and PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fix to SECTBL. Run Make. Refer to * BA60UD09.SCNRTBL for a complete listing of * dependencies. * Reference: WO #041002-11 * #ADD 00307J01 05 ACNF9 PIC X(35) VALUE "ACNF090002PAGE 8 OF REC F ". #ADD 00345 05 AST7 PIC X(35) VALUE "AST 070202SERVICE ENTRIES 37-48 ". 05 AST8 PIC X(35) VALUE "AST 080202SERVICE ENTRIES 37-48 CON". 05 AST9 PIC X(35) VALUE "AST 090202ROUTING TABLE DISPLAY ". #DELETE 00346 #ADD 00359M08 05 ATD22 PIC X(35) VALUE "ATD 220101SECURITY INFORMATION ". #ADD 00541 05 HTC11 PIC X(35) VALUE "HPTC110202HYPERCOM T7 ICC TABLE ". #ADD 00542 05 HTC13 PIC X(35) VALUE "HPTC130202HYPERCOM T7 CHIPDATA TBL ". #ADD 00543 05 HTC15 PIC X(35) VALUE "HPTC150202HYPERCOM T7 REV KEY TABLE". 05 HTC16 PIC X(35) VALUE "HPTC160202HYPERCOM T7 KEYDATA TABLE". #ADD 00671 05 NSCF1 PIC X(35) VALUE "NSCF01000AINVENTORY STOCK CNFG ". 05 NSCF2 PIC X(35) VALUE "NSCF02000AINVENTORY STOCK CNFG ". 05 NSCF3 PIC X(35) VALUE "NSCF03000AINVENTORY STOCK CNFG ". #REPLACE 00671A02 05 NTLF PIC X(35) VALUE "NTLF01000ANTLF PERUSAL ". #ADD 00893 05 PROD-SCRN-ACC-TABL OCCURS 605 TIMES. #DELETE 00893I00/00894I02 #ADD 00906 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 605. #DELETE 00906I00 / L #ENDSCN = BA09305 !#CMP2.26 10/15/05 SVMHLPS 6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6011 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVMHLPS SVMHLPS 6011 * ******************************************************************************** #SCN = BA09306 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00101K0T * 14OCT2005 dargyj * Symptom: BASE24-inventory Initial Release * Problem: None. * Fix: Added support for the BASE24-inventory AFT. * Added working storage items INV-TABLE and * INV-TABLE-ITEM. * Modified Paragraphs: * 100-DETERMINE-MENU-TYPE * Added Paragraphs: * 250-FILL-INV-MENU * 250-SEARCH-INV-TABLE * 250-SEARCH-INV-CSE-TABLE * Dependency: Apply fixes to PITABLE, MEGATBL, SECTBL, SVMHLPS * and BA60CSE.DESCTBL. * Restore NV60* subvolumes and run Make. * Refer to BA60UD09.SCNINV for a complete listing of * dependencies. * Reference: WO #041223-01 #ADD 00530B0B DATA DIVISION 01 INV-TABLE. 05 FILLER PIC X(31) VALUE "NSCFINVENTORY STOCK CNFG FILE". 05 FILLER PIC X(31) VALUE "NTLFINVENTORY TRANSACTION LOG". 01 INV-TABLE-ITEM REDEFINES INV-TABLE. 05 INV-ENTRY OCCURS 9 TIMES. 10 INV-TYPE PIC X(4). 10 INV-NAME PIC X(27). 01 INV-ENTRIES-L PIC S9(4) COMP VALUE 2. COPY INV-CSE-TABLE OF "=BACSE_DESCTBL". #ADD 00647 100-DETERMINE-MENU-TYPE ELSE IF PROD-CDE OF WS-SCREEN-TABLE = 10 PERFORM 250-FILL-INV-MENU VARYING MENU-SUB FROM 1 BY 1 UNTIL MENU-SUB > 32 #ADD 00953 240-SEARCH-OPR-TABLE / 250-FILL-INV-MENU. IF REQ-NAME(MENU-SUB) = SPACES MOVE 32 TO MENU-SUB ELSE MOVE "N" TO DESCR-FOUND-FLAG PERFORM 250-SEARCH-INV-TABLE VARYING TABLE-SUB FROM TABLE-SUB BY 1 UNTIL TABLE-SUB > INV-ENTRIES-L OR DESCR-FOUND IF DESCR-FOUND SUBTRACT 1 FROM TABLE-SUB MOVE INV-NAME(TABLE-SUB) TO REQ-DESCR(MENU-SUB) ELSE PERFORM 250-SEARCH-INV-TABLE VARYING TABLE-SUB FROM 1 BY 1 UNTIL TABLE-SUB > INV-ENTRIES-L OR DESCR-FOUND IF DESCR-FOUND SUBTRACT 1 FROM TABLE-SUB MOVE INV-NAME(TABLE-SUB) TO REQ-DESCR(MENU-SUB) ELSE PERFORM 250-SEARCH-INV-CSE-TABLE VARYING TABLE-SUB FROM 1 BY 1 UNTIL TABLE-SUB > INV-CSE-ENTRIES-L OR DESCR-FOUND IF DESCR-FOUND SUBTRACT 1 FROM TABLE-SUB MOVE INV-CSE-NAME(TABLE-SUB) TO REQ-DESCR(MENU-SUB) ELSE MOVE "UNDEFINED" TO REQ-DESCR(MENU-SUB). 250-SEARCH-INV-TABLE. IF INV-TYPE(TABLE-SUB) = REQ-NAME(MENU-SUB) MOVE "Y" TO DESCR-FOUND-FLAG. 250-SEARCH-INV-CSE-TABLE. IF INV-CSE-TYPE(TABLE-SUB) = REQ-NAME(MENU-SUB) MOVE "Y" TO DESCR-FOUND-FLAG. #ENDSCN = BA09306 !#CMP2.26 10/17/05 RQSECS 6021 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQSECS RQSECS 6021 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQSECS RQSECS 6021 * ******************************************************************************** #SCN = BA09338 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6021 #NEWVERSION = 6022 #DELETE 00011T00/00019O0A #ADD 00019U0G * 14OCT2005 SchieuR * Symptom: BASE24 Pathway Complex Passwords Enhancement * Problem: None * Fix: Added support for the BASE24 Pathway Complex * Passwords Enhancement. * Paragraphs modified: * 400-SAVE-RECORD * 595-CLEAR-DATA * Dependency: Apply fixes to RQSECS, SCRNMEGA and SVISECS and * run Make. Refer to BA60UD09.SCNPSWD for a * complete listing of dependencies. * Reference: WO #040628-14 #REPLACE 00573T01 400-SAVE-RECORD MOVE 1016 TO SEC-DATA-LEN OF SEC #REPLACE 00893T01 595-CLEAR-DATA MOVE 1016 TO SEC-DATA-LEN OF SEC. #ENDSCN = BA09338 !#CMP2.26 10/17/05 SVISECS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6026 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6026 * ******************************************************************************** #SCN = BA09339 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6026 #NEWVERSION = 6027 #DELETE 00001T00/01101 #ADD 01101Z0R * 14OCT2005 SchieuR * Symptom: BASE24 Pathway Complex Passwords Enhancement * Problem: None * Fix: Added support for BASE24 Pathway Complex Passwords * enhancement. * Paragraphs added: * 210-CHECK-PASSWORD * 210-CLEAR-PSWD-HIST * 210-CONVERT-PASSWORD * 210-ENCRYPT-PASSWORD * 210-FIX-PASSWORD-MAX-CHNG * 210-FIX-PASSWORD-MAX-STORE * 210-UPSHIFT-NEW-PASSWORD * 210-UPSHIFT-PASSWORD * 240-PSWD-HIST-CHK * 240-PSWD-HIST-SHIFT * 520-BLANK-PASSWORD * Paragraphs modified: * 210-ADD-SUPER-SUPER * 210-INVALID-PASSWORD * 210-LOGON * 220-VALIDATE-LN-CHANGE * 240-CHANGE-PASSWORD * 240-UPDATE-CUR-LOGON-ATTEMPTS * 520-PASSWORD-UPDATE-SEC-RCD * 540-ADD-SEC-RCD * 600-ADD-LIKE-SEC-RCD * 909-RETRIEVE-LCONF-PARAMS * Dependency: Apply fixes to RQSECS, SCRNMEGA and SVISECS and * run Make. Refer to BA60UD09.SCNPSWD for a * complete listing of dependencies. * Reference: WO #040628-14 #REPLACE 01391W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01411W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01415W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01435W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01439W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01459W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01463W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01483W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01487W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01507W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01511W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01531W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01535W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01555W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01559W01 DATA DIVISION RECORD CONTAINS 334 TO 1062 CHARACTERS #REPLACE 01579W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #REPLACE 01769W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #ADD 01780 DATA DIVISION 01 WS-PASSWORD-HASH PIC X(20). 01 WS-PASSWORD-KEY PIC X(8). 01 WS-PASSWORD-TEMP PIC X(8). 01 PASSWORD-ERROR-FLAG PIC X VALUE " ". 88 PASSWORD-ERROR VALUE "Y". 01 PASSWORD-FRMT-ERROR-FLAG PIC X VALUE " ". 88 PASSWORD-FRMT-ERROR VALUE "Y". 01 PASSWORD-LENGTH PIC S9(4) COMP VALUE 0. 01 VALID-PASSWORD PIC S9(4) COMP VALUE 0. 01 NUM-PASSWORD-CHNG-TODAY PIC S9(4) COMP VALUE 0. 01 PASSWORD-MAX-CHNG PIC 9(2). 01 PASSWORD-MAX-STORE PIC 9(2). 01 PASSWORD-NUM-ALPHA PIC 9. 01 PASSWORD-NUM-NUMERIC PIC 9. 01 PASSWORD-NUM-SPCL PIC 9. #REPLACE 01788W01 DATA DIVISION 05 SEC-BASE-LEN PIC S9(4) COMP VALUE 1062. #REPLACE 01820W01 DATA DIVISION OCCURS 288 TO 1016 TIMES #ADD 01840A04 DATA DIVISION 02 WS-PSWD-HIST OCCURS 10 TIMES. 03 WS-PSWD PIC X(20). 03 WS-PSWD-CHNG-DAT. 04 YY PIC X(2). 04 MM PIC X(2). 04 DD PIC X(2). #ADD 02453A08 DATA DIVISION 01 LCONF-PASSWORD-COMPLEX PIC X. #ADD 02453A09 DATA DIVISION 01 LCONF-PASSWORD-MAX-CHNG. 05 PASSWORD-MAX-CHNG-CHAR PIC X OCCURS 2 TIMES. 01 LCONF-PASSWORD-MAX-STORE. 05 PASSWORD-MAX-STORE-CHAR PIC X OCCURS 2 TIMES. 01 LCONF-PASSWORD-NUM-ALPHA PIC X. 01 LCONF-PASSWORD-NUM-NUMERIC PIC X. 01 LCONF-PASSWORD-NUM-SPCL PIC X. #ADD 03348W01 200-DETERMINE-TRAN-CODE PERFORM 210-UPSHIFT-PASSWORD #ADD 03348W03 200-DETERMINE-TRAN-CODE PERFORM 210-ENCRYPT-PASSWORD #DELETE 03348W04/03348W06 200-DETERMINE-TRAN-CODE #ADD 03348W0R 200-DETERMINE-TRAN-CODE MOVE "N" TO PASSWORD-ERROR-FLAG MOVE "N" TO PASSWORD-FRMT-ERROR-FLAG PERFORM 210-CHECK-PASSWORD IF PASSWORD-ERROR OR PASSWORD-FRMT-ERROR OR NOT NO-ERROR #DELETE 03348W0S 200-DETERMINE-TRAN-CODE #ADD 03489W0L 210-CHECK-LOGON-ATTEMPTS 210-CHECK-PASSWORD. IF LCONF-PASSWORD-COMPLEX = "N" IF WS-PASSWORD-HOLD NOT = PASSWORD OF SEC-BASE-INFO MOVE "Y" TO PASSWORD-ERROR-FLAG ELSE MOVE "N" TO PASSWORD-ERROR-FLAG ELSE IF WS-PASSWORD-HASH NOT = PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE PASSWORD OF SEC-BASE-INFO TO WS-PASSWORD-TEMP MOVE "AAAAAAAA" TO WS-PASSWORD-KEY ENTER TAL "DECODE" OF UTILIB USING WS-PASSWORD-TEMP, WS-PASSWORD-KEY, WS-WORK-AREA IF WS-PASSWORD-TEMP = "AAAAAAAA" MOVE "Y" TO PASSWORD-ERROR-FLAG ELSE INSPECT WS-PASSWORD-HOLD CONVERTING "abcdefghijklmnopqrstuvwxyz" TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ENTER TAL "ENCODE" OF UTILIB USING WS-PASSWORD-HOLD, WS-PASSWORD-HOLD, WS-WORK-AREA IF WS-PASSWORD-HOLD NOT = PASSWORD OF SEC-BASE-INFO MOVE "Y" TO PASSWORD-ERROR-FLAG ELSE IF TRAN-CDE OF MSG-SECURITY-EXT OF MESSAGE-IN NOT = 19 ENTER TAL "STRLEN" OF UTILIB USING PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, MAX-LENGTH GIVING PASSWORD-LENGTH ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD IF VALID-PASSWORD = 0 MOVE "Y" TO PASSWORD-FRMT-ERROR-FLAG ELSE MOVE "N" TO PASSWORD-FRMT-ERROR-FLAG PERFORM 210-CONVERT-PASSWORD ELSE MOVE "N" TO PASSWORD-ERROR-FLAG ELSE MOVE "N" TO PASSWORD-ERROR-FLAG. 210-CLEAR-PSWD-HIST. MOVE SPACES TO PSWD-HIST OF SEC-BASE-INFO(I). 210-CONVERT-PASSWORD. PERFORM 912-SEC-RCD-LOCKING. IF NO-ERROR MOVE SEC-DATA OF SEC TO SEC-BASE-INFO MOVE WS-PASSWORD-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE PASSWORD-CHG-DAT OF SEC-BASE-INFO TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "AAAAAAAA" TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA MOVE SEC-BASE-INFO TO SEC-DATA OF SEC PERFORM 913-SEC-RCD-REWRITE IF NO-ERROR NEXT SENTENCE ELSE MOVE "REWRITE ERROR ON ATTEMPTED PASSWORD CONVERSION" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE GUARDIAN-ERR TO WS-GUAR-ERR MOVE WS-GUAR-ERR TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT PERFORM 100-SEC-ERROR-TEXT-FILL PERFORM 916-SEC-RCD-UNLOCK ELSE MOVE "READ WITH LOCK ERROR ON SEC FILE" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE GUARDIAN-ERR TO WS-GUAR-ERR MOVE WS-GUAR-ERR TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT PERFORM 100-SEC-ERROR-TEXT-FILL. 210-ENCRYPT-PASSWORD. IF LCONF-PASSWORD-COMPLEX = "N" ENTER TAL "ENCODE" OF UTILIB USING WS-PASSWORD-HOLD, WS-PASSWORD-HOLD, WS-WORK-AREA ELSE ENTER TAL "SHA1^HASH" OF UTILIB USING WS-PASSWORD-HOLD, 8, WS-PASSWORD-HASH. 210-UPSHIFT-NEW-PASSWORD. IF LCONF-PASSWORD-COMPLEX = "N" INSPECT NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN CONVERTING "abcdefghijklmnopqrstuvwxyz" TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 210-UPSHIFT-PASSWORD. IF LCONF-PASSWORD-COMPLEX = "N" INSPECT PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN CONVERTING "abcdefghijklmnopqrstuvwxyz" TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ". #ADD 03489A0S 210-INVALID-PASSWORD IF NOT NO-ERROR EXIT PARAGRAPH. #ADD 03489W0S 210-INVALID-PASSWORD IF PASSWORD-FRMT-ERROR MOVE "PASSWORD REQUIRES CHANGE, COMPLEXITY REQUIREMENTS NO - "T MET" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT ELSE MOVE "PASSWORD NOT VALID, REENTER ALL PASSWORD DATA" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT. #DELETE 03489A0X/03489W0U 210-INVALID-PASSWORD #ADD 03489A1M 210-FIX-PASSWORD-CHNG-INT 210-FIX-PASSWORD-MAX-CHNG. IF PASSWORD-MAX-CHNG-CHAR(M) = SPACE MOVE "0" TO PASSWORD-MAX-CHNG-CHAR(M). 210-FIX-PASSWORD-MAX-STORE. IF PASSWORD-MAX-STORE-CHAR(M) = SPACE MOVE "0" TO PASSWORD-MAX-STORE-CHAR(M). #REPLACE 03495W01 210-ADD-SUPER-SUPER MOVE 1016 TO SEC-DATA-LEN OF SEC. #ADD 03508W00 210-ADD-SUPER-SUPER PERFORM 210-UPSHIFT-NEW-PASSWORD. #DELETE 03508W01/03509 210-ADD-SUPER-SUPER #ADD 03511A01 210-ADD-SUPER-SUPER PERFORM 210-CLEAR-PSWD-HIST VARYING I FROM 1 BY 1 UNTIL I > 10. IF LCONF-PASSWORD-COMPLEX = "N" MOVE NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA ELSE ENTER TAL "STRLEN" OF UTILIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, MAX-LENGTH GIVING NEW-PASSWORD-LENGTH ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, NEW-PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD IF VALID-PASSWORD = 0 MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD COMPLEXITY REQUIREMENTS NOT MET" TO WS-ERR-TXT MOVE "PASSWORD COMPLEXITY REQUIREMENTS NOT MET" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 3 TO ERR-CDE OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT EXIT PARAGRAPH ELSE ENTER TAL "SHA1^HASH" OF UTILIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, 8, PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE TIME-FORMAT TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "AAAAAAAA" TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA. #DELETE 03511A02/03511A05 210-ADD-SUPER-SUPER #ADD 03651W00 220-VALIDATE-LN-CHANGE PERFORM 210-UPSHIFT-PASSWORD #ADD 03651A02 220-VALIDATE-LN-CHANGE PERFORM 210-ENCRYPT-PASSWORD IF LCONF-PASSWORD-COMPLEX = "N" AND #DELETE 03651A03/03651A06 220-VALIDATE-LN-CHANGE #REPLACE 03651A07 220-VALIDATE-LN-CHANGE WS-PASSWORD-HOLD NOT = PASSWORD OF SEC-BASE-INFO #ADD 03660 220-VALIDATE-LN-CHANGE ELSE IF LCONF-PASSWORD-COMPLEX = "Y" AND WS-PASSWORD-HASH NOT = PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "Y" TO ERROR-FLAG MOVE 3 TO ERR-CDE OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT MOVE "PASSWORD NOT VALID, LOGICAL NET CHANGE DENIED" TO WS-ERR-TXT #ADD 03849W0V 240-CHANGE-PASSWORD PERFORM 210-UPSHIFT-NEW-PASSWORD IF LCONF-PASSWORD-COMPLEX = "N" #REPLACE 03849W0W/03849W10 240-CHANGE-PASSWORD ENTER TAL "ENCODE" OF UTILIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, WS-WORK-AREA ELSE ENTER TAL "SHA1^HASH" OF UTILIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, 8, WS-PASSWORD-HASH. #REPLACE 03849W12 240-CHANGE-PASSWORD IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "N" #ADD 03849W1H 240-CHANGE-PASSWORD IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" PERFORM 110-GET-TIMESTAMP PERFORM 210-GET-TIME MOVE 0 TO NUM-PASSWORD-CHNG-TODAY PERFORM 240-PSWD-HIST-CHK VARYING X FROM 1 BY 1 UNTIL X > PASSWORD-MAX-STORE IF NO-ERROR IF NUM-PASSWORD-CHNG-TODAY >= PASSWORD-MAX-CHNG AND PASSWORD-MAX-CHNG NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE "MAXIMUM PASSWORD CHANGES FOR TODAY HAS BEEN RE - "ACHED" TO WS-ERR-TXT MOVE "MAXIMUM PASSWORD CHANGES FOR TODAY HAS BEEN RE - "ACHED" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 5 TO ERR-CDE OF MSG-ERR-EXT MOVE "0005" TO ERR-NUM OF MSG-ERR-EXT MOVE "0005" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT ELSE ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN, NEW-PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD IF VALID-PASSWORD = 0 MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD COMPLEXITY REQUIREMENTS NOT MET" TO WS-ERR-TXT MOVE "PASSWORD COMPLEXITY REQUIREMENTS NOT MET" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 3 TO ERR-CDE OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT ELSE PERFORM 240-PSWD-HIST-SHIFT VARYING X FROM 10 BY -1 UNTIL X = 1 MOVE WS-PASSWORD-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) PERFORM 110-GET-TIMESTAMP PERFORM 210-GET-TIME MOVE TIME-FORMAT TO PASSWORD-CHG-DAT OF SEC-BASE-INFO MOVE TIME-FORMAT TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "AAAAAAAA" TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA. #REPLACE 03854W01 240-CHANGE-PASSWORD MOVE 1016 TO SEC-DATA-LEN OF SEC #ADD 03885U0V 240-PASSWORD-EXPIRE-CK 240-PSWD-HIST-CHK. IF WS-PASSWORD-HASH = PSWD OF PSWD-HIST OF SEC-BASE-INFO(X) MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD CAN NOT BE REUSED TRY AGAIN" TO WS-ERR-TXT MOVE "PASSWORD CAN NOT BE REUSED TRY AGAIN" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT COMPUTE X = PASSWORD-MAX-STORE + 1 ELSE IF TIME-FORMAT = PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(X) COMPUTE NUM-PASSWORD-CHNG-TODAY = NUM-PASSWORD-CHNG-TODAY + 1. 240-PSWD-HIST-SHIFT. IF X > PASSWORD-MAX-STORE MOVE SPACES TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(X) MOVE SPACES TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(X) ELSE COMPUTE Y = X - 1 MOVE PSWD OF PSWD-HIST OF SEC-BASE-INFO(Y) TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(X) MOVE PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(Y) TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(X). #ADD 03957A07 240-UPDATE-CUR-LOGON-ATTEMPTS IF NOT NO-ERROR EXIT PARAGRAPH. #ADD 04516A0M 520-PASSWORD-UPDATE-SEC-RCD PERFORM 520-BLANK-PASSWORD #DELETE 04516A0N/04516A0R 520-PASSWORD-UPDATE-SEC-RCD #ADD 04516A1G 520-PASSWORD-UPDATE-SEC-RCD 520-BLANK-PASSWORD. IF LCONF-PASSWORD-COMPLEX = "N" MOVE SPACES TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA ELSE PERFORM 240-PSWD-HIST-SHIFT VARYING X FROM 10 BY -1 UNTIL X = 1 MOVE SPACES TO WS-PASSWORD-HOLD ENTER TAL "SHA1^HASH" OF UTILIB USING WS-PASSWORD-HOLD, 8, PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE ZEROES TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "AAAAAAAA" TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA. #REPLACE 04813W01 540-ADD-SEC-RCD MOVE 1016 TO SEC-DATA-LEN OF SEC #ADD 04831 540-ADD-SEC-RCD PERFORM 210-CLEAR-PSWD-HIST VARYING I FROM 1 BY 1 UNTIL I > 10 #REPLACE 04832 540-ADD-SEC-RCD PERFORM 520-BLANK-PASSWORD #DELETE 04834A02/04834A05 540-ADD-SEC-RCD #ADD 06018 600-ADD-LIKE-SEC-RCD PERFORM 210-CLEAR-PSWD-HIST VARYING I FROM 1 BY 1 UNTIL I > 10 #REPLACE 06019 600-ADD-LIKE-SEC-RCD PERFORM 520-BLANK-PASSWORD #DELETE 06021A02/06021A05 600-ADD-LIKE-SEC-RCD #ADD 07025A1Y 909-RETRIEVE-LCONF-PARAMS MOVE "PASSWORD-COMPLEX" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-COMPLEX IF LCONF-PASSWORD-COMPLEX NOT = "Y" AND LCONF-PASSWORD-COMPLEX NOT = "N" MOVE "N" TO LCONF-PASSWORD-COMPLEX ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "N" TO LCONF-PASSWORD-COMPLEX. #ADD 07025A2A 909-RETRIEVE-LCONF-PARAMS MOVE "PASSWORD-MAX-CHNG-PER-DAY" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-MAX-CHNG ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-MAX-CHNG, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-MAX-CHNG VARYING M FROM 1 BY 1 UNTIL M > 2 IF LCONF-PASSWORD-MAX-CHNG NOT = "00" AND LCONF-PASSWORD-MAX-CHNG NOT = "01" AND LCONF-PASSWORD-MAX-CHNG NOT = "02" AND LCONF-PASSWORD-MAX-CHNG NOT = "03" AND LCONF-PASSWORD-MAX-CHNG NOT = "04" AND LCONF-PASSWORD-MAX-CHNG NOT = "05" AND LCONF-PASSWORD-MAX-CHNG NOT = "06" AND LCONF-PASSWORD-MAX-CHNG NOT = "07" AND LCONF-PASSWORD-MAX-CHNG NOT = "08" AND LCONF-PASSWORD-MAX-CHNG NOT = "09" AND LCONF-PASSWORD-MAX-CHNG NOT = "10" MOVE "00" TO LCONF-PASSWORD-MAX-CHNG ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "00" TO LCONF-PASSWORD-MAX-CHNG. MOVE LCONF-PASSWORD-MAX-CHNG TO PASSWORD-MAX-CHNG. MOVE "PASSWORD-MAX-STORE" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-MAX-STORE ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-MAX-STORE, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-MAX-STORE VARYING M FROM 1 BY 1 UNTIL M > 2 IF LCONF-PASSWORD-MAX-STORE NOT = "01" AND LCONF-PASSWORD-MAX-STORE NOT = "02" AND LCONF-PASSWORD-MAX-STORE NOT = "03" AND LCONF-PASSWORD-MAX-STORE NOT = "04" AND LCONF-PASSWORD-MAX-STORE NOT = "05" AND LCONF-PASSWORD-MAX-STORE NOT = "06" AND LCONF-PASSWORD-MAX-STORE NOT = "07" AND LCONF-PASSWORD-MAX-STORE NOT = "08" AND LCONF-PASSWORD-MAX-STORE NOT = "09" AND LCONF-PASSWORD-MAX-STORE NOT = "10" MOVE "01" TO LCONF-PASSWORD-MAX-STORE ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "01" TO LCONF-PASSWORD-MAX-STORE. MOVE LCONF-PASSWORD-MAX-STORE TO PASSWORD-MAX-STORE. MOVE "PASSWORD-NUM-ALPHA" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-NUM-ALPHA IF LCONF-PASSWORD-NUM-ALPHA NOT = "0" AND LCONF-PASSWORD-NUM-ALPHA NOT = "1" AND LCONF-PASSWORD-NUM-ALPHA NOT = "2" AND LCONF-PASSWORD-NUM-ALPHA NOT = "3" AND LCONF-PASSWORD-NUM-ALPHA NOT = "4" AND LCONF-PASSWORD-NUM-ALPHA NOT = "5" AND LCONF-PASSWORD-NUM-ALPHA NOT = "6" AND LCONF-PASSWORD-NUM-ALPHA NOT = "7" AND LCONF-PASSWORD-NUM-ALPHA NOT = "8" MOVE "0" TO LCONF-PASSWORD-NUM-ALPHA ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "0" TO LCONF-PASSWORD-NUM-ALPHA. MOVE LCONF-PASSWORD-NUM-ALPHA TO PASSWORD-NUM-ALPHA. MOVE "PASSWORD-NUM-NUMERIC" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-NUM-NUMERIC IF LCONF-PASSWORD-NUM-NUMERIC NOT = "0" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "1" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "2" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "3" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "4" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "5" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "6" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "7" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "8" MOVE "0" TO LCONF-PASSWORD-NUM-NUMERIC ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "0" TO LCONF-PASSWORD-NUM-NUMERIC. MOVE LCONF-PASSWORD-NUM-NUMERIC TO PASSWORD-NUM-NUMERIC. MOVE "PASSWORD-NUM-SPCL" TO ITEM-NAME OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT TO LCONF-PASSWORD-NUM-SPCL IF LCONF-PASSWORD-NUM-SPCL NOT = "0" AND LCONF-PASSWORD-NUM-SPCL NOT = "1" AND LCONF-PASSWORD-NUM-SPCL NOT = "2" AND LCONF-PASSWORD-NUM-SPCL NOT = "3" AND LCONF-PASSWORD-NUM-SPCL NOT = "4" AND LCONF-PASSWORD-NUM-SPCL NOT = "5" AND LCONF-PASSWORD-NUM-SPCL NOT = "6" AND LCONF-PASSWORD-NUM-SPCL NOT = "7" AND LCONF-PASSWORD-NUM-SPCL NOT = "8" MOVE "0" TO LCONF-PASSWORD-NUM-SPCL ELSE NEXT SENTENCE ELSE MOVE 0 TO FILE-STAT-ELEMENT MOVE "0" TO LCONF-PASSWORD-NUM-SPCL. MOVE LCONF-PASSWORD-NUM-SPCL TO PASSWORD-NUM-SPCL. IF PASSWORD-NUM-ALPHA + PASSWORD-NUM-NUMERIC + PASSWORD-NUM-SPCL > 8 MOVE "Y" TO ERROR-FLAG MOVE "NUM ALPHA, NUMERIC & SPCL CHARS IN LCONF EXCEEDS MAX - " PASSWORD SIZE" TO WS-ERR-TXT MOVE "NUM ALPHA, NUMERIC & SPCL CHARS IN LCONF EXCEEDS MAX - " PASSWORD SIZE" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 7 TO ERR-CDE OF MSG-ERR-EXT MOVE "0007" TO ERR-NUM OF MSG-ERR-EXT MOVE "0007" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 7 TO WS-GUAR-ERR. #ENDSCN = BA09339 !#CMP2.26 10/28/05 SVCPFS 6034 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6034 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6034 * ******************************************************************************** #SCN = BA09351 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6034 #NEWVERSION = 6035 #ADD 00017h0C * 14OCT2005 rinkc * Symptom: MasterCard Secure Code Support in SIV * Problem: None * Fix: Added support for new values in SIV CHECK TYPE. * Changed SIV-ERR-MSG to reflect new values. * Paragraph modified: 480-DATA-CHECK-SCREEN6 * Dependency: Apply fixes to DDLFCPF, RQCPFS, and SVCPFS. Run * Make. Refer to BA60UD09.SCNMCSIV for a complete * listing of dependencies. * Reference: WO #041002-04 * * 14OCT2005 eschlis * Symptom: VISA Certification requires the ability to deny * manually entered POS transactions when CVD2 is * not present. * Problem: Router/Auth currently bypasses CVD2 validation * for these transactions. * Fix: Added support for MANUAL-CV-REQ and * MANUAL-CRD-ENTRY-FLG on screen 8 in order to * enable users to deny manually entered * transactions when no CVD2 is present. * Modified paragraph: 480-DATA-CHECK-SCREEN8. * Dependency: Apply fixes to DDLFCPF, RQCPFS, SCRNCPF, and * SVCPFS. Run Make. Refer to BA60UD09.SCNCVD2 * for a complete listing of dependencies. * Reference: Case #397678 #ADD 00387e0H DATA DIVISION 05 INVALID-MANUAL-CV-REQ. 10 FILLER PIC X(37) VALUE "CVD PROCESSING FLAG MUST BE 0, 1 OR 2". 05 INVALID-MANUAL-CRD-ENTRY-FLG. 10 FILLER PIC X(43) VALUE "DENY MANUAL CARD ENTRY MUST BE 0, 1, 2 OR 3". #REPLACE 00399c03/00399c04 DATA DIVISION 10 FILLER PIC X(42) VALUE "SIV CHECK TYPE MUST BE 0, 1, 2, 3, 4, OR 5". #REPLACE 00749c0M/00749c0M OFFSET 0 480-DATA-CHECK-SCREEN6 SIV-CHK-TYP-CVV-CAVV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-AAV-C #ADD 00749e28 480-DATA-CHECK-SCREEN8 IF ( MANUAL-CV-REQ OF SEG0 OF CPF NOT = "0" AND MANUAL-CV-REQ OF SEG0 OF CPF NOT = "1" AND MANUAL-CV-REQ OF SEG0 OF CPF NOT = "2" ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-MANUAL-CV-REQ TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( MANUAL-CRD-ENTRY-FLG OF SEG2 OF CPF NOT = "0" AND MANUAL-CRD-ENTRY-FLG OF SEG2 OF CPF NOT = "1" AND MANUAL-CRD-ENTRY-FLG OF SEG2 OF CPF NOT = "2" AND MANUAL-CRD-ENTRY-FLG OF SEG2 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-MANUAL-CRD-ENTRY-FLG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749e2D 480-DATA-CHECK-SCREEN8 MOVE 7 TO FLD-ID-NUM(ERR-CNT) #ENDSCN = BA09351 !#CMP2.26 10/28/05 RQCPFS 6056 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6056 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6056 * ******************************************************************************** #SCN = BA09352 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6056 #NEWVERSION = 6057 #ADD 00022&1L * 14OCT2005 rinkc * Symptom: MasterCard Secure Code Support in SIV * Problem: None * Fix: Added support for new values in SIV CHECK TYPE. * Paragraphs modified: 410-MOVE DEFAULTS * 550-TABLE-LOOK-UP * Dependency: Apply fixes to DDLFCPF, RQCPFS, and SVCPFS. Run * Make. Refer to BA60UD09.SCNMCSIV for a complete * listing of dependencies. * Reference: WO #041002-04 * * 14OCT2005 eschlis * Symptom: VISA Certification requires the ability to deny * manually entered POS transactions when CVD2 is * not present. * Problem: Router/Auth currently bypasses CVD2 validation * for these transactions. * Fix: Added support for MANUAL-CV-REQ and * MANUAL-CRD-ENTRY-FLG on screen 8 in order to * enable users to deny manually entered * transactions when no CVD2 is present. * Modified paragraphs: 410-MOVE-DEFAULTS * 480-ERR-FLAG-OV-8 * 480-ERR-FLAG-OV-8-FIELD-5 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * New paragraphs: 480-FLAG-OV-8-FIELD-6 * 480-FLAG-OV-8-FIELD-7 * Dependency: Apply fixes to DDLFCPF, RQCPFS, SCRNCPF, and * SVCPFS. Run Make. Refer to BA60UD09.SCNCVD2 * for a complete listing of dependencies. * Reference: Case #397678 #ADD 00074%06 DATA DIVISION 05 WS-MANUAL-CV-REQ-DESCR PIC X(18). 05 WS-MANUAL-CRD-ENTRY-FLG-DESCR PIC X(24). #ADD 00465%0D 400-MOVE-RECORD IF MANUAL-CV-REQ OF SEG0 = SPACES MOVE "0" TO MANUAL-CV-REQ. #ADD 00475%0A 400-MOVE-RECORD IF MANUAL-CRD-ENTRY-FLG OF SEG2 = SPACES MOVE "0" TO MANUAL-CRD-ENTRY-FLG OF SEG2. #REPLACE 00599#06/00599#06 OFFSET 0 410-MOVE-DEFAULTS SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-CAVV-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-CAVV-AAV-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-AAV-C #ADD 00599%0E 440-SET-UP-FETCH IF MANUAL-CV-REQ NOT = 0 AND MANUAL-CV-REQ NOT = 1 AND MANUAL-CV-REQ NOT = 2 MOVE 0 TO MANUAL-CV-REQ OF SEG0. IF MANUAL-CRD-ENTRY-FLG NOT = 0 AND MANUAL-CRD-ENTRY-FLG NOT = 1 AND MANUAL-CRD-ENTRY-FLG NOT = 2 AND MANUAL-CRD-ENTRY-FLG NOT = 3 MOVE 0 TO MANUAL-CRD-ENTRY-FLG OF SEG2. #ADD 00670%14 480-ERR-FLAG-OV-8 480-FLAG-OV-8-FIELD-6, 480-FLAG-OV-8-FIELD-7, #ADD 00670%1N 480-FLAG-OV-8-FIELD-5 TURN TEMP SERROR IN P-MANUAL-CV-REQ. SET NEW-CURSOR AT P-MANUAL-CV-REQ. 480-FLAG-OV-8-FIELD-6. TURN TEMP SERROR IN P-MANUAL-CRD-ENTRY-FLG. SET NEW-CURSOR AT P-MANUAL-CRD-ENTRY-FLG. 480-FLAG-OV-8-FIELD-7. #ADD 01357#0F 550-TABLE-LOOK-UP ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV-CAVV-AAV-C MOVE "(Check CAVV or AAV with CVV)" TO WS-SIV-CHK-TYP-DESCR ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV-AAV-C MOVE "(Check AAV with CVV)" TO WS-SIV-CHK-TYP-DESCR #ADD 01399%00 550-TABLE-LOOK-UP IF MANUAL-CV-REQ OF SEG0 = 0 MOVE "(CVD NOT REQUIRED)" TO WS-MANUAL-CV-REQ-DESCR ELSE IF MANUAL-CV-REQ OF SEG0 = 1 MOVE "(CVD REQUIRED)" TO WS-MANUAL-CV-REQ-DESCR ELSE IF MANUAL-CV-REQ OF SEG0 = 2 MOVE "(CVD CONDITIONAL)" TO WS-MANUAL-CV-REQ-DESCR ELSE MOVE "(****************)" TO WS-MANUAL-CV-REQ-DESCR. IF MANUAL-CRD-ENTRY-FLG OF SEG2 = 0 MOVE "(NO)" TO WS-MANUAL-CRD-ENTRY-FLG-DESCR ELSE IF MANUAL-CRD-ENTRY-FLG OF SEG2 = 1 MOVE "(CARDHOLDER OMITTED CVD)" TO WS-MANUAL-CRD-ENTRY-FLG-DESCR ELSE IF MANUAL-CRD-ENTRY-FLG OF SEG2 = 2 MOVE "(CVD OMITTED AT POS)" TO WS-MANUAL-CRD-ENTRY-FLG-DESCR ELSE IF MANUAL-CRD-ENTRY-FLG OF SEG2 = 3 MOVE "(YES)" TO WS-MANUAL-CRD-ENTRY-FLG-DESCR ELSE MOVE "(**************************************)" TO WS-MANUAL-CRD-ENTRY-FLG-DESCR. #ADD 01584%0D 595-CLEAR-DATA MOVE "0" TO MANUAL-CV-REQ OF SEG0. MOVE "0" TO MANUAL-CRD-ENTRY-FLG OF SEG2. #ENDSCN = BA09352 !#CMP2.26 11/14/05 SVCPFS 6035 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6035 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6035 * ******************************************************************************** #SCN = BA09374 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6035 #NEWVERSION = 6036 #ADD 00017i0R * 11NOV2005 bournep * Symptom: When accessing a CPF record and using multiple * logical networks, records read from the 6th LN * onwards are being retrieved from one of the * first 5 LN accessed, even though the file name * at the bottom of the screen looks correct. * Problem: After correctly being set the file indicator * is then over-written with the value from another. * Fix: Remove the code that overwrites the file * indicator. * Modified Proc: 909-TABL-MAINT * Dependency: Apply fixes to SVCPFS and run MAKE. * Reference: Case #401097 #DELETE 01224 909-TABL-MAINT #ENDSCN = BA09374 !#CMP2.26 11/14/05 RQSECM 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQSECM RQSECM 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQSECM RQSECM 6001 * ******************************************************************************** #SCN = BA09377 , FILEID = RQSECM #VOLUME = $ROOK.BA60AFT #FILE = RQSECM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6001 #NEWVERSION = 6002 #ADD 0031A09 # 14OCT2005 rinkc # Symptom: BASE24 Pathway Complex Passwords Enhancement # Problem: Missing dependency on DDLGSEC for this requester. # Fix: Added dependency on baddl_ddlgsec. # Dependency: Apply fix to RQSECM and run Make. Refer to # BA60UD09.SCNPSWD for a complete listing of dependencies. # Reference: WO #040628-14 #ADD 0050 $(baddl_ddlgsec) \ #ENDSCN = BA09377 !#CMP2.26 11/14/05 SVISECM 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECM SVISECM 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECM SVISECM 6000 * ******************************************************************************** #SCN = BA09378 , FILEID = SVISECM #VOLUME = $ROOK.BA60AFT #FILE = SVISECM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0056 # 14OCT2005 rinkc # Symptom: BASE24 Pathway Complex Passwords Enhancement # Problem: Missing dependency on DDLGSEC for this server. # Fix: Added dependency on baddl_ddlgsec. # Dependency: Apply fix to SVISECM and run Make. Refer to # BA60UD09.SCNPSWD for a complete listing of dependencies. # Reference: WO #040628-14 #ADD 0081 $(baddl_ddlgsec) \ #ENDSCN = BA09378 !#CMP2.26 11/16/05 COBTKN 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6007 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6007 * ******************************************************************************** #SCN = BA09379 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00057F0C * 16NOV2005 SchieuR * Symptom: The POS Device Message Token (token ID CG) is * not found on the Token File screen. * Problem: This token is not defined in the COBTKN file. * Fix: Added the POS Device Message Token to the * PROD-TKN-TABLE. Incremented the occurs for * WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run Make. * Reference: Case #402181 #ADD 00195G03 05 POS77 PIC X(29) VALUE "CG02POS DEVICE MESSAGE TOKEN ". #REPLACE 00197G01 02 WS-PROD-TKN-TBL OCCURS 162 TIMES. #REPLACE 00201G01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 162. #ENDSCN = BA09379 !#CMP2.26 11/16/05 COBTKN 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6008 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6008 * ******************************************************************************** #SCN = BA09380 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00057H0B * 03NOV2005 huac * Symptom: Healthcare token used a reserved token id. * Problem: Healthcare token id should be "CP" instead * of "CL". * Fix: Renamed Healthcare token id to "CP". * Dependency: Apply fixes to COBTKN, DDLPSTKN, PSTKNCVS and * PSTKNID. Replace VISAUPDT and VISAMNWD. * Reference: Case #403004 #REPLACE 00195F01 05 POS73 PIC X(29) VALUE "CP02POS HEALTHCARE TOKEN ". #ENDSCN = BA09380 !#CMP2.26 11/22/05 RQCPFS 6057 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6057 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6057 * ******************************************************************************** #SCN = BA0A001 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6057 #NEWVERSION = 6058 #ADD 00022*0X * 22NOV2005 heuertt * Symptom: If a non super/super user attempts to read a CPF * record using only the PREFIX and PAN as the key, * the current date and time are displayed in the * 'RECORD LAST CHANGED" fields. * Problem: When a record is read, the server does some pre- * checking to determine if the user has access to * the CPF record. The LAST-FM information from the * pre-check is then displayed as the 'RECORD LAST * CHANGED' information for the CPF record. * Fix: Added logic to paragraph 245-FETCH-RECORD to save * the LAST-FM information for the CPF record before * the pre-check and then to move the CPF information * back before the information is displayed. * Proc modified: 245-FETCH-RECORD. * Dependency: Apply fixes to RQCPFS and run MAKE. * Reference: Case 403342 #ADD 00320w01 245-FETCH-RECORD MOVE LAST-FM OF MSG-FILE-MAINT-4096-EXT TO WS-LAST-FM #ADD 00320w06 245-FETCH-RECORD MOVE WS-LAST-FM TO LAST-FM OF MSG-FILE-MAINT-4096-EXT #ENDSCN = BA0A001 !#CMP2.26 12/20/05 RQCAFS 6058 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6058 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6058 * ******************************************************************************** #SCN = BA0A014 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6058 #NEWVERSION = 6059 #ADD 00023+0g * 25NOV2005 jadhavU * Symptom: The value of the POFST/PVV field on screen 1 is * that of the previous record. * Problem: The PIN-OFST is not moved correctly to Working * Storage. If you read the CAF record, then press F9 * to go to screen 2, do a read-next-record (F6) from * screen 2, then (F11) back to screen 1, the * POFST/PVV displayed is not from the current CAF * record, it is from the previous record read. * Fix: Move PIN-OFST of CAF to WS-POFST-PVV. * Modified paragraph: 400-SAVE-RECORD * Dependency: Apply fix to RQCAFS and run Make. * Reference: Case #402704 * 07DEC2005 jadhavU * Symptom: The PIN-OFST is not added to the CAF record when * MASK-POFST-PVV is set to "Y". * Problem: If you create a new CAF record, then press F3 * to add the record, PIN-OFST-PVV is not added. * Fix: Corrected the If condition to add PIN-OFST. * Modified paragraph: 400-VALIDATE-DATA * Dependency: Apply fix to RQCAFS and run Make. * Reference: Case #401095 #ADD 00571+00 400-VALIDATE-DATA IF WS-POFST-PVV NOT = "****************" #DELETE 00571+01 400-VALIDATE-DATA #ADD 00697+01 400-SAVE-RECORD MOVE PIN-OFST OF SEG0 TO WS-POFST-PVV. #DELETE 00697+02 400-SAVE-RECORD #ENDSCN = BA0A014 !#CMP2.26 01/19/06 PITABLE 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.PITABLE PITABLE 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.PITABLE PITABLE 6006 * ******************************************************************************** #SCN = BA0A030 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00060F0E * 19JAN2006 WILWERK * Symptom: Virtual Menu displays "PRISM COMPONENTS". * Problem: PRISM is now PRM. The Virtual Menu should change * accordingly. * Fix: Modified ENTRY-25 to display "PRM". * Dependency: Apply fix to PITABLE and remake. * Reference: Case #402733 #REPLACE 00099 05 PRM PIC X VALUE "N". #REPLACE 00372 05 FILLER-25 PIC X(12) VALUE "PRM ". #REPLACE 00673 "PRM PRM ". #ENDSCN = BA0A030 !#CMP2.26 01/31/06 SVKEYDS 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVKEYDS SVKEYDS 6002 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVKEYDS SVKEYDS 6002 * ******************************************************************************** #SCN = BA0A034 , FILEID = SVKEYDS #VOLUME = $ROOK.BA60AFT #FILE = SVKEYDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00039B0J * 27JAN2006 delashg * Symptom: The server responds with error "FIELD CONTAINS * INVALID CHARACTERS,MUST BE 0-9, A-F" when trying * to add a new record that contains a TSS key * locator, which does not consist entirely of * hexadecimal characters. It only fails when the * attempt to add the record is performed immediately * after entering the KEYD screen. * Problem: The first part of the ADD operation executes * 480-DATA-CHECK. If this is the first transaction, * the server does not know that TSS is being used * because it has not retrieved the "SECURE-DEV-TYP" * lconf parameter yet. Therefore, it rejects the TSS * key locators that contain any non-hexadecimal * characters. * Fix: Added the logic to retrieve the lconf parameter. * Proc modified: * 480-DATA-CHECK * Dependency: Apply fix to SVKEYDS and remake. * Reference: Case #404125 #ADD 00562 480-DATA-CHECK MOVE 0 TO FILE-INDICATOR. PERFORM 908-DETERMINE-FILE VARYING J FROM 1 BY 1 UNTIL J > MAX-L-NETS. IF TABL-FULL IF T > 4 MOVE 0 TO T END-IF END-IF. PERFORM 909-TABL-MAINT. #ENDSCN = BA0A034 !#CMP2.26 02/14/06 COBTKN 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6009 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6009 * ******************************************************************************** #SCN = BA0A038 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00057I09 * 14FEB2006 saderc * Symptom: VisaNet / Visa DPS April 2006 Mandates. * Problem: None. * Fix: Added support for Transaction Specific Data token * ("CT"). * Added token: POS78 - TXN SPECIFIC DATA TOKEN * Dependency: Apply fixes to COBTKN, PSTKNCVS, PSTKNID and * DDLPSTKN. Run MAKE. * Reference: WO #051109-02 #ADD 00195H01 05 POS78 PIC X(29) VALUE "CT02POS TXN SPECIFIC DATA TKN". #REPLACE 00197H01 02 WS-PROD-TKN-TBL OCCURS 163 TIMES. #REPLACE 00201H01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 163. #ENDSCN = BA0A038 !#CMP2.26 03/10/06 RQCAFS 6059 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6059 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6059 * ******************************************************************************** #SCN = BA0A048 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6059 #NEWVERSION = 6060 #ADD 00023-0O * 06MAR2006 RobinsB * Symptom: Pin Offset/PVV field is accidentally deleted from * CAF records. * Problem: Following on an F8 (Clear Data) the field * WS-PIN-OFST, the working storage field associated * with the screen label POFST/PVV was re-initialised * to spaces and was then being used to overwrite * the PIN/OFST value subsequently sent in the * message to the server on an update. * Fix: Modified the code to populate the field * WS-PIN-OFST with its corresponding value when it * is initially retrieved from the server. * Dependency: Apply fix to RQCAFS and run Make. * Modified procs: 400-VALIDATE-DATA * 400-DO-REST-OF-MOVES * 400-SAVE-RECORD * 450-SET-UP-ADD-CONTINUED * 550-TABLE-LOOK-UP-OVERLAY-1 * Reference: Case #404541 #DELETE 00571-01 400-VALIDATE-DATA #DELETE 00571+02 400-VALIDATE-DATA #ADD 00591 400-DO-REST-OF-MOVES IF MASK-POFST-PVV = "Y" MOVE "****************" TO WS-POFST-PVV ELSE MOVE PIN-OFST OF SEG0 TO WS-POFST-PVV. #REPLACE 00697-01 400-SAVE-RECORD MOVE WS-POFST-PVV TO PIN-OFST OF SEG0. #ADD 00922 450-SET-UP-ADD-CONTINUED MOVE WS-POFST-PVV TO PIN-OFST OF SEG0. #DELETE 01699+01/01699+04 550-TABLE-LOOK-UP #ENDSCN = BA0A048 !#CMP2.26 05/03/06 COBTKN 6010 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6010 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6010 * ******************************************************************************** #SCN = BA0A061 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6010 #NEWVERSION = 6011 #ADD 00057J0A * 03MAY2006 kotharg * Symptom: Card Acceptance and Processing Network Support. * Problem: None. * Fix: Added support for AMEX Additional Data Token * ("CU"). * Dependency: Apply fixes to COBTKN, PSTKNCVS, PSTKNID and * DDLPSTKN. Run MAKE. * Reference: WO #050627-04 #ADD 00195J02 05 POS79 PIC X(29) VALUE "CU02POS AMEX ADNL DATA TOKEN ". #REPLACE 00197J01 02 WS-PROD-TKN-TBL OCCURS 164 TIMES. #REPLACE 00201J01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 164. #ENDSCN = BA0A061 !#CMP2.26 05/15/06 RQTKNS 6010 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQTKNS RQTKNS 6010 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQTKNS RQTKNS 6010 * ******************************************************************************** #SCN = BA0A067 , FILEID = RQTKNS #VOLUME = $ROOK.BA60AFT #FILE = RQTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6010 #NEWVERSION = 6011 #ADD 00021J0B * 15MAY2006 heuertt * Symptom: TKN-TABLE does not hold all the tokens. * Problem: The TKN-TABLE holds the tokens from the PROD-TKN- * TABLE and the CSE-TKN-TABLE. The table size of 200 * is not large enough to include all of the CSE * tokens for some environments. * Fix: Changed OCCURS for TKN-TABLE from 200 to 250. * Dependency: Apply fix to RQTKNS and run Make. * Reference: Case #412525 #REPLACE 00096H0B DATA DIVISION 05 WS-TKN-TBL OCCURS 250 TIMES. #ENDSCN = BA0A067 !#CMP2.26 06/23/06 SVISECS 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6027 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6027 * ******************************************************************************** #SCN = BA0A076 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 01101a0a * 22JUN2006 heuertt * Symptom: After action to reset Complex Password the * user is unable to change password. * Problem: If the daily limit PASSWORD-MAX-CHNG is set to 1 * and Complex Passwords are used, the user is denied * changing his password because the action is * counted as a daily password change. * Fix: Added an edit to check if the hashed value of * SPACES is stored as the first entry in the table * PSWD OF PSWD-HIST OF SEC-BASE-INFO and to allow * the password change request to complete. * Added WS-PASSWORD-HASH-TEMP to Working Storage to * hold the hashed value of SPACES. * Paragraphs modified: 240-CHANGE-PASSWORD * 240-PSWD-HIST-CHK * Dependency: Apply fixes to SVISECS and run Make. * Reference: Case #413709. #REPLACE 01780a02 DATA DIVISION 01 WS-PASSWORD-HASH-TEMP PIC X(20). #ADD 03849a0N 240-CHANGE-PASSWORD * * Calculate the hash value of SPACES be used when checking the * password history for resets done by the administrator. * MOVE SPACES TO WS-PASSWORD-TEMP ENTER TAL "SHA1^HASH" OF UTILIB USING WS-PASSWORD-TEMP, 8, WS-PASSWORD-HASH-TEMP #ADD 03885a0F 240-PSWD-HIST-CHK * * If the first password is the hashed value of SPACES, then the * password has been reset by the administrator so allow the * requested password change and leave NUM-PASSWORD-CHNG-TODAY * set to zero in case PASSWORD-MAX-CHNG is set to one. * IF WS-PASSWORD-HASH-TEMP = PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) COMPUTE X = PASSWORD-MAX-STORE + 1 ELSE COMPUTE NUM-PASSWORD-CHNG-TODAY = NUM-PASSWORD-CHNG-TODAY + 1. #DELETE 03885a0G/03885a0H 240-PSWD-HIST-CHK #ENDSCN = BA0A076 !#CMP2.26 08/23/06 COBTKN 6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6011 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6011 * ******************************************************************************** #SCN = BA0A094 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00057K09 * 23AUG2006 gruberg * Symptom: VisaNet October 2006 Mandates and VisaNet April * 2006 Last Minute Updates. * Problem: None. * Fix: Added entries for the new Intra Country Data * token to PROD-TKN-TABLE. * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. Run MAKE. * Reference: WO #060521-01 and WO #060325-02 #REPLACE 00195K02/00195H02 05 ATM68 PIC X(29) VALUE "S001ATM INTRA CNTRY DATA TKN ". 05 POS80 PIC X(29) VALUE "S002POS INTRA CNTRY DATA TKN ". #ENDSCN = BA0A094 !#CMP2.26 08/29/06 COBTKN 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6012 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6012 * ******************************************************************************** #SCN = BA0A102 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00057L0A * 28AUG2006 gruberg * Symptom: The new token id "S0" for the Intra Country Data * token is not displayed in the token requester. * Problem: The table counts for the new token id were not * increased to account for the new Intra Country * Data token. * Fix: Increased the table counts by 2 to account for * the new token. * Dependency: Apply fix to COBTKN. Run MAKE. * Reference: Case #419374 #REPLACE 00197K01 02 WS-PROD-TKN-TBL OCCURS 166 TIMES. #REPLACE 00201K01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 166. #ENDSCN = BA0A102 !#CMP2.26 09/20/06 RQMEGAS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6044 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6044 * ******************************************************************************** #SCN = BA0A110 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00020r0J * 19SEP2006 heuertt * Symptom: Passwords containing multiple occurrences of a * single character are passing validation. * Problem: Passwords containing multiple occurrences of a * single character should not be valid. This check * is necessary to prevent unauthorized access if the * Complex Password enhancement is turned on and then * turned off again. * Fix: Modified the password edits to include a check * for multiple occurrences of a single character and * to display the appropriate message. This is the * same action that RQMEGA performs when validating * new passwords. * Modified paragraph: 485-DATA-CHECK. * Added paragraph: 486-PASSWORD-ERROR. * Dependency: Apply fix to RQMEGAS and run Make. * Replace: BA60UC09.SCNPSWD. * Reference: Case #415439 #REPLACE 01777 /01777 OFFSET 0 485-DATA-CHECK SET NEW-CURSOR AT LO-USER-ALIAS. IF VALID-DATA NOT = "BAD" AND PASSWORD OF MSG-SECURITY-EXT NOT = SPACES MOVE PASSWORD OF MSG-SECURITY-EXT TO WS-CHECK-NEW-PASSWORD MOVE 8 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN MOVE "N" TO UNIQUE-CHARS-FLAG MOVE 2 TO I PERFORM 486-CHECK-FOR-UNIQUE-CHARS UNTIL UNIQUE-CHARS OR I > WS-SAVE-NEW-PASSWORD-LEN IF NOT UNIQUE-CHARS MOVE "PASSWORDS MUST HAVE UNIQUE CHARACTERS - TRY - " AGAIN" TO WS-MESSAGE-TEXT PERFORM 486-PASSWORD-ERROR. IF VALID-DATA NOT = "BAD" AND LNET OF USER-CONTEXT-EXT = SPACES MOVE "PLEASE ENTER LNET TO ACCOMPLISH A LOGON" TO WS-MESSAGE-TEXT MOVE "0011" TO WS-ERROR-NUM MOVE "BAD" TO VALID-DATA SET NEW-CURSOR AT LO-LOG-NET ELSE IF WS-TERMINAL-PRINTER = SPACES MOVE "$S.#HOLD" TO WS-TERMINAL-PRINTER DISPLAY LO-TERM-PRINT ELSE IF PASSWORD-CHANGE-FLAG = "Y" MOVE NEW-PASSWORD OF MSG-SECURITY-EXT TO WS-CHECK-NEW-PASSWORD MOVE 8 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN IF WS-SAVE-NEW-PASSWORD-LEN < 2 MOVE "A ONE CHARACTER OR BLANK PASSWORD IS - "NOT CONSIDERED UNIQUE" TO WS-MESSAGE-TEXT PERFORM 486-CHANGE-PASSWORD-ERROR ELSE MOVE "N" TO UNIQUE-CHARS-FLAG MOVE 2 TO I PERFORM 486-CHECK-FOR-UNIQUE-CHARS UNTIL UNIQUE-CHARS OR I > WS-SAVE-NEW-PASSWORD-LEN IF NOT UNIQUE-CHARS MOVE "PASSWORDS MUST HAVE UNIQUE CHARAC - "TERS - TRY AGAIN" TO WS-MESSAGE-TEXT PERFORM 486-CHANGE-PASSWORD-ERROR. #DELETE 01778 /01788X0N 485-DATA-CHECK #ADD 01788X13 486-CHANGE-PASSWORD-ERROR 486-PASSWORD-ERROR. MOVE "0011" TO WS-ERROR-NUM. MOVE "BAD" TO VALID-DATA. MOVE SPACES TO PASSWORD OF MSG-SECURITY-EXT. DISPLAY LO-PASSWORD. SET NEW-CURSOR AT LO-PASSWORD. #DELETE 01788X14/01788X15 486-CHANGE-PASSWORD-ERROR #ENDSCN = BA0A110 !#CMP2.26 10/02/06 RQMEGAS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6045 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6045 * ******************************************************************************** #SCN = BA0A114 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00020s0J * 29SEP2006 heuertt * Symptom: SUPER/SUPER can not logon using default password * of all zeroes. * Problem: Modifications for SCN BA0A110 for unique user * passwords did not take into consideration the * default password for SUPER/SUPER of all zeroes, * so logon attempts using the default password for * "SUPER/SUPER" are denied. * Fix: Modified the password edits to allow the default * password of all zeroes for SUPER/SUPER. * Modified paragraph: 485-DATA-CHECK. * Dependency: Apply fix to RQMEGAS and run Make. * Replace: BA60UC09.SCNPSWD. * Reference: Case #421674 #ADD 01777s01 485-DATA-CHECK IF VALID-DATA NOT = "BAD" AND PASSWORD OF MSG-SECURITY-EXT NOT = SPACES AND ( NOT ( PASSWORD OF MSG-SECURITY-EXT = "00000000" AND ALIAS OF USER-DATA OF USER-CONTEXT-EXT = "SUPER/SUPER " )) #DELETE 01777s02/01777s03 485-DATA-CHECK #ENDSCN = BA0A114 !#CMP2.26 10/16/06 SECTBL 6022 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6022 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6022 * ******************************************************************************** #SCN = BA0A122 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6022 #NEWVERSION = 6023 #ADD 00268V0x * 14OCT2006 tiehenc * Symptom: Frequent Shopper Release 3.2 Enhancements. * Multiple Program Support Enhancement. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * two new IDST screens 5 ( Points Summary ) and * screen 6 (Points Activity). Increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fix to SECTBL. Run Make. * Reference: WO #061013-01 #DELETE 00268V0y #ADD 00591C01 05 IDST5 PIC X(35) VALUE "IDST05001CID POINTS SUMMARY ". 05 IDST6 PIC X(35) VALUE "IDST06001CID POINTS ACTIVITY ". #ADD 00893V00 05 PROD-SCRN-ACC-TABL OCCURS 607 TIMES. #DELETE 00893V01 #ADD 00906V00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 607. #DELETE 00906V01 #ENDSCN = BA0A122 !#CMP2.26 10/18/06 SVISECS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6028 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6028 * ******************************************************************************** #SCN = BA0A123 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 01101b0I * 18OCT2006 heuertt * Symptom: Incorrect Complex Password parameter settings * impact logon actions. * Problem: If the Complex Parameters are not set correctly * in the LCONF, logon actions can be impacted. * 1) If PASSWORD-MAX-STORE value is less than the * PASSWORD-MAX-CHNG-PER-DAY value, the number of * times allowed to change a password per day can not * be enforced so the password can be changed an * unlimited number of times per day. * 2) If the sum of the parameters PASSWORD-NUM-ALPHA * PASSWORD-NUM-NUMERIC and PASSWORD-NUM-SPCL is * greater than 8, all logon attempts are denied. * Fix: 1) When the PASSWORD-MAX-STORE value is less than * PASSWORD-MAX-CHNG-PER-DAY, a default action will * set PASSWORD-MAX-STORE equal to PASSWORD-MAX-CHNG- * PER-DAY in the program. * 2) If the sum is greater than 8, a default action * will set each parameter to 0 in the program to * allow logons to be successful. This replaces the * check that reports the sum being greater than 8 * as an error and then denies all logon attempts. * Neither of these actions alter the parameter * values in the LCONF records. * Paragraph modified: 909-RETRIEVE-LCONF-PARAMS * Dependency: Apply fixes to SVISECS and run Make. * Replace: BA60UC09.SCNPSWD. * Reference: Case #421825. #ADD 07025a14 909-RETRIEVE-LCONF-PARAMS * * If PASSWORD-MAX-STORE is less than PASSWORD-MAX-CHNG * then the daily password change limit can not be enforced * and the password can be changed an unlimited number of * times. By setting PASSWORD-MAX-STORE equal to * PASSWORD-MAX-CHNG the daily password change limit can be * enforced. * * This default action is not reported. The LCONF server * will validate these parameters for any ADD, UPDATE, or * DELETE action. * IF PASSWORD-MAX-STORE < PASSWORD-MAX-CHNG MOVE PASSWORD-MAX-CHNG TO PASSWORD-MAX-STORE. #ADD 07025a26 909-RETRIEVE-LCONF-PARAMS * * If the total of PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC * and PASSWORD-NUM-SPCL is greater than 8, set each field * to zero to allow logon to complete. * * This default action is not reported. The LCONF server * will validate these parameters for any ADD or UPDATE. * IF PASSWORD-NUM-ALPHA + PASSWORD-NUM-NUMERIC + PASSWORD-NUM-SPCL > 8 MOVE ZEROES TO PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL. #DELETE 07025a27/07025A2B 909-RETRIEVE-LCONF-PARAMS #ENDSCN = BA0A123 !#CMP2.28 10/20/06 COBTKN 6013 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6013 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6013 * ******************************************************************************** #SCN = BA0A319 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6013 #NEWVERSION = 6014 #REPLACE 00006 *# COBOL Token file # #ADD 00057M0B * 14OCT2006 steffej * Symptom: ATM Passbook Update Enhancement * Problem: None. * Fix: Added support for the following new tokens: * Interim Statement/Passbook Data Token ("AI") * Passbook Processing Token ("AK") * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fix to COBTKN and run Make. * Refer to BA60UD0A.SCNPSBK for a complete listing * of dependencies. * Reference: WO #060329-02 * * 14OCT2006 steffej * Symptom: New BASE24 Tokens and Subtypes Enhancement * Problem: None. * Fix: Added support for the following new tokens: * Bill Payment Payee List Token ("AE") * Bill Payment Confirmation Token ("AF") * Multiple Account Inquiry Token ("AH") * Interim Statement Processing Token ("AJ") * Custom Response Code Token ("AR") * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 5. * Dependency: Apply fix to COBTKN and run Make. * Reference: WO #060329-01 * * 14OCT2006 Steffej * Symptom: Deposit Hold Notification Enhancement. * Problem: None. * Fix: Added support for the new Hold Token ("AL"). * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run Make. * Refer to BA60UD0A.SCNDEPH for a complete listing * of dependencies. * Reference: WO #060417-01 * * 14OCT2006 SchieuR * Symptom: SPDH & RTAU Enhancements for Visa and MasterCard * Problem: None. * Fix: Added new Healthcare/Transit Token (CV) and * Healthcare Service Token (CW). Incremented the * occurs for WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fix to COBTKN and run Make. Refer to * BA60UD0A.SCNSRVM for a complete listing of * dependencies. * Reference: WO #050909-01 #REPLACE 00195L00/00195L01 05 POS81 PIC X(29) VALUE "CV02POS HLTHCR/TRANSIT TOKEN ". 05 POS82 PIC X(29) VALUE "CW02POS HLTHCR SERVICE TOKEN ". #ADD 00195L03 05 ATM69 PIC X(29) VALUE "AE01ATM BILL PYMT PAYEE TKN ". 05 ATM70 PIC X(29) VALUE "AF01ATM BILL PYMT CONF TKN ". 05 ATM71 PIC X(29) VALUE "AH01ATM MULTIPLE ACCT INQ TKN". 05 ATM72 PIC X(29) VALUE "AI01ATM INT STMT/PASSBOOK TKN". 05 ATM73 PIC X(29) VALUE "AJ01ATM INT STMT PROCESS TKN ". 05 ATM74 PIC X(29) VALUE "AK01ATM PASSBOOK PROCESS TKN ". 05 ATM75 PIC X(29) VALUE "AL01ATM HOLD TKN ". 05 ATM76 PIC X(29) VALUE "AR01ATM CUSTOM RESPONSE CODE ". #REPLACE 00197M01 02 WS-PROD-TKN-TBL OCCURS 176 TIMES. #REPLACE 00201M01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 176. #ENDSCN = BA0A319 !#CMP2.28 10/20/06 RQCAFS 6060 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6060 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6060 * ******************************************************************************** #SCN = BA0A321 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6060 #NEWVERSION = 6061 #ADD 00023:0K * 14OCT2006 jaganas * Symptom: Contactless Chip/Magnetic Stripe Support * Enhancement. * Problem: None. * Fix: New fields for Application Transaction Counter * (ATC) and Second Card ATC have been added to the * CAF Base segment. * Modified Procs: 450-SET-UP-ADD-CONTINUED * 595-CLEAR-DATA * 400-DO-REST-OF-MOVES * Dependency: Apply fix to DDLFCAF, RQCAFS and SCRNCAF. * Run Make. Refer to BA60UD0A.SCNCTLS for a * complete listing of dependencies. * Reference: WO #050209-01 #ADD 00592&03 400-DO-REST-OF-MOVES IF ATC OF SEG0 = SPACES MOVE 0 TO ATC OF SEG0. IF ATC-SCND-CRD OF SEG0 = SPACES MOVE 0 TO ATC-SCND-CRD OF SEG0. #ADD 00923 450-SET-UP-ADD-CONTINUED ATC OF SEG0, ATC-SCND-CRD OF SEG0, #ADD 02128 595-CLEAR-DATA ATC OF SEG0, ATC-SCND-CRD OF SEG0, #ENDSCN = BA0A321 !#CMP2.28 10/20/06 RQCPFS 6058 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6058 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6058 * ******************************************************************************** #SCN = BA0A323 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6058 #NEWVERSION = 6059 #ADD 00022+0I * 14OCT2006 jaganas * Symptom: Contactless Chip/Magnetic Stripe Support * Enhancement. * Problem: None. * Fix: Changes required in BASE24-pos to support the * validation of CVC3/dCVV. New fields are added in * the Base segment of the CPF to store flags and * offsets to be used for CVC3/dCVV cardholder * verification. * Modified Procs: * 400-MOVE-RECORD * 410-MOVE-DEFAULTS * 480-ERR-FLAG-OV-3 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Added Procs: * 480-FLAG-OV-3-FIELD-6 * 480-FLAG-OV-3-FIELD-7 * 480-FLAG-OV-3-FIELD-8 * 480-FLAG-OV-3-FIELD-9 * 480-FLAG-OV-3-FIELD-10 * 480-FLAG-OV-3-FIELD-11 * 480-FLAG-OV-3-FIELD-12 * 480-FLAG-OV-3-FIELD-13 * 480-FLAG-OV-3-FIELD-14 * 480-FLAG-OV-3-FIELD-15 * 480-FLAG-OV-3-FIELD-16 * 480-FLAG-OV-3-FIELD-17 * 480-FLAG-OV-3-FIELD-18 * 480-FLAG-OV-3-FIELD-19 * 480-FLAG-OV-3-FIELD-20 * 480-FLAG-OV-3-FIELD-21 * 480-FLAG-OV-3-FIELD-22 * Dependency: Restore SCRNCPF. Apply fixes to DDLFCPF, RQCPFS, * and SVCPFS. Run Make. Refer to BA60UD0A.SCNCTLS * for a complete listing of dependencies. * Reference: WO #050209-01 * * 14OCT2006 gaitonp * Symptom: EMV CCD Issuer Support Enhancement * Problem: None. * Fix: Added support for EMV CCD issuer processing. * Procs modified: 550-TABLE-LOOK-UP * 595-CLEAR-DATA * 480-ERR-FLAG-OV-11 * 480-FLAG-OV-11-FIELD-4 * 480-FLAG-OV-11-FIELD-5 * 480-FLAG-OV-11-FIELD-6 * 480-FLAG-OV-11-FIELD-7 * 480-FLAG-OV-11-FIELD-8 * 480-FLAG-OV-11-FIELD-9 * 480-FLAG-OV-11-FIELD-10 * 480-FLAG-OV-11-FIELD-11 * 480-FLAG-OV-11-FIELD-12 * 480-FLAG-OV-11-FIELD-13 * 480-FLAG-OV-11-FIELD-14 * 480-FLAG-OV-11-FIELD-15 * 480-FLAG-OV-11-FIELD-16 * 480-FLAG-OV-11-FIELD-17 * 480-FLAG-OV-11-FIELD-18 * 480-FLAG-OV-11-FIELD-19 * 480-FLAG-OV-11-FIELD-20 * 480-FLAG-OV-11-FIELD-21 * 480-FLAG-OV-11-FIELD-22 * 480-FLAG-OV-11-FIELD-23 * 480-FLAG-OV-11-FIELD-24 * Procs Added: 480-FLAG-OV-11-FIELD-25 * 480-FLAG-OV-11-FIELD-26 * Dependency: Restore SCRNCPF. Apply fixes to DDLFCPF, RQCPFS, * and SVCPFS. Run Make. Refer to BA60UD0A.SCNECCD * for a complete listing of dependencies. * Reference: WO #041223-02 * * 14OCT2006 meyersc * Symptom: CVD/CVD2 Checking in a Single Request Enhancement * Problem: None. * Fix: Added support for CVD/CVD2 Checking in a Single * Request. * Procs modified: 550-TABLE-LOOK-UP * 595-CLEAR-DATA * 480-ERR-FLAG-OV-2 * 480-FLAG-OV-2-FIELD-14 * 480-FLAG-OV-2-FIELD-15 * 480-FLAG-OV-2-FIELD-16 * 480-FLAG-OV-2-FIELD-17 * 480-FLAG-OV-2-FIELD-18 * 480-FLAG-OV-2-FIELD-19 * 480-FLAG-OV-2-FIELD-20 * 480-FLAG-OV-2-FIELD-21 * Dependency: Restore SCRNCPF. Apply fixes to DDLFCPF, RQCPFS, * and SVCPFS. Run Make. Refer to BA60UD0A.SCNCVDS * for a complete listing of dependencies. * Reference: WO #041002-10 #ADD 00058d09 DATA DIVISION 05 WS-CHK-TYP-MCV PIC X(16). #ADD 00060o00 DATA DIVISION 05 WS-CAM-CHK-DESC PIC X(17). 05 WS-BAD-CAM-DESC-1 PIC X(17). 05 WS-BAD-CAM-DESC-2 PIC X(17). #DELETE 00060o01/00060o03 DATA DIVISION #ADD 00074%00 DATA DIVISION #DELETE 00074%01 DATA DIVISION #ADD 00074%03 DATA DIVISION 05 WS-EMV-ISS-APPL-DATA-ALT PIC X. 05 WS-ISS-APPL-DATA-ALT-DESC PIC X(12). #ADD 00074%06 DATA DIVISION 05 WS-DCV-CHK-TYP-DESC PIC X(19). 05 WS-ATC-CHK-DESC PIC X(17). 05 WS-PRE-SCRN-DCVD-DESC PIC X(10). 05 WS-PRE-SCRN-ATC-DESC PIC X(10). 05 WS-ATC-BAD-DISP-DESC PIC X(19). 05 WS-DCV-BAD-DISP-DESC PIC X(19). 05 WS-EMV-ATC-CHK-DESC PIC X(15). #ADD 00465d0D 400-MOVE-RECORD IF MANUAL-CV-CHK-TYP OF SEG0 = SPACES MOVE "0" TO MANUAL-CV-CHK-TYP OF SEG0. IF DCV-CHK-TYP OF SEG0 = SPACES MOVE "0" TO DCV-CHK-TYP OF SEG0. MOVE TRK1-DCVD-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK1-DCVD-OFST OF SEG0. IF TRK1-DCVD-LGTH OF SEG0 NOT NUMERIC MOVE 0 TO TRK1-DCVD-LGTH OF SEG0. MOVE TRK1-ATC-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK1-ATC-OFST OF SEG0. IF TRK1-ATC-LGTH OF SEG0 NOT NUMERIC MOVE 0 TO TRK1-ATC-LGTH OF SEG0 MOVE TRK1-UNPREDICT-NUM-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK1-UNPREDICT-NUM-OFST OF SEG0. MOVE TRK2-DCVD-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK2-DCVD-OFST OF SEG0. IF TRK2-DCVD-LGTH NOT NUMERIC MOVE 0 TO TRK2-DCVD-LGTH OF SEG0. MOVE TRK2-ATC-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK2-ATC-OFST OF SEG0. IF TRK2-ATC-LGTH NOT NUMERIC MOVE 0 TO TRK2-ATC-LGTH OF SEG0. MOVE TRK2-UNPREDICT-NUM-OFST OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO TRK2-UNPREDICT-NUM-OFST OF SEG0. IF ATC-CHK OF SEG0 = SPACES MOVE "0" TO ATC-CHK OF SEG0. IF PRE-SCRN-DCVD OF SEG0 = SPACES MOVE "0" TO PRE-SCRN-DCVD OF SEG0. IF PRE-SCRN-ATC OF SEG0 = SPACES MOVE "0" TO PRE-SCRN-ATC OF SEG0. IF ATC-BAD-DISP OF SEG0 = SPACES MOVE "1" TO ATC-BAD-DISP OF SEG0. IF DCV-BAD-DISP OF SEG0 = SPACES MOVE "1" TO DCV-BAD-DISP OF SEG0. #ADD 00484u02 400-MOVE-RECORD IF ATC-CHK OF SEG9 = SPACES MOVE "0" TO ATC-CHK OF SEG9. IF EMV-ISS-APPL-DATA-FRMT-ALT OF SEG9 = SPACES MOVE "0" TO EMV-ISS-APPL-DATA-FRMT-ALT OF SEG9. IF ACTION-TABLE-INDEX-ALT OF SEG9 = SPACES MOVE "1" TO ACTION-TABLE-INDEX-ALT OF SEG9. IF OFFL-PIN-BAD-EXCD-ACT OF SEG9 = SPACES MOVE "0" TO OFFL-PIN-BAD-EXCD-ACT OF SEG9. IF OFFL-PIN-MGMT-ACT OF SEG9 = SPACES MOVE "0" TO OFFL-PIN-MGMT-ACT OF SEG9. #ADD 00599*0G 440-SET-UP-FETCH IF ATC-CHK OF SEG9 = "Y" MOVE "1" TO ATC-CHK OF SEG9 ELSE IF ATC-CHK OF SEG9 = "N" MOVE "0" TO ATC-CHK OF SEG9. #ADD 00670w4Y 480-ERR-FLAG-OV-2 480-FLAG-OV-2-FIELD-23, #ADD 00670w57 480-FLAG-OV-2-FIELD-13 480-FLAG-OV-2-FIELD-13. TURN TEMP SERROR IN P-MCV-CHECK-TYPE. SET NEW-CURSOR AT P-MCV-CHECK-TYPE. 480-FLAG-OV-2-FIELD-14. TURN TEMP SERROR IN P-CV-CHK. SET NEW-CURSOR AT P-CV-CHK. 480-FLAG-OV-2-FIELD-15. TURN TEMP SERROR IN P-DAT-CHK-TYP. SET NEW-CURSOR AT P-DAT-CHK-TYP. 480-FLAG-OV-2-FIELD-16. TURN TEMP SERROR IN P-TRK1-SC-OFST. SET NEW-CURSOR AT P-TRK1-SC-OFST. 480-FLAG-OV-2-FIELD-17. TURN TEMP SERROR IN P-TRK1-CV-OFST. SET NEW-CURSOR AT P-TRK1-CV-OFST. 480-FLAG-OV-2-FIELD-18. TURN TEMP SERROR IN P-CV-EFF-DAT. SET NEW-CURSOR AT P-CV-EFF-DAT. 480-FLAG-OV-2-FIELD-19. TURN TEMP SERROR IN P-SC-OFST. SET NEW-CURSOR AT P-SC-OFST. 480-FLAG-OV-2-FIELD-20. TURN TEMP SERROR IN P-CV-OFST. SET NEW-CURSOR AT P-CV-OFST. 480-FLAG-OV-2-FIELD-21. TURN TEMP SERROR IN P-MCV-EFF-DAT. SET NEW-CURSOR AT P-MCV-EFF-DAT. #DELETE 00670w58/00670w5d 480-FLAG-OV-2-FIELD-21 #REPLACE 00670w5e 480-FLAG-OV-2-FIELD-21 480-FLAG-OV-2-FIELD-22. #REPLACE 00670w5i 480-FLAG-OV-2-FIELD-22 480-FLAG-OV-2-FIELD-23. #ADD 00670%0O 480-ERR-FLAG-OV-3 480-FLAG-OV-3-FIELD-6, 480-FLAG-OV-3-FIELD-7, 480-FLAG-OV-3-FIELD-8, 480-FLAG-OV-3-FIELD-9, 480-FLAG-OV-3-FIELD-10, 480-FLAG-OV-3-FIELD-11, 480-FLAG-OV-3-FIELD-12, 480-FLAG-OV-3-FIELD-13, 480-FLAG-OV-3-FIELD-14, 480-FLAG-OV-3-FIELD-15, 480-FLAG-OV-3-FIELD-16, 480-FLAG-OV-3-FIELD-17, 480-FLAG-OV-3-FIELD-18, 480-FLAG-OV-3-FIELD-19, 480-FLAG-OV-3-FIELD-20, 480-FLAG-OV-3-FIELD-21, 480-FLAG-OV-3-FIELD-22, #ADD 00670%0k 480-FLAG-OV-3-FIELD-5 480-FLAG-OV-3-FIELD-6. TURN TEMP SERROR IN P-DCV-KEY-LOC. SET NEW-CURSOR AT P-DCV-KEY-LOC. 480-FLAG-OV-3-FIELD-7. TURN TEMP SERROR IN P-DCV-CHK-TYP. SET NEW-CURSOR AT P-DCV-CHK-TYP. 480-FLAG-OV-3-FIELD-8. TURN TEMP SERROR IN P-TRK1-DCVD-OFST. SET NEW-CURSOR AT P-TRK1-DCVD-OFST. 480-FLAG-OV-3-FIELD-9. TURN TEMP SERROR IN P-TRK1-DCVD-LGTH. SET NEW-CURSOR AT P-TRK1-DCVD-LGTH. 480-FLAG-OV-3-FIELD-10. TURN TEMP SERROR IN P-TRK1-ATC-OFST. SET NEW-CURSOR AT P-TRK1-ATC-OFST. 480-FLAG-OV-3-FIELD-11. TURN TEMP SERROR IN P-TRK1-ATC-LGTH. SET NEW-CURSOR AT P-TRK1-ATC-LGTH. 480-FLAG-OV-3-FIELD-12. TURN TEMP SERROR IN P-TRK1-UNPREDICT-NUM-OFST. SET NEW-CURSOR AT P-TRK1-UNPREDICT-NUM-OFST. 480-FLAG-OV-3-FIELD-13. TURN TEMP SERROR IN P-TRK2-DCVD-OFST. SET NEW-CURSOR AT P-TRK2-DCVD-OFST. 480-FLAG-OV-3-FIELD-14. TURN TEMP SERROR IN P-TRK2-DCVD-LGTH. SET NEW-CURSOR AT P-TRK2-DCVD-LGTH. 480-FLAG-OV-3-FIELD-15. TURN TEMP SERROR IN P-TRK2-ATC-OFST. SET NEW-CURSOR AT P-TRK2-ATC-OFST. 480-FLAG-OV-3-FIELD-16. TURN TEMP SERROR IN P-TRK2-ATC-LGTH. SET NEW-CURSOR AT P-TRK2-ATC-LGTH. 480-FLAG-OV-3-FIELD-17. TURN TEMP SERROR IN P-TRK2-UNPREDICT-NUM-OFST. SET NEW-CURSOR AT P-TRK2-UNPREDICT-NUM-OFST. 480-FLAG-OV-3-FIELD-18. TURN TEMP SERROR IN P-ATC-CHK OF OVERLAY-3. SET NEW-CURSOR AT P-ATC-CHK OF OVERLAY-3. 480-FLAG-OV-3-FIELD-19. TURN TEMP SERROR IN P-PRE-SCRN-DCVD. SET NEW-CURSOR AT P-PRE-SCRN-DCVD. 480-FLAG-OV-3-FIELD-20. TURN TEMP SERROR IN P-PRE-SCRN-ATC. SET NEW-CURSOR AT P-PRE-SCRN-ATC. 480-FLAG-OV-3-FIELD-21. TURN TEMP SERROR IN P-ATC-BAD-DISP. SET NEW-CURSOR AT P-ATC-BAD-DISP. 480-FLAG-OV-3-FIELD-22. TURN TEMP SERROR IN P-DCV-BAD-DISP. SET NEW-CURSOR AT P-DCV-BAD-DISP. #ADD 00670&0H 480-ERR-FLAG-OV-11 480-FLAG-OV-11-FIELD-24, 480-FLAG-OV-11-FIELD-25, 480-FLAG-OV-11-FIELD-26 #DELETE 00670&0I 480-ERR-FLAG-OV-11 #ADD 00670wAP 480-FLAG-OV-11-FIELD-4 480-FLAG-OV-11-FIELD-4. TURN TEMP SERROR IN P-ATC-CHK OF OVERLAY-11. SET NEW-CURSOR AT P-ATC-CHK OF OVERLAY-11. 480-FLAG-OV-11-FIELD-5. TURN TEMP SERROR IN P-EMV-ISS-APPL-DATA. SET NEW-CURSOR AT P-EMV-ISS-APPL-DATA. 480-FLAG-OV-11-FIELD-6. TURN TEMP SERROR IN P-STATUS-CHECK-ACT-INDEX. SET NEW-CURSOR AT P-STATUS-CHECK-ACT-INDEX. 480-FLAG-OV-11-FIELD-7. TURN TEMP SERROR IN P-EMV-ISS-APPL-DATA-ALT. SET NEW-CURSOR AT P-EMV-ISS-APPL-DATA-ALT. 480-FLAG-OV-11-FIELD-8. TURN TEMP SERROR IN P-ALT-ACT-INDEX. SET NEW-CURSOR AT P-ALT-ACT-INDEX. 480-FLAG-OV-11-FIELD-9. TURN TEMP SERROR IN P-CHECK-HOST-ON. SET NEW-CURSOR AT P-CHECK-HOST-ON. 480-FLAG-OV-11-FIELD-10. TURN TEMP SERROR IN P-CHECK-FALLBK-ON. SET NEW-CURSOR AT P-CHECK-FALLBK-ON. 480-FLAG-OV-11-FIELD-11. TURN TEMP SERROR IN P-CHECK-TVR-CVR. SET NEW-CURSOR AT P-CHECK-TVR-CVR. 480-FLAG-OV-11-FIELD-12. TURN TEMP SERROR IN P-CHECK-HOST-ROLC. SET NEW-CURSOR AT P-CHECK-HOST-ROLC. 480-FLAG-OV-11-FIELD-13. TURN TEMP SERROR IN P-BAD-CAM-ACTN-1. SET NEW-CURSOR AT P-BAD-CAM-ACTN-1. 480-FLAG-OV-11-FIELD-14. TURN TEMP SERROR IN P-BAD-CAM-ACTN-2. SET NEW-CURSOR AT P-BAD-CAM-ACTN-2. 480-FLAG-OV-11-FIELD-15. TURN TEMP SERROR IN P-FALLBACK-ACTN-ATM. SET NEW-CURSOR AT P-FALLBACK-ACTN-ATM. 480-FLAG-OV-11-FIELD-16. TURN TEMP SERROR IN P-FALLBACK-ACTN-POS. SET NEW-CURSOR AT P-FALLBACK-ACTN-POS. 480-FLAG-OV-11-FIELD-17. TURN TEMP SERROR IN P-FORCE-ONL-FALLBACK-CHK. SET NEW-CURSOR AT P-FORCE-ONL-FALLBACK-CHK. 480-FLAG-OV-11-FIELD-18. TURN TEMP SERROR IN P-EMV-ISS. SET NEW-CURSOR AT P-EMV-ISS. 480-FLAG-OV-11-FIELD-19. TURN TEMP SERROR IN P-BAD-OFFL-PIN-ACTN. SET NEW-CURSOR AT P-BAD-OFFL-PIN-ACTN. 480-FLAG-OV-11-FIELD-20. TURN TEMP SERROR IN P-OFFL-PIN-MGMT-ACTN. SET NEW-CURSOR AT P-OFFL-PIN-MGMT-ACTN. 480-FLAG-OV-11-FIELD-21. TURN TEMP SERROR IN P-TRANSPORT-KEY. SET NEW-CURSOR AT P-TRANSPORT-KEY. 480-FLAG-OV-11-FIELD-22. TURN TEMP SERROR IN P-EMV-PREFIX-ROUTING. SET NEW-CURSOR AT P-EMV-PREFIX-ROUTING. 480-FLAG-OV-11-FIELD-23. TURN TEMP SERROR IN P-EMV-CV-CHK-TYP. SET NEW-CURSOR AT P-EMV-CV-CHK-TYP. 480-FLAG-OV-11-FIELD-24. TURN TEMP SERROR IN P-EMV-CV-EFF-DAT. SET NEW-CURSOR AT P-EMV-CV-EFF-DAT. 480-FLAG-OV-11-FIELD-25. TURN TEMP SERROR IN P-EMV-CV-CHK-MTHD. SET NEW-CURSOR AT P-EMV-CV-CHK-MTHD. 480-FLAG-OV-11-FIELD-26. TURN TEMP SERROR IN P-EMV-CV-DATA. SET NEW-CURSOR AT P-EMV-CV-DATA. #DELETE 00670wAQ/00670&1S 480-FLAG-OV-11-FIELD-24 #DELETE 01357l00/01357l03 550-TABLE-LOOK-UP #ADD 01357d2A 550-TABLE-LOOK-UP MOVE SPACES TO WS-CHK-TYP-MCV. IF MANUAL-CV-CHK-TYP OF SEG0 = "0" MOVE "(CHECK DISABLED)" TO WS-CHK-TYP-MCV ELSE IF MANUAL-CV-CHK-TYP OF SEG0 = "1" MOVE "(MANUAL ONLY) " TO WS-CHK-TYP-MCV ELSE IF MANUAL-CV-CHK-TYP OF SEG0 = "2" MOVE "(ALL) " TO WS-CHK-TYP-MCV ELSE MOVE "(**************)" TO WS-CHK-TYP-MCV. #ADD 01416%05 550-TABLE-LOOK-UP ELSE IF EMV-ISS-APPL-DATA-FRMT = 4 MOVE "(CCD - A)" TO WS-ISS-APPL-DATA-DESC #ADD 01416u0B 550-TABLE-LOOK-UP IF EMV-ISS-APPL-DATA-FRMT-ALT = 0 MOVE "(UNDEFINED)" TO WS-ISS-APPL-DATA-ALT-DESC ELSE IF EMV-ISS-APPL-DATA-FRMT-ALT = 1 MOVE "(VIS)" TO WS-ISS-APPL-DATA-ALT-DESC ELSE IF EMV-ISS-APPL-DATA-FRMT-ALT = 2 MOVE "(M/CHIP 2.1)" TO WS-ISS-APPL-DATA-ALT-DESC ELSE IF EMV-ISS-APPL-DATA-FRMT-ALT = 3 MOVE "(M/CHIP 4)" TO WS-ISS-APPL-DATA-ALT-DESC ELSE IF EMV-ISS-APPL-DATA-FRMT-ALT = 4 MOVE "(CCD - A)" TO WS-ISS-APPL-DATA-ALT-DESC ELSE MOVE "(**********)" TO WS-ISS-APPL-DATA-ALT-DESC. #ADD 01416&0N 550-TABLE-LOOK-UP IF ATC-CHK OF SEG9 = "0" MOVE "(DISABLED) " TO WS-EMV-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG9 = "1" MOVE "(EMV ONLY) " TO WS-EMV-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG9 = "9" MOVE "(USE BASE SEG) " TO WS-EMV-ATC-CHK-DESC ELSE MOVE "(*************)" TO WS-EMV-ATC-CHK-DESC. #ADD 01420%0G 550-TABLE-LOOK-UP IF DCV-CHK-TYP OF SEG0 = "0" MOVE "(DCV DISABLED) " TO WS-DCV-CHK-TYP-DESC ELSE IF DCV-CHK-TYP OF SEG0 = "1" MOVE "(CVC3 ENABLED) " TO WS-DCV-CHK-TYP-DESC ELSE IF DCV-CHK-TYP OF SEG0 = "2" MOVE "(CVC3/ATC MAY BE 0)" TO WS-DCV-CHK-TYP-DESC ELSE IF DCV-CHK-TYP OF SEG0 = "5" MOVE "(DCVV ENABLED) " TO WS-DCV-CHK-TYP-DESC ELSE IF DCV-CHK-TYP OF SEG0 = "6" MOVE "(DCVV/SPLIT ATC) " TO WS-DCV-CHK-TYP-DESC ELSE MOVE "(*****************)" TO WS-DCV-CHK-TYP-DESC. IF ATC-CHK OF SEG0 = "0" MOVE "(DISABLED) " TO WS-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG0 = "1" MOVE "(EMV ONLY) " TO WS-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG0 = "2" MOVE "(CONTACTLESS) " TO WS-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG0 = "3" MOVE "(EMV/CONTACTLESS)" TO WS-ATC-CHK-DESC ELSE MOVE "(***************)" TO WS-ATC-CHK-DESC. IF PRE-SCRN-DCVD OF SEG0 = "0" MOVE "(DISABLED)" TO WS-PRE-SCRN-DCVD-DESC ELSE IF PRE-SCRN-DCVD OF SEG0 = "1" MOVE "(ENABLED) " TO WS-PRE-SCRN-DCVD-DESC ELSE MOVE "(********)" TO WS-PRE-SCRN-DCVD-DESC. IF PRE-SCRN-ATC OF SEG0 = "0" MOVE "(DISABLED)" TO WS-PRE-SCRN-ATC-DESC ELSE IF PRE-SCRN-ATC OF SEG0 = "1" MOVE "(ENABLED) " TO WS-PRE-SCRN-ATC-DESC ELSE MOVE "(********)" TO WS-PRE-SCRN-ATC-DESC. IF ATC-BAD-DISP OF SEG0 = "0" MOVE "(DENOTE & CONTINUE)" TO WS-ATC-BAD-DISP-DESC ELSE IF ATC-BAD-DISP OF SEG0 = "1" MOVE "(DENY AND RETURN)" TO WS-ATC-BAD-DISP-DESC ELSE IF ATC-BAD-DISP OF SEG0 = "2" MOVE "(DENY AND RETAIN)" TO WS-ATC-BAD-DISP-DESC ELSE IF ATC-BAD-DISP OF SEG0 = "3" MOVE "(REFER) " TO WS-ATC-BAD-DISP-DESC ELSE MOVE "(***************)" TO WS-ATC-BAD-DISP-DESC. IF DCV-BAD-DISP OF SEG0 = "0" MOVE "(DENOTE & CONTINUE)" TO WS-DCV-BAD-DISP-DESC ELSE IF DCV-BAD-DISP OF SEG0 = "1" MOVE "(DENY AND RETURN) " TO WS-DCV-BAD-DISP-DESC ELSE IF DCV-BAD-DISP OF SEG0 = "2" MOVE "(DENY AND RETAIN) " TO WS-DCV-BAD-DISP-DESC ELSE IF DCV-BAD-DISP OF SEG0 = "3" MOVE "(REFER) " TO WS-DCV-BAD-DISP-DESC ELSE MOVE "(*****************)" TO WS-DCV-BAD-DISP-DESC. #ADD 01542d0C 595-CLEAR-DATA TRK1-DCVD-OFST OF SEG0, TRK1-ATC-OFST OF SEG0, TRK1-UNPREDICT-NUM-OFST OF SEG0, TRK2-DCVD-OFST OF SEG0, TRK2-ATC-OFST OF SEG0, TRK2-UNPREDICT-NUM-OFST OF SEG0, #ADD 01570u02 595-CLEAR-DATA #ADD 01570%06 595-CLEAR-DATA MOVE "0" TO RTRN-BAL OF SEG0, TRK1-DCVD-LGTH OF SEG0, TRK2-DCVD-LGTH OF SEG0, TRK1-ATC-LGTH OF SEG0, TRK2-ATC-LGTH OF SEG0, DCV-CHK-TYP OF SEG0, ATC-CHK OF SEG0, PRE-SCRN-DCVD OF SEG0, PRE-SCRN-ATC OF SEG0. MOVE SPACES TO DCV-KEY-LOC OF SEG0. #DELETE 01570%07 595-CLEAR-DATA #DELETE 01570o02 595-CLEAR-DATA #ADD 01570u0L 595-CLEAR-DATA MOVE "0" TO EMV-ISS-APPL-DATA-FRMT-ALT. MOVE "0" TO ATC-CHK OF SEG9. #ADD 01577p02 595-CLEAR-DATA MOVE "1" TO MANUAL-CV-BAD-DISP OF SEG0, ATC-BAD-DISP OF SEG0, DCV-BAD-DISP OF SEG0. #DELETE 01577p03 595-CLEAR-DATA #ADD 01577d06 595-CLEAR-DATA MANUAL-CV-CHK-TYP OF SEG0, #ADD 01584u07 595-CLEAR-DATA MOVE "0" TO WS-EMV-ISS-APPL-DATA-ALT. MOVE "1" TO ACTION-TABLE-INDEX-ALT. MOVE "(**********)" TO WS-ISS-APPL-DATA-ALT-DESC. #ENDSCN = BA0A323 !#CMP2.28 10/24/06 SVCPFS 6036 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6036 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6036 * ******************************************************************************** #SCN = BA0A324 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6036 #NEWVERSION = 6037 #ADD 00017j0E * 14OCT2006 jaganas * Symptom: Contactless Chip and Magnetic Stripe Support * Enhancement. * Problem: None. * Fix: New field validations are needed in the Base * segment of the CPF to store flags and offsets to * be used for CVC3/dCVV cardholder verification. * New fields are declared to handle the error * messages in the working-storage section. * Modified Procs: * 480-DATA-CHECK-SCREEN3 * 480-DATA-CHECK-SCREEN11 * 620-CLEAR-SEG9 * Dependency: Apply fixes to DDLFCPF, SCRNCPF, RQCPFS, and * SVCPFS. Run Make. Refer to BA60UD0A.SCNCTLS * for a complete listing of dependencies. * Reference: WO #050209-01 * 14OCT2006 gaitonp * Symptom: EMV CCD Issuer Support Enhancement * Problem: None. * Fix: Added support for EMV issuer processing. * Procs modified: 480-DATA-CHECK-SCREEN11. * 620-CLEAR-SEG9. * 970-TRANSPORT-HEX. * Dependency: Apply fixes to DDLFCPF, SCRNCPF, RQCPFS, and * SVCPFS. Run Make. * Reference: WO #041223-02 * 14OCT2006 meyersc * Symptom: CVD/CVD2 Checking in a Single Request Enhancement * Problem: None. * Fix: Added support for CVD/CVD2 Checking in a Single * Request. * Procs modified: * 480-DATA-CHECK-SCREEN2 * Dependency: Apply fixes to SCRNCPF, RQCPFS, and SVCPFS. * Run Make. Refer to BA60UD0A.SCNCVDS for a * complete listing of dependencies. * Reference: WO #041002-10 #ADD 00387e0l DATA DIVISION 05 INVALID-DCV-CHK-TYP PIC X(65) VALUE "DCV CHECK MUST BE 0, 1, 2, 5 OR 6". 05 INVALID-ATC-CHK PIC X(65) VALUE "ATC CHECK MUST BE 0, 1, 2 OR 3". 05 INVALID-PRE-SCRN-DCVD PIC X(65) VALUE "CHECK IF HOST ONLINE DCV MUST BE 0 OR 1". 05 INVALID-PRE-SCRN-ATC PIC X(65) VALUE "ATC PRESCREEN MUST BE 0 OR 1". 05 INVALID-ATC-BAD-DISP PIC X(65) VALUE "BAD ATC ACTION MUST BE 0, 1, 2 OR 3". 05 INVALID-DCV-BAD-DISP PIC X(65) VALUE "BAD DCV ACTION MUST BE 0, 1, 2 OR 3". 05 INVALID-EMV-ATC-CHK PIC X(65) VALUE "ATC CHECK MUST BE 0, 1, 2 OR 9". 05 INVALID-DCV-KEY-LOC PIC X(65) VALUE "DYN CARD VERIF KEY LOC CANNOT HAVE EMBEDDED SPACES". 05 INVALID-TRK1-DCVD-LEN PIC X(65) VALUE "TRACK1 DCVD LGTH MUST BE 0, 3, 4 OR 5". 05 INVALID-DYN-VERF-LOC-DCV PIC X(65) VALUE "DYN CARD VERIF KEY LOC CANNOT BE SPACE IF DCV CHECK TYP - "E IS NOT 0". 05 INVALID-TRK2-DCVD-LEN PIC X(65) VALUE "TRACK2 DCVD LGTH MUST BE 0, 3, 4 OR 5". 05 INVALID-TRK1-DCVD-DCV PIC X(65) VALUE "TRACK1 DCVD OFST CANNOT BE ZERO IF DCV CHECK TYPE IS NO - "T ZERO". 05 INVALID-TRK1-DCV-LGTH-DCV PIC X(65) VALUE "TRACK1 DCVD LGTH CANNOT BE ZERO IF DCV CHECK TYPE IS NO - "T ZERO". 05 INVALID-TRK1-ATC-OFST-DCV PIC X(65) VALUE "TRACK1 ATC OFST CANNOT BE ZERO IF DCV CHECK TYPE IS NOT - " ZERO". 05 INVALID-TRK1-ATC-LGTH-DCV PIC X(65) VALUE "TRACK1 ATC LGTH CANNOT BE ZERO IF DCV CHECK TYPE IS NOT - " ZERO". 05 INVALID-TRK1-UNP-OFST-DCV PIC X(65) VALUE "TRACK1 UNPRED NUM OFST CANNOT BE ZERO IF DCV CHECK TYPE - " IS 1 OR 2". 05 INVALID-TRK2-DCVD-DCV PIC X(65) VALUE "TRACK2 DCVD OFST CANNOT BE ZERO IF DCV CHECK TYPE IS NO - "T ZERO". 05 INVALID-TRK2-DCVD-LGTH-DCV PIC X(65) VALUE "TRACK2 DCVD LGTH CANNOT BE ZERO IF DCV CHECK TYPE IS NO - "T ZERO". 05 INVALID-TRK2-ATC-OFST-DCV PIC X(65) VALUE "TRACK2 ATC OFST CANNOT BE ZERO IF DCV CHECK TYPE IS NOT - " ZERO". 05 INVALID-TRK2-ATC-LGTH-DCV PIC X(65) VALUE "TRACK2 ATC LGTH CANNOT BE ZERO IF DCV CHECK TYPE IS NOT - " ZERO". 05 INVALID-TRK2-UNP-OFST-DCV PIC X(65) VALUE "TRACK2 UNPRED NUM OFST CANNOT BE ZERO IF DCV CHECK TYPE - " IS 1 OR 2". #ADD 00399X15 DATA DIVISION 88 VALID-ACTION-INDEX VALUE "1", "2", "3", "4", "5", "6". #DELETE 00399X16 DATA DIVISION #ADD 00399e0a DATA DIVISION 88 VALID-ISS-APPL-DATA VALUE "0" THRU "4". 01 WS-EMV-ACTION-INDEX-ALT PIC X. 88 VALID-ACTION-INDEX-ALT VALUE "1", "2", "3", "4", "5", "6". 01 WS-EMV-ISS-APPL-DATA-ALT PIC X. 88 VALID-ISS-APPL-DATA-ALT VALUE "0" THRU "4". #DELETE 00399e0b DATA DIVISION #ADD 00399X19 DATA DIVISION 01 WS-SEG0-KEY-LOC. 05 WS-KEY-LOC-VERIFY PIC X OCCURS 16 TIMES. #ADD 00749c0D 480-DATA-CHECK 480-CHK-EMBD-SPACE-DYN-KEY-LOC. IF WS-KEY-LOC-VERIFY(I) NOT = SPACES AND FIRST-CHAR = "N" MOVE "Y" TO FIRST-CHAR. IF WS-KEY-LOC-VERIFY(I) = SPACES AND FIRST-CHAR = "Y" MOVE "Y" TO NO-MORE-CHARS. IF WS-KEY-LOC-VERIFY(I) NOT = SPACES AND NO-MORE-CHARS = "Y" MOVE 16 TO I MOVE "Y" TO BAD-FLAG MOVE "Y" TO FLAG-MOVE. #REPLACE 00749X8X 480-DATA-CHECK-SCREEN2 CV-CHK-TYP OF SEG0 OF CPF NOT = 2 ) #DELETE 00749X8Y 480-DATA-CHECK-SCREEN2 #REPLACE 00749X8c 480-DATA-CHECK-SCREEN2 MOVE "CV CHECK TYPE MUST BE '0', '1', OR '2'" #ADD 00749X8e 480-DATA-CHECK-SCREEN2 IF (MANUAL-CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND MANUAL-CV-CHK-TYP OF SEG0 OF CPF NOT = 1 AND MANUAL-CV-CHK-TYP OF SEG0 OF CPF NOT = 2 ) ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL CV CHECK TYPE MUST BE '0', '1', OR '2'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749X8j 480-DATA-CHECK-SCREEN2 MOVE 14 TO FLD-ID-NUM(ERR-CNT) #ADD 00749X8o 480-DATA-CHECK-SCREEN2 IF (DAT-CHK-TYP OF SEG0 OF CPF NOT = 0 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 1 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 2 AND DAT-CHK-TYP OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DATA CHECK TYPE MUST BE '0', '1', '2', OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND TRK1-SC-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 1 ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SRVC CODE OFST CANNOT BE 0 IF CV CHECK TYP IS - "NOT 0." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND TRK1-CV-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 1 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CVD OFST CANNOT BE 0 IF CV CHECK TYP IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 IF CV-EFF-DAT OF SEG0 OF CPF = SPACES ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV DATE IS A REQUIRED FIELD WHEN CHECK TYPE - "IS NOT ZERO." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE MOVE CV-EFF-DAT OF SEG0 OF CPF TO WS-CV-EFF-DAT-CHK IF MONTH-BYTE2 = SPACES ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) MOVE "00" TO MM OF WS-CV-EFF-DAT-CHK IF MOVE-MESSAGE MOVE "CV DATE MONTH CAN NOT END IN A SPACE, CV DAT - "E MUST BE IN YYMM FORMAT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF NOT VALID-MM ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV DATE MONTH MUST BE '01' - '12' -- FORM - "AT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND SC-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SRVC CODE OFST CANNOT BE 0 IF CV CHECK TYP IS - "NOT 0." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CV-CHK-TYP OF SEG0 OF CPF NOT = 0 AND CV-OFST OF SEG0 OF CPF = 0 AND TRK-PREF OF SEG0 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CVD OFST CANNOT BE 0 IF CV CHECK TYP IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF MANUAL-CV-CHK-TYP OF SEG0 OF CPF NOT = 0 IF MANUAL-CV-EFF-DAT OF SEG0 OF CPF = ZEROS ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL CV DATE IS REQUIRED WHEN MANUAL CV CH - "ECK TYPE IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE DIVIDE MANUAL-CV-EFF-DAT OF SEG0 OF CPF BY 100 GIVING MCV-YEAR MULTIPLY MCV-YEAR BY 100 GIVING MCV-YEAR SUBTRACT MCV-YEAR FROM MANUAL-CV-EFF-DAT OF SEG0 OF CPF GIVING MCV-MONTH IF MCV-MONTH < 1 OR MCV-MONTH > 12 ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL CV DATE MONTH MUST BE '01' - '12' - "-- FORMAT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749X8p/00749XAW 480-DATA-CHECK-SCREEN2 #REPLACE 00749XAd 480-DATA-CHECK-SCREEN2 MOVE 22 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XAo 480-DATA-CHECK-SCREEN2 MOVE 23 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749XB0 480-DATA-CHECK-SCREEN2 MOVE 23 TO FLD-ID-NUM(ERR-CNT) #ADD 00749e1A 480-DATA-CHECK-SCREEN4 IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "1" AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "2" AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "5" AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "6" ) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-DCV-CHK-TYP TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-KEY-LOC OF SEG0 = SPACES AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" ) ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-DYN-VERF-LOC-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DCV-KEY-LOC OF SEG0 OF CPF NOT = SPACES MOVE DCV-KEY-LOC OF SEG0 OF CPF TO WS-SEG0-KEY-LOC MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHK-EMBD-SPACE-DYN-KEY-LOC VARYING I FROM 1 BY 1 UNTIL I > 16 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-DCV-KEY-LOC TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "1" AND TRK1-DCVD-OFST = 0 ) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-DCVD-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( TRK1-DCVD-LGTH NOT = 0 AND TRK1-DCVD-LGTH NOT = 3 AND TRK1-DCVD-LGTH NOT = 4 AND TRK1-DCVD-LGTH NOT = 5 ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-DCVD-LEN TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "1" AND TRK1-DCVD-LGTH = 0 ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-DCV-LGTH-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "1" AND TRK1-ATC-OFST = 0 ) ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-ATC-OFST-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "1" AND TRK1-ATC-LGTH = 0 ) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-ATC-LGTH-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF = "1" OR DCV-CHK-TYP OF SEG0 OF CPF = "2" ) AND TRK-PREF OF SEG0 OF CPF = "1" AND TRK1-UNPREDICT-NUM-OFST = 0 ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK1-UNP-OFST-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "0" AND TRK2-DCVD-OFST = 0 ) ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-DCVD-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( TRK2-DCVD-LGTH NOT = 0 AND TRK2-DCVD-LGTH NOT = 3 AND TRK2-DCVD-LGTH NOT = 4 AND TRK2-DCVD-LGTH NOT = 5 ) ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-DCVD-LEN TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "0" AND TRK2-DCVD-LGTH = 0 ) ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-DCVD-LGTH-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "0" AND TRK2-ATC-OFST = 0 ) ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-ATC-OFST-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF NOT = "0" AND TRK-PREF OF SEG0 OF CPF = "0" AND TRK2-ATC-LGTH = 0 ) ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-ATC-LGTH-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-CHK-TYP OF SEG0 OF CPF = "1" OR DCV-CHK-TYP OF SEG0 OF CPF = "2" ) AND TRK-PREF OF SEG0 OF CPF = "0" AND TRK2-UNPREDICT-NUM-OFST = 0 ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-TRK2-UNP-OFST-DCV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( ATC-CHK OF SEG0 OF CPF NOT = "0" AND ATC-CHK OF SEG0 OF CPF NOT = "1" AND ATC-CHK OF SEG0 OF CPF NOT = "2" AND ATC-CHK OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-ATC-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PRE-SCRN-DCVD OF SEG0 OF CPF NOT = "0" AND PRE-SCRN-DCVD OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-PRE-SCRN-DCVD TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PRE-SCRN-ATC OF SEG0 OF CPF NOT = "0" AND PRE-SCRN-ATC OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-PRE-SCRN-ATC TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( ATC-BAD-DISP OF SEG0 OF CPF NOT = "0" AND ATC-BAD-DISP OF SEG0 OF CPF NOT = "1" AND ATC-BAD-DISP OF SEG0 OF CPF NOT = "2" AND ATC-BAD-DISP OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-ATC-BAD-DISP TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( DCV-BAD-DISP OF SEG0 OF CPF NOT = "0" AND DCV-BAD-DISP OF SEG0 OF CPF NOT = "1" AND DCV-BAD-DISP OF SEG0 OF CPF NOT = "2" AND DCV-BAD-DISP OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-DCV-BAD-DISP TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749XKS 480-DATA-CHECK-SCREEN11 IF ( ATC-CHK OF SEG9 OF CPF NOT = "0" AND ATC-CHK OF SEG9 OF CPF NOT = "1" AND ATC-CHK OF SEG9 OF CPF NOT = "9" ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-EMV-ATC-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE EMV-ISS-APPL-DATA-FRMT OF SEG9 OF CPF TO WS-EMV-ISS-APPL-DATA. IF NOT VALID-ISS-APPL-DATA ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ISSUER APPL DATA FORMAT MUST BE 0,1,2,3 OR 4" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ACTION-TABLE-INDEX OF SEG9 OF CPF TO WS-EMV-ACTION-INDEX. IF NOT VALID-ACTION-INDEX ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "STATUS CHECK ACTION INDEX MUST BE 1,2,3,4,5 - "OR 6" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE EMV-ISS-APPL-DATA-FRMT-ALT OF SEG9 OF CPF TO WS-EMV-ISS-APPL-DATA-ALT. IF NOT VALID-ISS-APPL-DATA-ALT ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ALTERNATE ISSUER APPL DATA FORMAT MUST BE - "0,1,2,3 OR 4" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ACTION-TABLE-INDEX-ALT OF SEG9 OF CPF TO WS-EMV-ACTION-INDEX-ALT. IF NOT VALID-ACTION-INDEX-ALT ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ALTERNATE ACTION INDEX MUST BE 1,2,3,4,5 OR 6" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CHECK HOST ONLINE CAM MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-FALLBACK OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-FALLBACK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "HOST ONLINE FALLBACK CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-TVR-CVR OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-TVR-CVR OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PRE SCREEN TVR/CVR CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRE-SCRN-CHK-RSN-ONL-CDE OF SEG9 OF CPF NOT = "N" AND PRE-SCRN-CHK-RSN-ONL-CDE OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PRE SCRN ONLINE CODE CHECK MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "0" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "1" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "2" AND BAD-CAM-ACT-RELIABLE OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAM ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "0" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "1" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "2" AND BAD-CAM-ACT-UNRELIABLE OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAM ACTION MUST BE '0', '1', '2' OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION ATM MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "1" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION POS MUST BE 0,1 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "N" AND FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FORCE ONLINE FALLBACK CHECK MUST BE 'Y' - " OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EMV-ISS OF SEG9 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV ISSUER MUST BE NUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-BAD-OFFL-PIN-ERR-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "2" ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PIN MANAGEMENT ACTION MUST BE - "0,1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE WS-TRANSPORT-KEY TO WS-TRANSPORT-KEY-X. PERFORM 970-TRANSPORT-HEX VARYING Q FROM 1 BY 1 UNTIL Q > 16. MOVE EMV-PREFIX-RTE OF SEG9 OF CPF TO WS-EMV-PREFIX-RTE. IF NOT VALID-PREFIX-RTE ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PREFIX ROUTING MUST BE NUMERIC, 'A' OR SPACE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "1" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "2" AND EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 23 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CARD VERIFICATION CHECK TYPE MUST BE 0-3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF EMV-CV-EFF-DAT OF SEG9 OF CPF = ZEROS ADD 1 TO ERR-CNT MOVE 24 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATE IS REQUIRED WHEN EMV CHECK - "TYPE IS NOT 0" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE DIVIDE EMV-CV-EFF-DAT OF SEG9 OF CPF BY 100 GIVING EMV-CV-YEAR MULTIPLY EMV-CV-YEAR BY 100 GIVING EMV-CV-YEAR SUBTRACT EMV-CV-YEAR FROM EMV-CV-EFF-DAT OF SEG9 OF CPF GIVING EMV-CV-MONTH IF EMV-CV-MONTH < 1 OR EMV-CV-MONTH > 12 ADD 1 TO ERR-CNT MOVE 24 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATE MONTH MUST BE '01' - '12' - "-- FORMAT YYMM" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "0" AND EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 25 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV CHECK METHOD MUST BE '0' OR '1'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CV-CHK-TYP OF SEG9 OF CPF NOT = "0" ) IF ( EMV-CV-DATA NOT NUMERIC OR ( EMV-CV-DATA OF SEG9 OF CPF < 0 AND EMV-CV-DATA OF SEG9 OF CPF > 999 ) ) ADD 1 TO ERR-CNT MOVE 26 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV CV DATA MUST BE 3 CHARS NUMERIC ONLY" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749XKT/00749XMY 480-DATA-CHECK-SCREEN11 #REPLACE 00876W03 620-CLEAR-SEG9 MOVE "Y" TO EMV-CHK OF SEG9. #DELETE 00876W04 620-CLEAR-SEG9 #ADD 00876W09 620-CLEAR-SEG9 #ADD 00876W0C 620-CLEAR-SEG9 ATC-CHK OF SEG9 #ADD 00876f03 620-CLEAR-SEG9 MOVE "0" TO EMV-ISS-APPL-DATA-FRMT-ALT OF SEG9. #ADD 00876W0G 620-CLEAR-SEG9 ACTION-TABLE-INDEX-ALT OF SEG9 #ADD 01506f0A 970-TRANSPORT-HEX MOVE 21 TO FLD-ID-NUM(ERR-CNT) #DELETE 01506f0B 970-TRANSPORT-HEX #ENDSCN = BA0A324 !#CMP2.28 10/20/06 SECTBL 6023 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6023 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6023 * ******************************************************************************** #SCN = BA0A325 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6023 #NEWVERSION = 6024 #ADD 00268W0D * 14OCT2006 Steffej * Symptom: HISO Full Message Encryption Enhancement. * Problem: None. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA for * a new KEYF screen. Incremented PROD-SCRN-ACC-TABL * and PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fix to SECTBL and run Make. * Refer to BA60UD0A.SCNHISO for a complete listing * of dependencies. * Reference: WO #060831-01 #ADD 00620 05 KEYF4 PIC X(35) VALUE "KEYF040000INTERFACE MSG KEY INFO ". #REPLACE 00893W01 05 PROD-SCRN-ACC-TABL OCCURS 608 TIMES. #REPLACE 00906W01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 608. #ENDSCN = BA0A325 !#CMP2.28 10/20/06 RQHCFS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQHCFS RQHCFS 6044 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQHCFS RQHCFS 6044 * ******************************************************************************** #SCN = BA0A327 , FILEID = RQHCFS #VOLUME = $ROOK.BA60AFT #FILE = RQHCFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00019r0J * 14OCT2006 kotharg * Symptom: HISO Miscellaneous Changes Enhancement. * Problem: None. * Fix: New fields have been added to the HCF for * ASCII/EBCDIC conversion and enhanced performance * monitoring support. * Modified Paragraph: 400-MOVE-RECORD * 400-SAVE-RECORD * 480-DATA-CHECK * 550-DESCR-OVERLAY-1 * 595-CLEAR-DATA * Dependency: Apply fixes to DDLFHCF, RQHCFS and SCRNHCFS. * Run Make. * Refer to BA60UD0A.SCNHISM for a complete listing * of dependencies. * Reference: WO #060417-03. #ADD 00093j00 DATA DIVISION 05 WS-CHAR-FRMT PIC X(8). 05 WS-ENHNC-STAT PIC X. #ADD 00192G0A 400-MOVE-RECORD IF ENHNC-STAT = 1 MOVE "Y" TO WS-ENHNC-STAT ELSE MOVE "N" TO WS-ENHNC-STAT. #ADD 00203G08 400-SAVE-RECORD IF WS-ENHNC-STAT = "Y" MOVE "1" TO ENHNC-STAT OF SEG0 ELSE MOVE "0" TO ENHNC-STAT OF SEG0. #ADD 00353j2A 480-DATA-CHECK IF WS-OVERLAY = 1 IF CHAR-FRMT OF SEG0 NOT = "A" AND NOT = "E" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN H-CHAR-FRMT IF MOVE-MESSAGE SET NEW-CURSOR AT H-CHAR-FRMT MOVE "CHARACTER FORMAT MUST BE 'A' OR 'E'" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 1 IF WS-ENHNC-STAT NOT = "Y" AND NOT = "N" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN H-ENHNC-STAT IF MOVE-MESSAGE SET NEW-CURSOR AT H-ENHNC-STAT MOVE "ENHANCED STATUS MUST BE 'Y' OR 'N'" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00568j0K 550-DESCR-OVERLAY-1 MOVE SPACES TO WS-CHAR-FRMT. IF CHAR-FRMT OF SEG0 = "E" MOVE "(EBCDIC)" TO WS-CHAR-FRMT ELSE IF CHAR-FRMT OF SEG0 = "A" MOVE "(ASCII) " TO WS-CHAR-FRMT ELSE MOVE "(******)" TO WS-CHAR-FRMT. #ADD 00645j04 595-CLEAR-DATA MOVE "A" TO CHAR-FRMT OF SEG0. MOVE "N" TO WS-ENHNC-STAT. #ENDSCN = BA0A327 !#CMP2.28 10/20/06 RQIPCFXS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQIPCFXS RQIPCFXS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQIPCFXS RQIPCFXS 6000 * ******************************************************************************** #SCN = BA0A329 , FILEID = RQIPCFXS #VOLUME = $ROOK.BA60AFT #FILE = RQIPCFXS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00050 * * 14OCT2006 NarasiL * Symptom: Completion Messages Configuration Enhancement. * Problem: None. * Fix: Modified logic to make the default display of * IPCF.COMPL_REQ as "0" and added its corresponding * description (NO COMPLETION REQUIRED). * Dependency: Apply fixes to RQIPCFSS, RQIPCFXS and run Make. * Refer to BA60UD0A.SCNCOMP for a complete listing * of dependencies. * Reference: WO #060417-02 #ADD 00155 DATA DIVISION 06 COMPL-REQ-DESCR PIC X(40). #REPLACE 00168 DATA DIVISION 05 LEFTOVER PIC X(650). #REPLACE 01787 595-CLEAR-DETL-SCREEN MOVE "0" TO COMPL-REQ OF IPCF. #ADD 01797 595-CLEAR-DETL-SCREEN MOVE "(NO COMPLETION REQUIRED) " TO COMPL-REQ-DESCR OF OVERLAY-2-FIELDS. #ENDSCN = BA0A329 !#CMP2.28 10/20/06 SVIPCFTG6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIPCFTG SVIPCFTG 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIPCFTG SVIPCFTG 6001 * ******************************************************************************** #SCN = BA0A330 , FILEID = SVIPCFTG #VOLUME = $ROOK.BA60AFT #FILE = SVIPCFTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00043A09 ! 14OCT2006 NarasiL ! Symptom: Completion Messages Configuration Enhancement. ! Problem: None. ! Fix: Added defines for IPCF.COMPL_REQ field. ! Added COMPL_REQ_DESCR structure for displaying the ! description of IPCF.COMPL_REQ on the AFT screen. ! Dependency: Apply fixes to SVIPCFTG, SVIPCFTS and run MAKE. ! Refer to BA60UD0A.SCNCOMP for a complete listing of ! dependencies. ! Reference: WO #060417-02 #ADD 00133 ! ! Defines for COMPL_REQ ! define ipcf_no_compl_rqd_d = "0"#; define ipcf_apprvd_compl_rqd_d = "1"#; define ipcf_compl_rqd_tran_d = "4"#; define ipcf_compl_rqd_apprvd_b24_d = "5"#; define ipcf_compl_rqd_b24_d = "6"#; #ADD 00401 struct compl_req_descr; begin string byte[ 0:39 ]; end; #REPLACE 00496A00 OFFSET 1 ! 7 ! "COMPLETION REQUIRED TO HOST MUST BE '0', '1', '4', '5' OR '6' ", #ENDSCN = BA0A330 !#CMP2.28 10/20/06 SVIPCFTS6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIPCFTS SVIPCFTS 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIPCFTS SVIPCFTS 6001 * ******************************************************************************** #SCN = BA0A331 , FILEID = SVIPCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVIPCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00042A0B ! 14OCT2006 NarasiL ! Symptom: Completion Messages Configuration Enhancement. ! Problem: None. ! Fix: Added code to map and validate IPCF.COMP_REQ of 5 ! and 6. Altered existing references of "N","Y" and "A" ! to "0","1" and "4" respectively. ! Modified proc: IPCF_B_RQST_PROCESS ! IPCF_UTIL_DATA_CHK_OVERLAY_2 ! IPCF_UTIL_LOOK_UP_OVERLAY_2 ! Dependency: Apply fixes to SVIPCFTG and SVIPCFTS and run MAKE. ! Refer to BA60UD0A.SCNCOMP for a complete listing of ! dependencies. ! Reference: WO #060417-02 #DELETE 00560 /00570 IPCF_B_RQST_PROCESS #ADD 03010 IPCF_UTIL_DATA_CHK_OVERLAY_2 if ipcf.compl_req <> "0" and ipcf.compl_req <> "1" and ipcf.compl_req <> "4" and ipcf.compl_req <> "5" and ipcf.compl_req <> "6" then #DELETE 03011 /03012A02 IPCF_UTIL_DATA_CHK_OVERLAY_2 #REPLACE 03020 IPCF_UTIL_DATA_CHK_OVERLAY_2 end; #DELETE 03021 /03030 IPCF_UTIL_DATA_CHK_OVERLAY_2 #ADD 05706 IPCF_UTIL_LOOK_UP_OVERLAY_2 ! ! Fill in the Completion required field Description. ! case ( ipcf.compl_req ) of begin ipcf_no_compl_rqd_d -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(NO COMPLETION REQUIRED) "; end; ipcf_apprvd_compl_rqd_d -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(REQUIRED FOR ALL APPROVED TXNS) "; end; ipcf_compl_rqd_tran_d -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(REQUIRED FOR ALL TXNS) "; end; ipcf_compl_rqd_apprvd_b24_d -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(REQUIRED FOR APPROVED B24 AUTH TXNS) "; end; ipcf_compl_rqd_b24_d -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(REQUIRED FOR ALL B24 AUTHORIZED TXNS) "; end; otherwise -> begin ipcf_rqst.overlay_2_flds.compl_req_descr ':=' "(**************************************)"; end; end; ! of case #ENDSCN = BA0A331 !#CMP2.28 11/01/06 RQKEYFS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQKEYFS RQKEYFS 6026 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQKEYFS RQKEYFS 6026 * ******************************************************************************** #SCN = BA0A333 , FILEID = RQKEYFS #VOLUME = $ROOK.BA60AFT #FILE = RQKEYFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00193Z0A * 14OCT2006 kotharg * Symptom: HISO Full Message Encryption Enhancement. * Problem: None. * Fix: New fields have been added to the KEYF for full * message encryption support. * Modified Paragraph: 400-ZERO-IF-NEEDED * 480-DATA-CHECK-RETURN * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * 595-SCREEN-INIT * 800-SET-UP * 990-SET-PAGE * Added Paragraph: 480-CHK-OVERLAY-4 * 480-ERR-FLAG-OV-4 * 480-FLAG-OV-4-FIELD-1 * 480-FLAG-OV-4-FIELD-2 * 480-FLAG-OV-4-FIELD-3 * 480-FLAG-OV-4-FIELD-4 * 480-FLAG-OV-4-FIELD-5 * 480-FLAG-OV-4-FIELD-6 * 480-FLAG-OV-4-FIELD-7 * 480-FLAG-OV-4-FIELD-8 * 480-FLAG-OV-4-FIELD-9 * 480-FLAG-OV-4-FIELD-10 * 550-LOOK-UP-OVERLAY4 * Dependency: Apply fixes to DDLFKEYF, RQKEYFS, SVKEYFS and * SCRNKEYF. Run Make. Refer to BA60UD0A.SCNHISO * for a complete listing of dependencies. * Reference: WO #060831-01. #ADD 00304Q08 DATA DIVISION 05 WS-FULL-ENCRYPT-DESC PIC X(17). 05 WS-ENCRYPT-TYP-MSG-DESC PIC X(15). 05 WS-KEY-TIMER-INT-DESC PIC X(9). #REPLACE 00387Q01 DATA DIVISION 88 VALID-OVERLAY VALUE 1, 2, 3, 4, 48. #REPLACE 00389Q05 DATA DIVISION 05 KEYF4 PIC X(4) VALUE "BASE". #ADD 00440Q0G DATA DIVISION 05 WS-KEY-CHK-VALUE PIC X(4). 05 WS-M-O-KEY-CNTR PIC X(6). 05 WS-M-I-KEY-CNTR PIC X(6). 05 WS-KEY-TIMER-INTERVAL PIC X. 05 FILLER PIC X. #REPLACE 00453Q01 DATA DIVISION 05 LEFTOVER PIC X(710). #REPLACE 00469Y09 DATA DIVISION COPY SC-KEYF4 OF =BAAFT_SCNKEYFO. #ADD 01030Q0S 400-ZERO-IF-NEEDED IF WS-KEY-CHK-VALUE = SPACES MOVE ZEROES TO WS-KEY-CHK-VALUE. #ADD 01365N14 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-4, #ADD 01365Q0U 480-CHK-OVERLAY-3 480-CHK-OVERLAY-4. PERFORM 480-ERR-FLAG-OV-4 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 01365R0O 480-FLAG-OV-3-FIELD-18 480-ERR-FLAG-OV-4. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-BASE-FIELD-1, 480-FLAG-OV-4-FIELD-1, 480-FLAG-OV-4-FIELD-2, 480-FLAG-OV-4-FIELD-3, 480-FLAG-OV-4-FIELD-4, 480-FLAG-OV-4-FIELD-5, 480-FLAG-OV-4-FIELD-6, 480-FLAG-OV-4-FIELD-7, 480-FLAG-OV-4-FIELD-8, 480-FLAG-OV-4-FIELD-9, 480-FLAG-OV-4-FIELD-10, DEPENDING ON K. 480-FLAG-OV-4-FIELD-1. TURN TEMP SERROR IN K-FULL-ENCRYPT. SET NEW-CURSOR AT K-FULL-ENCRYPT. 480-FLAG-OV-4-FIELD-2. TURN TEMP SERROR IN K-ENCRYPT-TYP-MSG. SET NEW-CURSOR AT K-ENCRYPT-TYP-MSG. 480-FLAG-OV-4-FIELD-3. TURN TEMP SERROR IN K-KEY-CHK-VALUE. SET NEW-CURSOR AT K-KEY-CHK-VALUE. 480-FLAG-OV-4-FIELD-4. TURN TEMP SERROR IN K-KEY-OUTBND-CNTR. SET NEW-CURSOR AT K-KEY-OUTBND-CNTR. 480-FLAG-OV-4-FIELD-5. TURN TEMP SERROR IN K-KEY-INBND-CNTR. SET NEW-CURSOR AT K-KEY-INBND-CNTR. 480-FLAG-OV-4-FIELD-6. TURN TEMP SERROR IN K-KEY-TIMER-LMT. SET NEW-CURSOR AT K-KEY-TIMER-LMT. 480-FLAG-OV-4-FIELD-7. TURN TEMP SERROR IN K-KEY-TIMER-INTVL. SET NEW-CURSOR AT K-KEY-TIMER-INTVL. 480-FLAG-OV-4-FIELD-8. TURN TEMP SERROR IN K-KEY-TRAN-LMT. SET NEW-CURSOR AT K-KEY-TRAN-LMT. 480-FLAG-OV-4-FIELD-9. TURN TEMP SERROR IN K-ERR-LMT. SET NEW-CURSOR AT K-ERR-LMT. 480-FLAG-OV-4-FIELD-10. TURN TEMP SERROR IN K-CONS-ERR-LMT. SET NEW-CURSOR AT K-CONS-ERR-LMT. #REPLACE 05409Q05/05409Q05 OFFSET 0 550-TABLE-LOOK-UP PERFORM 550-LOOK-UP-OVERLAY3 ELSE IF WS-OVERLAY = 4 PERFORM 550-LOOK-UP-OVERLAY4. #ADD 05497Q2A 550-LOOK-UP-OVERLAY3 550-LOOK-UP-OVERLAY4. MOVE SPACES TO WS-FULL-ENCRYPT-DESC. IF FULL-ENCRYPT = "0" MOVE "(NO ENCRYPTION) " TO WS-FULL-ENCRYPT-DESC ELSE IF FULL-ENCRYPT = "1" MOVE "(FULL ENCRYPTION)" TO WS-FULL-ENCRYPT-DESC ELSE MOVE "(***************)" TO WS-FULL-ENCRYPT-DESC. MOVE SPACES TO WS-ENCRYPT-TYP-MSG-DESC. IF ENCRYPT-TYP-MSG = "0" MOVE "(NO ENCRYPTION)" TO WS-ENCRYPT-TYP-MSG-DESC ELSE IF ENCRYPT-TYP-MSG = "1" MOVE "(SECURE DEVICE)" TO WS-ENCRYPT-TYP-MSG-DESC ELSE MOVE "(*************)" TO WS-ENCRYPT-TYP-MSG-DESC. IF WS-KEY-TIMER-INTERVAL = "M" MOVE "(MINUTES)" TO WS-KEY-TIMER-INT-DESC ELSE IF WS-KEY-TIMER-INTERVAL = "H" MOVE "(HOURS)" TO WS-KEY-TIMER-INT-DESC ELSE IF WS-KEY-TIMER-INTERVAL = "D" MOVE "(DAYS)" TO WS-KEY-TIMER-INT-DESC ELSE MOVE "(*******)" TO WS-KEY-TIMER-INT-DESC. #ADD 05742Q0E 595-CLEAR-DATA MOVE ZEROES TO WS-KEY-CHK-VALUE. #ADD 05742Q0G 595-CLEAR-DATA MOVE "M" TO WS-KEY-TIMER-INTERVAL. #ADD 05742Q0K 595-CLEAR-DATA MOVE "(MINUTES)" TO WS-KEY-TIMER-INT-DESC. #ADD 05742Q0P 595-CLEAR-DATA MOVE ZEROES TO WS-M-O-KEY-CNTR. MOVE ZEROES TO WS-M-I-KEY-CNTR. #ADD 05742Q19 595-CLEAR-DATA MOVE "0" TO FULL-ENCRYPT OF INTERFACE OF KEYF. MOVE "0" TO ENCRYPT-TYP-MSG OF INTERFACE OF KEYF. MOVE 0 TO KEY-TIMER-LMT OF INTERFACE OF KEYF. MOVE 0 TO KEY-TRAN-LMT OF INTERFACE OF KEYF. MOVE 0 TO ERR-LMT OF INTERFACE OF KEYF. MOVE 0 TO CONS-ERR-LMT OF INTERFACE OF KEYF. #REPLACE 05791Q01 595-SCREEN-INIT MOVE 4 TO WS-OVERLAY-MAX, WS-PAGE-OF. #REPLACE 05802Q0N 800-SET-UP MOVE 4 TO WS-OVERLAY-MAX. #REPLACE 05892Q01 990-SET-PAGE MOVE 4 TO WS-OVERLAY-MAX, WS-PAGE-OF #ENDSCN = BA0A333 !#CMP2.28 11/01/06 SVKEYFS 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVKEYFS SVKEYFS 6007 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVKEYFS SVKEYFS 6007 * ******************************************************************************** #SCN = BA0A334 , FILEID = SVKEYFS #VOLUME = $ROOK.BA60AFT #FILE = SVKEYFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00147G0A * 14OCT2006 kotharg * Symptom: HISO Full Message Encryption Enhancement. * Problem: None. * Fix: New fields have been added to the KEYF for full * message encryption support. * Modified Paragraph: 115-INTER-HEX-BINARY * 115-INTER-BINARY-HEX * 480-DATA-CHECK-BASE * 481-CONVERT-LMTS-TO-DISK * 481-CONVERT-LMTS-FROM-DISK * Added Paragraph: 480-DATA-CHECK-SCREEN4 * 480-CHECK-MSG-RANGE * 481-CONVERT-MSG-LIMITS * Dependency: Apply fixes to DDLFKEYF, RQKEYFS, SVKEYFS and * SCRNKEYF. Run Make. Refer to BA60UD0A.SCNHISO * for a complete listing of dependencies. * Reference: WO #060831-01. #ADD 00294A0G DATA DIVISION 05 WS-KEY-CHK-VALUE PIC X(4). 05 WS-M-O-KEY-CNTR PIC X(6). 05 WS-M-I-KEY-CNTR PIC X(6). 05 WS-KEY-TIMER-INTERVAL PIC X. 05 FILLER PIC X. #REPLACE 00365A01 DATA DIVISION 05 LEFTOVER PIC X(710). #ADD 00455A02 DATA DIVISION 01 KEY-TIMER-LMT-HOLD PIC S9(4) COMP. #ADD 00859A1T 115-INTER-HEX-BINARY IF ENCR-NBR = -1 ENTER "HEXCHAR^BINARY" OF UTILIB USING WS-KEY-CHK-VALUE, 4, KEY-CHK-VALUE GIVING ENCR-NBR. #ADD 00859A2L 115-INTER-HEX-BINARY MOVE WS-M-O-KEY-CNTR TO WS-KEY-CNTR-2. IF ENCR-NBR = -1 ENTER "HEXCHAR^BINARY" OF UTILIB USING WS-KEY-CNTR, 8, OUTBND-KEY-CNTR OF MSG GIVING ENCR-NBR. MOVE WS-M-I-KEY-CNTR TO WS-KEY-CNTR-2. IF ENCR-NBR = -1 ENTER "HEXCHAR^BINARY" OF UTILIB USING WS-KEY-CNTR, 8, INBND-KEY-CNTR OF MSG GIVING ENCR-NBR. #ADD 01147A1T 115-INTER-BINARY-HEX IF ENCR-NBR = -1 ENTER "BINARY^HEXCHAR" OF UTILIB USING WS-KEY-CHK-VALUE, 4, KEY-CHK-VALUE GIVING ENCR-NBR. #ADD 01148 115-INTER-BINARY-HEX IF ENCR-NBR = -1 ENTER "BINARY^HEXCHAR" OF UTILIB USING WS-KEY-CNTR, 8, OUTBND-KEY-CNTR OF MSG GIVING ENCR-NBR. MOVE WS-KEY-CNTR-2 TO WS-M-O-KEY-CNTR. IF ENCR-NBR = -1 ENTER "BINARY^HEXCHAR" OF UTILIB USING WS-KEY-CNTR, 8, INBND-KEY-CNTR OF MSG GIVING ENCR-NBR. MOVE WS-KEY-CNTR-2 TO WS-M-I-KEY-CNTR. #REPLACE 01288F0C/01288F0C OFFSET 0 480-DATA-CHECK-BASE PERFORM 480-DATA-CHECK-SCREEN3 ELSE IF OVERLAY-NUM = 4 PERFORM 480-DATA-CHECK-SCREEN4. #ADD 01656A01 480-DATA-CHECK-SCREEN3 480-DATA-CHECK-SCREEN4. IF FULL-ENCRYPT NOT = "0" AND FULL-ENCRYPT NOT = "1" AND FULL-ENCRYPT NOT = "2" MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "FULL MESSAGE ENCRYPTION MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ENCRYPT-TYP-MSG NOT = "0" AND ENCRYPT-TYP-MSG NOT = "1" MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MESSAGE ENCRYPTION TYPE MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE WS-KEY-CHK-VALUE TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 4. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. MOVE WS-M-O-KEY-CNTR TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 6. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. MOVE WS-M-I-KEY-CNTR TO WS-KEY-HOLD. MOVE "N" TO BAD-FLAG. MOVE 0 TO KEY-DATA-FLAG. PERFORM 480-VERIFY-HEX-DATA VARYING I FROM 1 BY 1 UNTIL I > 6. IF FOUND-BAD ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "N" TO FLAG-MOVE. IF ENCRYPT-TYP-MSG NOT = "1" AND KEY-TIMER-LMT NOT = 0 MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "KEY TIMER VALUE MUST BE 0 IF ENCRYPT TYPE IS NO - "T 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF WS-KEY-TIMER-INTERVAL = "M" IF KEY-TIMER-LMT > 1500 MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY TIMER VALUE MUST BE BETWEEN 5 AND 1 - "500." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF ENCRYPT-TYP-MSG = "1" AND ( KEY-TIMER-LMT = 0 OR KEY-TIMER-LMT < 5 ) MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY TIMER VALUE MUST BE AT LEAST 5 MINU - "TES, IF IT NOT ZERO." TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF ELSE IF WS-KEY-TIMER-INTERVAL = "H" IF ENCRYPT-TYP-MSG = "1" AND ( KEY-TIMER-LMT = 0 OR KEY-TIMER-LMT > 1000 ) MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY TIMER VALUE MUST BE BETWEEN 1 AND 1 - "000" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF ELSE IF WS-KEY-TIMER-INTERVAL = "D" IF ENCRYPT-TYP-MSG = "1" AND ( KEY-TIMER-LMT = 0 OR KEY-TIMER-LMT > 180 ) MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY TIMER VALUE MUST BE BETWEEN 1 AND 1 - "80" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-KEY-TIMER-INTERVAL NOT = "M" AND WS-KEY-TIMER-INTERVAL NOT = "H" AND WS-KEY-TIMER-INTERVAL NOT = "D" ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM( ERR-CNT ) MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE MOVE "MSG KEY TIMER INTERVAL MUST BE 'H' 'M' OR 'D'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ENCRYPT-TYP-MSG NOT = "1" AND KEY-TRAN-LMT NOT = 0 MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY TRAN MUST BE 0, IF MSG ENCRYPT TYPE IS - "NOT 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF KEY-TRAN-LMT = SPACES OR KEY-TRAN-LMT > 100000 ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM( ERR-CNT ) MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE MOVE "MSG KEY TRAN MUST BE LESS THAN OR EQUAL TO 1000 - "00" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF ENCRYPT-TYP-MSG = "1" AND ( KEY-TRAN-LMT = 0 OR KEY-TRAN-LMT < 50 ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM( ERR-CNT ) MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE MOVE "MSG KEY TRAN MUST BE AT LEAST 50, IF IT IS NOT - "ZERO" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ENCRYPT-TYP-MSG NOT = "1" AND ERR-LMT NOT = 0 MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "MSG KEY ERROR MUST BE 0 IF MSG ENCRYPT TYPE IS - "NOT 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF ERR-LMT NOT = 0 AND ERR-LMT < 5 ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM( ERR-CNT ) MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE MOVE "MSG KEY ERROR MUST BE AT LEAST 5, IF IT IS NOT - "O" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ENCRYPT-TYP-MSG NOT = "1" AND CONS-ERR-LMT NOT = 0 MOVE 1 TO KEY-DATA-FLAG MOVE "BAD" TO VALID-DATA ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM( ERR-CNT ) IF MOVE-MESSAGE MOVE "CONSECUTIVE MSG KEY ERROR MUST BE 0 IF MSG ENCR - "YPT TYPE IS NOT 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF ELSE IF CONS-ERR-LMT NOT = 0 AND CONS-ERR-LMT < 5 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM( ERR-CNT ) MOVE "BAD" TO VALID-DATA IF MOVE-MESSAGE MOVE "CONSECUTIVE MSG KEY ERROR MUST BE AT LEAST 5, I - "F IT IS NOT ZERO" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 03562A0B 480-CHECK-PIN-RANGE IF KEY-TIMER-LMT NOT = ZEROS PERFORM 480-CHECK-MSG-RANGE ELSE MOVE "M" TO WS-KEY-TIMER-INTERVAL. #ADD 03562A12 480-CHECK-MAC-RANGE 480-CHECK-MSG-RANGE. IF WS-KEY-TIMER-INTERVAL = "M" MULTIPLY 6000 BY KEY-TIMER-LMT GIVING KEY-TIMER-LMT. IF WS-KEY-TIMER-INTERVAL = "H" MULTIPLY 360000 BY KEY-TIMER-LMT GIVING KEY-TIMER-LMT. IF WS-KEY-TIMER-INTERVAL = "D" MULTIPLY 8640000 BY KEY-TIMER-LMT GIVING KEY-TIMER-LMT. #ADD 03826A0B 481-CONVERT-PIN-LIMITS IF KEY-TIMER-LMT NOT = ZEROS PERFORM 481-CONVERT-MSG-LIMITS ELSE MOVE "M" TO WS-KEY-TIMER-INTERVAL. #ADD 03827F00 481-CONVERT-MAC-LIMITS 481-CONVERT-MSG-LIMITS. DIVIDE KEY-TIMER-LMT BY 8640000 GIVING KEY-TIMER-LMT-HOLD REMAINDER WS-REMAINDER. IF WS-REMAINDER NOT = 0 DIVIDE KEY-TIMER-LMT BY 360000 GIVING KEY-TIMER-LMT-HOLD REMAINDER WS-REMAINDER IF WS-REMAINDER NOT = 0 DIVIDE KEY-TIMER-LMT BY 6000 GIVING KEY-TIMER-LMT-HOLD REMAINDER WS-REMAINDER MOVE KEY-TIMER-LMT-HOLD TO KEY-TIMER-LMT MOVE "M" TO WS-KEY-TIMER-INTERVAL ELSE MOVE KEY-TIMER-LMT-HOLD TO KEY-TIMER-LMT MOVE "H" TO WS-KEY-TIMER-INTERVAL ELSE MOVE KEY-TIMER-LMT-HOLD TO KEY-TIMER-LMT MOVE "D" TO WS-KEY-TIMER-INTERVAL. #ENDSCN = BA0A334 !#CMP2.28 10/20/06 SVTDFLTG6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVTDFLTG SVTDFLTG 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVTDFLTG SVTDFLTG 6001 * ******************************************************************************** #SCN = BA0A341 , FILEID = SVTDFLTG #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00044A0B ! 14OCT2006 gaitonp ! Symptom: TDD2 Record Cleanup Enhancement ! Problem: None ! Fix: Added support for the TDD2 Record Cleanup Enhancement. ! Dependency: Apply fixes to SVTDFLTS and SVTDFLTG and run Make. Refer ! to BA60UD0A.SCNTDD2 for a complete listing of ! dependencies. ! Reference: WO #051212-02 #ADD 00066A01 ? atm_atd_rec_num_constants #ADD 00066A04 ? pos_ptd_rec_num_constants #ADD 00074 ! atm_atd_rec_num_constants #ADD 00077 ! pos_ptd_rec_num_constants #ENDSCN = BA0A341 !#CMP2.28 10/20/06 SVTDFLTS6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVTDFLTS SVTDFLTS 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVTDFLTS SVTDFLTS 6001 * ******************************************************************************** #SCN = BA0A342 , FILEID = SVTDFLTS #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00044A0C ! 14OCT2006 gaitonp ! Symptom: TDD2 Record Cleanup Enhancement ! Problem: None ! Fix: Added support for the TDD2 Record Cleanup Enhancement. ! Procs modified: svtdfl_file_read ! svtdfl_file_read_lock_tdf ! svtdfl_file_write ! svtdfl_omf_audit ! Dependency: Apply fixes to SVTDFLTS and SVTDFLTG and run Make. Refer ! to BA60UD0A.SCNTDD2 for a complete listing of ! dependencies. ! Reference: WO #051212-02 #ADD 01552 SVTDFL_FILE_READ if files.files[ i ].num <> null_file_num_l and i <> atd_rec_num_dyn_scratch_pad_l and i <> ptd_rec_num_dyn_scratch_pad_l then #DELETE 01553 SVTDFL_FILE_READ #ADD 02155 SVTDFL_FILE_READ_LOCK_TDF if ( i = atd_rec_num_dyn_scratch_pad_l or i = ptd_rec_num_dyn_scratch_pad_l )and stat_detl.cde2 = fe_eof_l then begin stat := lib_ok_l; return true; end else begin if msg.msg_header.tran_cde = txn_modify_d then begin call svtdfl_msg_log( msg, err_readlock_updt_l, stat_detl.cde2, ! msg_set !, files.files[ i ].nam.fname ); end else begin call svtdfl_msg_log( msg, err_readlock_del_l, stat_detl.cde2, ! msg_set !, files.files[ i ].nam.fname ); end; if i <> tdf_rec_typ_dyn_l then begin for num := i downto 1 do begin call unlockrec( files.files[ num ] .num ); end; end; end; #DELETE 02156 /02182 SVTDFL_FILE_READ_LOCK_TDF #ADD 02579 SUB_PROCESS_TDF_NSK_ERR if i = atd_rec_num_dyn_scratch_pad_l or i = ptd_rec_num_dyn_scratch_pad_l then begin stat := lib_ok_l; if files.files[ i ].cnt_read > 0 and ( msg.msg_header.tran_cde = txn_modify_d or msg.msg_header.tran_cde = txn_purge_d ) then begin if msg.msg_header.tran_cde = txn_modify_d then begin io.write_typ := wm_unlock_l; end; stat := lib_tdf_write( stat_detl, files, ! tdf_param_extmem !, keyposn, io, key, tdf_param_addr ); end; end else begin stat := lib_tdf_write( stat_detl, files, ! tdf_param_extmem !, keyposn, io, key, tdf_param_addr ); end; #DELETE 02580 /02586 SUB_PROCESS_TDF_NSK_ERR #ADD 03362 SVTDFL_OMF_AUDIT define no_omf_write_d = "0"#; define omf_write_hdr_only_d = "2"#; #ADD 03372 SVTDFL_OMF_AUDIT string omf_audit; #ADD 03390 SVTDFL_OMF_AUDIT if ( i = atd_rec_num_dyn_scratch_pad_l or i = ptd_rec_num_dyn_scratch_pad_l ) and msg.msg_header.omf_audit <> no_omf_write_d then begin omf_audit ':=' msg.msg_header.omf_audit for $len( msg.msg_header.omf_audit ); msg.msg_header.omf_audit ':=' omf_write_hdr_only_d; end; #ADD 03400 SVTDFL_OMF_AUDIT if ( i = atd_rec_num_dyn_scratch_pad_l or i = ptd_rec_num_dyn_scratch_pad_l ) and msg.msg_header.omf_audit <> no_omf_write_d then begin msg.msg_header.omf_audit ':=' omf_audit for $len( msg.msg_header.omf_audit ); end; #ENDSCN = BA0A342 !#CMP2.28 11/02/06 SVISECS 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6029 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6029 * ******************************************************************************** #SCN = BA0A351 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 01101c0U * 25OCT2006 fuhsc * Symptom: After action to reset Complex Password the * user is able to re-use a previous password. * Problem: The code in 240-PSWD-HIST-CHK that bypasses the * counting of logon attempts, also bypasses checking * already-used passwords. The bypass code is needed * to allow one forced logon after the administrator * resets passwords. This only happens after a * RESET, and will not allow the re-using of * the most recent password, only the ones previous. * Code was introduced in BA0A076. * Fix: In 240-PSWD-HIST-CHK, replace the jump out of the * loop with NEXT SENTENCE. This will allow the * continued checking of all passwords in the table. * Paragraphs modified: 240-PSWD-HIST-CHK * Dependency: Apply fixes to SVISECS and run Make. * Replace: BA60UC09.SCNPSWD. * Reference: Case #423805. #ADD 03885b08 240-PSWD-HIST-CHK NEXT SENTENCE #DELETE 03885b09 240-PSWD-HIST-CHK #ENDSCN = BA0A351 !#CMP2.28 11/15/06 SVISECS 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6030 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6030 * ******************************************************************************** #SCN = BA0A389 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6030 #NEWVERSION = 6031 #ADD 01101d0J * 15NOV2006 heuertt * Symptom: "ERROR DURING BASE SEC RECORD LOCK" reported when * updating SEC record. * Problem: If a user who does not have access to an FIID * tries to grant access to the FIID for another * user, the SEC record is locked and the error is * reported. * Fix: The PERFORM to lock the SEC record lies outside * of an IF structure due to terminating periods * placed in the IF structure. This allowed users * without FIID access to lock the record. Removed * the periods so control of the PERFORM statement * remains in the IF structure. * Paragraph modified: 570-MODIFY-UFIR-BLOCK * Dependency: Apply fixes to SVISECS and run Make. * Reference: Case #423256. #REPLACE 04972R04/04972R05 570-MODIFY-UFIR-BLOCK MOVE SEC-MAINT-FLAG TO TEMP-MAINT-FLAG MOVE SPACE TO SEC-MAINT-FLAG #ENDSCN = BA0A389 !#CMP2.28 11/15/06 SVTDFLTS6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVTDFLTS SVTDFLTS 6002 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVTDFLTS SVTDFLTS 6002 * ******************************************************************************** #SCN = BA0A390 , FILEID = SVTDFLTS #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00044B0D ! 14OCT2006 SchieuR ! Symptom: The following message is displayed on the PTD screen ! when the control server is started: "ONE OR MORE PTD ! FILES HAVE NOT BEEN ASSIGNED". The control server ! subsequently shuts down. The same symptom is seen on ! the ATD screen. The only PTD/ATD file assigns not ! present in the LCONF are POS-PTD-DYN-SCRATCH-PAD and ! ATM-ATD-DYN-SCRATCH-PAD. ! Problem: The TDD2 Record Cleanup Enhancement added logic to ! read the POS-PTD-DYN-SCRATCH-PAD and ! ATM-ATD-DYN-SCRATCH-PAD assigns from the LCONF. The ! enhancement treats these assigns as required, when in ! fact they are optional. ! Fix: Make these LCONF assigns optional. ! Proc modified: svtdfl_ab_assigns_params_get ! Dependency: Apply fix to SVTDFLTS and run Make. Refer to ! BA60UD0A.SCNTDD2 for a complete listing of dependencies. ! Reference: WO #051212-02 #ADD 00668 SUB_PARAM_RETRV if i <> atd_rec_num_dyn_scratch_pad_l and i <> ptd_rec_num_dyn_scratch_pad_l then begin msg.msg_header.err_txt ':=' "ONE OR MORE " & file_nam_1 for 4 & " FILES HAVE" & " NOT BEEN ASSIGNED" -> @eptr; err_txt_lgth := @eptr '-' @msg.msg_header.err_txt; call cntl_util_srv_shutdown( msg, msg.msg_header.err_txt, err_txt_lgth ); return false; end; #DELETE 00669 /00683 SUB_PARAM_RETRV #ENDSCN = BA0A390 !#CMP2.28 03/30/07 COBTKN 6014 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6014 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6014 * ******************************************************************************** #SCN = BA0B055 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6014 #NEWVERSION = 6015 #ADD 00057N0o * 26MAR2007 SWIFTD * Symptom: Support for All Address Verification Formats in * the AXCI Interface. * Problem: None. * Fix: Added new Amex Private Use token (CX). * Incremented the occurs for WS-PROD-TKN-TBL and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run Make. * Reference: WO #070207-03 ?SECTION PROD-TKN-TABLE #DELETE 00057B0E/00057B0E OFFSET 1 #ADD 00195N0D 05 POS83 PIC X(29) VALUE "CX02POS AMEX PRIVATE USE DATA". #REPLACE 00197N01 02 WS-PROD-TKN-TBL OCCURS 177 TIMES. #REPLACE 00201N01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 177. #ENDSCN = BA0B055 !#CMP2.28 04/25/07 SECTBL 6024 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6024 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6024 * ******************************************************************************** #SCN = BA0B066 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6024 #NEWVERSION = 6025 #ADD 00268X0B * 23APR2007 raineyb * Symptom: BASE24-refunds Release 4.0 Version 3 enhancements. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * new screens LPLM1, LPLM2, LPLM3, and LPLM4. * Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 4. * Dependency: Apply fix to SECTBL. Run Make. * Reference: WO #060922-01 (Gift Registry Purchase Log) #ADD 00631 05 LPLM1 PIC X(35) VALUE "LPLM013030LID PURCHASE LOG MAINT ". 05 LPLM2 PIC X(35) VALUE "LPLM023030LID PURCHASE LOG MAINT ". 05 LPLM3 PIC X(35) VALUE "LPLM033030LID PURCHASE LOG CMTS ". 05 LPLV1 PIC X(35) VALUE "LPLV013030VIEW LID PURCHASE LOG ". #REPLACE 00893X01 05 PROD-SCRN-ACC-TABL OCCURS 612 TIMES. #REPLACE 00906X01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 612. #ENDSCN = BA0B066 !#CMP2.28 04/26/07 RQCPFS 6059 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6059 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6059 * ******************************************************************************** #SCN = BA0B067 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6059 #NEWVERSION = 6060 #ADD 00022-1W * 26APR2007 fuhsc * Symptom: When the TIMES USED PER PERIOD LIMIT field on * screens 4, 5, and 6 is either left blank or * blanked out, on a validate, add, or update, the * field is populated with a 0, which is an invalid * value for this field. The manual says the default * is 1 and the field is required. Also, 0 is not a * valid value for this field, and should be marked * in error, i.e., in the same way as the CAF screen. * Problem: The field lets the SCOBOL field definition dictate * the numeric conversion from a blank to a 0, and * there is not code in place to mark the field in * error if it has a value of 0. * Fix: Added a shadow byte to the field definition on * each screen, then checked the shadow byte for a * 4 (indicating the field is blank). If so, set the * field value to the proper default of 1. Also * added logic to set cursor and error attributes * at the appropriate screen field. This fix was * also implemented for delete, page fwd, and page * back functionality to ensure consistent behavior. * Modified paragraphs: WORKING-STORAGE * 300-VALIDATE-DATA * 255-ADD-RECORD * 265-DELETE-RECORD * 275-UPDATE-RECORD * 480-ERR-FLAG-OV-4 * 480-ERR-FLAG-OV-5 * 480-ERR-FLAG-OV-6 * 800-PAGE-BACK-CPF * 800-NEXT-VALID-OVERLAY-CPF * Added paragraphs: 480-FLAG-OV-4-FIELD-7 * 480-FLAG-OV-5-FIELD-15 * 480-FLAG-OV-6-FIELD-11 * 400-DEFAULT-BLANKS * Dependency: Apply fixes to RQCAFS, SCRNCAF, RQCPFS, SCRNCPF, * SVCPFS and run Make. * Reference: Case #433266 #ADD 00032 DATA DIVISION 01 WS-SHADOW-BYTES. 05 WS-USE-LMT-SEG1 PIC 9 COMP. 05 WS-USE-LMT-SEG2 PIC 9 COMP. 05 WS-USE-LMT-SEG23 PIC 9 COMP. #ADD 00290 300-VALIDATE-DATA PERFORM 400-DEFAULT-BLANKS. #ADD 00341 255-ADD-RECORD PERFORM 400-DEFAULT-BLANKS. #ADD 00362 265-DELETE-RECORD PERFORM 400-DEFAULT-BLANKS. #ADD 00379 275-UPDATE-RECORD PERFORM 400-DEFAULT-BLANKS. #ADD 00443 400-VALIDATE-DATA 400-DEFAULT-BLANKS. * CHECK SHADOW BYTE FOR BLANKS, SET TO DEFAULT OF 1 IF WS-USE-LMT-SEG1 = 4 MOVE 0 TO WS-USE-LMT-SEG1 MOVE 1 TO USE-LMT OF SEG1. IF WS-USE-LMT-SEG2 = 4 MOVE 0 TO WS-USE-LMT-SEG2 MOVE 1 TO USE-LMT OF SEG2. IF WS-USE-LMT-SEG23 = 4 MOVE 0 TO WS-USE-LMT-SEG23 MOVE 1 TO USE-LMT OF SEG23. #REPLACE 00670w5v 480-ERR-FLAG-OV-4 480-FLAG-OV-4-FIELD-7, #ADD 00670w6M 480-FLAG-OV-4-FIELD-6 480-FLAG-OV-4-FIELD-7. TURN TEMP SERROR IN P-USE-LMT. SET NEW-CURSOR AT P-USE-LMT. #ADD 00670w6t 480-ERR-FLAG-OV-5 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-5-FIELD-15, #ADD 00670w7V 480-FLAG-OV-5-FIELD-9 480-FLAG-OV-5-FIELD-15. TURN TEMP SERROR IN P-NCD-USE-LMT. SET NEW-CURSOR AT P-NCD-USE-LMT. #REPLACE 00670w7k 480-ERR-FLAG-OV-6 480-FLAG-OV-6-FIELD-11, #ADD 00670w8L 480-FLAG-OV-6-FIELD-10 480-FLAG-OV-6-FIELD-11. TURN TEMP SERROR IN P-POS-USE-LMT. SET NEW-CURSOR AT P-POS-USE-LMT. #REPLACE 01611x00 800-PAGE-BACK-CPF PERFORM 400-DEFAULT-BLANKS #REPLACE 01611x0X 800-NEXT-VALID-OVERLAY-CPF PERFORM 400-DEFAULT-BLANKS #ENDSCN = BA0B067 !#CMP2.28 04/26/07 RQCAFS 6061 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6061 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6061 * ******************************************************************************** #SCN = BA0B068 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6061 #NEWVERSION = 6062 #ADD 00023;0F * 26APR2007 fuhsc * Symptom: When the TIMES USED PER PERIOD LIMIT field on * screens 8, 9, and 10 is either left blank or * blanked out, on a validate, add, or update, the * field is populated with a 0, which is an invalid * value for this field. The manual says the default * is 1 and the field is required. * Problem: The field lets the SCOBOL field definition dictate * the numeric conversion from a blank to a 0. * Fix: Added a shadow byte to the field definition on * each screen, then checked the shadow byte for a * 4 (indicating the field is blank). If so, set the * field value to the proper default of 1. This fix * was also implemented for delete, page fwd and page * back functionality to ensure consistent behavior. * Modified paragraphs: WORKING-STORAGE * 300-VALIDATE-DATA * 255-ADD-RECORD * 265-DELETE-RECORD * 275-UPDATE-RECORD * 800-PAGE-BACK-CAF * 800-NEXT-VALID-OVERLAY-CAF * Added paragraph: 400-DEFAULT-BLANKS * Dependency: Apply fixes to RQCAFS, SCRNCAF, RQCPFS, SCRNCPF, * SVCPFS and run Make. * Reference: Case #433266 #ADD 00034c00 DATA DIVISION 01 WS-SHADOW-BYTES. 05 WS-USE-LMT-SEG1 PIC 9 COMP. 05 WS-USE-LMT-SEG2 PIC 9 COMP. 05 WS-USE-LMT-SEG23 PIC 9 COMP. #ADD 00440 300-VALIDATE-DATA PERFORM 400-DEFAULT-BLANKS. #ADD 00484 255-ADD-RECORD PERFORM 400-DEFAULT-BLANKS. #ADD 00505 265-DELETE-RECORD PERFORM 400-DEFAULT-BLANKS #ADD 00522+04 275-UPDATE-RECORD PERFORM 400-DEFAULT-BLANKS. #ADD 00569 400-VALIDATE-DATA 400-DEFAULT-BLANKS. * CHECK SHADOW BYTE FOR BLANKS, SET TO DEFAULT OF 1 IF WS-USE-LMT-SEG1 = 4 MOVE 0 TO WS-USE-LMT-SEG1 MOVE 1 TO USE-LMT OF SEG1. IF WS-USE-LMT-SEG2 = 4 MOVE 0 TO WS-USE-LMT-SEG2 MOVE 1 TO USE-LMT OF SEG2. IF WS-USE-LMT-SEG23 = 4 MOVE 0 TO WS-USE-LMT-SEG23 MOVE 1 TO USE-LMT OF SEG23. #ADD 02222y0E 800-PAGE-BACK-CAF PERFORM 400-DEFAULT-BLANKS #REPLACE 02222y14 800-NEXT-VALID-OVERLAY-CAF PERFORM 400-DEFAULT-BLANKS #ENDSCN = BA0B068 !#CMP2.28 04/26/07 SVCPFS 6037 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6037 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6037 * ******************************************************************************** #SCN = BA0B069 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6037 #NEWVERSION = 6038 #ADD 00017k0f * 26APR2007 fuhsc * Symptom: When the TIMES USED PER PERIOD LIMIT field on * screens 4, 5, and 6 is either left blank or * blanked out, on a validate, add, or update, the * field is populated with a 0, which is an invalid * value for this field. The manual says the default * is 1 and the field is required. Also, 0 is not a * valid value for this field, and should be marked * in error, i.e., in the same way as the CAF screen. * Problem: The field lets the SCOBOL field definition dictate * the numeric conversion from a blank to a 0, and * there is not code in place to mark the field in * error if it has a value of 0. * Fix: Added logic to display the error message: * "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" if * this field on Screen 4, 5, or 6 has a value of 0. * Modified paragraphs: 480-DATA-CHECK-SCREEN4 * 480-DATA-CHECK-SCREEN5 * 480-DATA-CHECK-SCREEN6 * Dependency: Apply fixes to RQCAFS, SCRNCAF, RQCPFS, SCRNCPF, * SVCPFS and run Make. * Reference: Case #433266 #ADD 00749XCU 480-DATA-CHECK-SCREEN4 IF USE-LMT OF SEG1 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749XEU 480-DATA-CHECK-SCREEN6 IF USE-LMT OF SEG23 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749XGL 480-DATA-CHECK-SCREEN6 IF USE-LMT OF SEG2 OF CPF = 0 ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TIMES USED LIMIT PER PERIOD MUST BE 1 - 9999" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0B069 !#CMP2.28 05/10/07 SVICFES 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVICFES SVICFES 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVICFES SVICFES 6000 * ******************************************************************************** #SCN = BA0B076 , FILEID = SVICFES #VOLUME = $ROOK.BA60AFT #FILE = SVICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00041 * * 08MAY2007 fuhsc * Symptom: When an update is performed on screen 12 or 13, * and the user exits the screen and returns, the * modification is no longer there. * Problem: The problem is either: the ICF record is bad due * to not being converted; or the configuration is * incorrect. Either way, we should display an * error on the update, and we do not. The proc * that verifies that the record in memory matches * the record on disk that will be updated, does * not have its returned error immediately checked, * causing the update to appear to be successful. * Fix: Moved the "IF NO-ERROR" line to after the perform * of "999-CHECK-LAST-UPDATE". * Modified proc: 310-UPDATE-REC * Dependency: Apply fixes to SVICFS and SVICFES, and run Make. * Reference: Case #430970. #REPLACE 00771 /00772 310-UPDATE-REC PERFORM 999-CHECK-LAST-UPDATE IF NO-ERROR #ENDSCN = BA0B076 !#CMP2.28 05/10/07 SVICFS 6015 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVICFS SVICFS 6015 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVICFS SVICFS 6015 * ******************************************************************************** #SCN = BA0B077 , FILEID = SVICFS #VOLUME = $ROOK.BA60AFT #FILE = SVICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6015 #NEWVERSION = 6016 #ADD 00014O09 * 08MAY2007 fuhsc * Symptom: When an update is performed on screen 12 or 13, * and the user exits the screen and returns, the * modification is no longer there. * Problem: The problem is either: the ICF record is bad due * to not being converted; or the configuration is * incorrect. Either way, we should display an * error on the update, and we do not. The proc * that verifies that the record in memory matches * the record on disk that will be updated, does * not have its returned error immediately checked, * causing the update to appear to be successful. * Fix: Moved the "IF NO-ERROR" line to after the perform * of "999-CHECK-LAST-UPDATE". * Modified proc: 310-UPDATE-REC * Dependency: Apply fixes to SVICFS and SVICFES, and run Make. * Reference: Case #430970. #REPLACE 00512K01/00512K02 310-UPDATE-REC PERFORM 999-CHECK-LAST-UPDATE IF NO-ERROR #ENDSCN = BA0B077 !#CMP2.28 05/25/07 SECTBL 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6025 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6025 * ******************************************************************************** #SCN = BA0B078 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00268Y0A * 25MAY2007 raineyb * Symptom: Newly added screens for LPLM and LPLV are not * being displayed. * Problem: The entries contain the decimal product ID, not * the hex product ID. * Fix: Changed the LPLM1, LPLM2, LPLM3, and LPLV1 * entries to have a product ID of 1E. * Dependency: Apply fix to SECTBL. Run Make. * Reference: Case #435637. #REPLACE 00631Y01/00631Y04 05 LPLM1 PIC X(35) VALUE "LPLM01001ELID PURCHASE LOG MAINT ". 05 LPLM2 PIC X(35) VALUE "LPLM02001ELID PURCHASE LOG MAINT ". 05 LPLM3 PIC X(35) VALUE "LPLM03001ELID PURCHASE LOG CMTS ". 05 LPLV1 PIC X(35) VALUE "LPLV01001EVIEW LID PURCHASE LOG ". #ENDSCN = BA0B078 !#CMP2.28 06/20/07 SVICFS 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVICFS SVICFS 6016 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVICFS SVICFS 6016 * ******************************************************************************** #SCN = BA0B082 , FILEID = SVICFS #VOLUME = $ROOK.BA60AFT #FILE = SVICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6016 #NEWVERSION = 6017 #ADD 00014P0I * 15JUN2007 fuhsc * Symptom: When an update is performed on screen 12 or 13, * and the user exits the screen and returns, the * modification is no longer there. * Problem: This relates to the incorrect configuration issue * in case 430970. If segment 32 CAF-ACCOUNT-SWI-DATA * is not set to "Y" in the SEG-TBL in PITABLE, and * the user performs an update, the current logic * will delete the segment, and not subsequently * replace it. Segment 32 (SEG31) must always exist. * So even though there is logic present to ensure it * always gets added and replaced, the logic that * blindly deletes all segments is flawed. And * granted, the issue that leads to this problem of * disappearing updates is user configuration. But * the logic needs to be consistent for segment 32. * Fix: Added logic to skip segment 32 in the delete * segment loop. * Modified proc: 315-DELETE-EXTRA-SEGS. * Dependency: Apply fixes to SVICFS and SVICFES, and run Make. * Reference: Case #436519. #ADD 00561 315-DELETE-EXTRA-SEGS IF I NOT = 32 AND #REPLACE 00562 315-DELETE-EXTRA-SEGS BYTE-MAP-R(I) = 1 AND WS-SITE-PROD-IND(I) = 0 #ENDSCN = BA0B082 !#CMP2.28 06/20/07 SVICFES 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVICFES SVICFES 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVICFES SVICFES 6001 * ******************************************************************************** #SCN = BA0B083 , FILEID = SVICFES #VOLUME = $ROOK.BA60AFT #FILE = SVICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00041A0J * 15JUN2007 fuhsc * Symptom: When an update is performed on screen 12 or 13, * and the user exits the screen and returns, the * modification is no longer there. * Problem: This relates to the incorrect configuration issue * in case 430970. If segment 32 CAF-ACCOUNT-SWI-DATA * is not set to "Y" in the SEG-TBL in PITABLE, and * the user performs an update, the current logic * will delete the segment, and not subsequently * replace it. Segment 32 (SEG31) must always exist. * So even though there is logic present to ensure it * always gets added and replaced, the logic that * blindly deletes all segments is flawed. And * granted, the issue that leads to this problem of * disappearing updates is user configuration. But * the logic needs to be consistent for segment 32. * Fix: Added logic to skip segment 32 in the delete * segment loop. * Modified proc: 315-DELETE-EXTRA-SEGS. * Dependency: Apply fixes to SVICFS and SVICFES, and run Make. * Reference: Case #436519. #ADD 00833 315-DELETE-EXTRA-SEGS IF I NOT = 32 AND #REPLACE 00834 315-DELETE-EXTRA-SEGS BYTE-MAP-R(I) = 1 AND WS-SITE-PROD-IND(I) = 0 #ENDSCN = BA0B083 !#CMP2.28 08/02/07 COBTKN 6015 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6015 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6015 * ******************************************************************************** #SCN = BA0B092 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6015 #NEWVERSION = 6016 #REPLACE 00057O0A OFFSET 1/00057O0A OFFSET 1 * 01AUG2007 swiftd * Symptom: Banknet Release 07.2 Mandates. * Problem: None. * Fix: Added an entry for the new auto-substan-data-tkn. * Dependency: Apply fixes to COBTKN, DDLPSTKN, PSTKNCVS, and * PSTKNID. Run Make. * Reference: WO #070419-01 ?SECTION PROD-TKN-TABLE #ADD 00195O01 05 POS84 PIC X(29) VALUE "CY02POS AUTO SUBSTAN DATA TKN". #REPLACE 00197O01 02 WS-PROD-TKN-TBL OCCURS 178 TIMES. #REPLACE 00201O01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 178. #ENDSCN = BA0B092 !#CMP2.28 08/23/07 COBTKN 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6016 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6016 * ******************************************************************************** #SCN = BA0B099 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6016 #NEWVERSION = 6017 #REPLACE 00057P08 OFFSET 1/00057P08 OFFSET 1 * 22AUG2007 gruberg * Symptom: VisaNet October 2007 Mandates * ATC Enhancements * Problem: None. * Fix: Added an entry for the new POS Data2 Token (CZ). * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fixes to COBTKN and run Make. Refer to * BA60UC0B.SCNATC for a complete listing of * dependencies for the ATC Enhancements. * Reference: WO #070430-01 (VisaNet October 2007 Mandates) * WO #070104-01 (ATC Enhancements) * 22AUG2007 gruberg * Symptom: VisaNet October 2007 Mandates * Problem: None. * Fix: Added an entry for the new Gateway Information * Token (S1) for ATM and POS. * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fixes to COBTKN and run Make. * Reference: WO #070430-01 ?SECTION PROD-TKN-TABLE #ADD 00195P01 05 POS85 PIC X(29) VALUE "CZ02POS POS DATA2 TOKEN ". 05 ATM77 PIC X(29) VALUE "S101ATM GATEWAY INFO TOKEN ". 05 POS86 PIC X(29) VALUE "S102POS GATEWAY INFO TOKEN ". #REPLACE 00197P01 02 WS-PROD-TKN-TBL OCCURS 181 TIMES. #REPLACE 00201P01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 181. #ENDSCN = BA0B099 !#CMP2.28 08/27/07 SECTBL 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6026 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6026 * ******************************************************************************** #SCN = BA0B106 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6026 #NEWVERSION = 6027 #REPLACE 00268Y05 * new screens LPLM1, LPLM2, LPLM3, and LPLV1. #ADD 00268Z09 #DELETE 00268Z0A #ADD 00268Z0A * 27AUG2007 morrism #ADD 00268Z0A * Symptom: LPLM Screen 4 Enhancement. #ADD 00268Z0A * Problem: None. #ADD 00268Z0A * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for #ADD 00268Z0A * new screen LPLM4. #ADD 00268Z0A * Increased PROD-SCRN-ACC-TABL and #ADD 00268Z0A * PROD-MAX-TABL-ENTRIES by 1. #ADD 00268Z0A * Dependency: Apply fix to SECTBL. Run Make. #ADD 00268Z0A * Reference: WO #Target Overlay 4 #ADD 00268Z0A 00268Z0A #ADD 00631Z04 05 LPLM4 PIC X(35) VALUE "LPLM04001ELID PURCHASE LOG MAINT ". #REPLACE 00893Y01 05 PROD-SCRN-ACC-TABL OCCURS 613 TIMES. #REPLACE 00906Y01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 613. #ENDSCN = BA0B106 !#CMP2.28 10/10/07 SVNTFYTM6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVNTFYTM SVNTFYTM 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVNTFYTM SVNTFYTM 6000 * ******************************************************************************** #SCN = BA0B110 , FILEID = SVNTFYTM #VOLUME = $ROOK.BA60AFT #FILE = SVNTFYTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6000 #NEWVERSION = 6001 #ADD 0042 # 05OCT2007 RobinsB # Symptom: Customer queried why lines 0145 and 0146 were commented # out. # Problem: The lines were probably commented out during testing # and never uncommented. # Fix: Uncommented lines 0145 & 1046. # Dependency: Apply fix to SVNTFYTM and run Make. # Reference: Case #443327 #REPLACE 0145 /0146 = dup_exec_file $(move_obj_subvol_on) $(baaft_secure_opt) & # 0145 = $(baaft_svntfyt) $(base_obj_loc) # 0146 #ENDSCN = BA0B110 !#CMP2.28 10/12/07 SVCAFM 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFM SVCAFM 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFM SVCAFM 6001 * ******************************************************************************** #SCN = BA0B304 , FILEID = SVCAFM #VOLUME = $ROOK.BA60AFT #FILE = SVCAFM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6001 #NEWVERSION = 6002 #ADD 0046A08 # 12OCT2007 LoganaB # Symptom: Dynamic CAF # Problem: None. # Fix: Added dependency for baddl_ddlfcafd. # Dependency: Restore BA60DDL.DDLFCAFD. Apply fixes to BADDLM, # BADDLMM, SCRNCAF, RQCAFS, SVCAFM and SVCAFS. Run Make. # Refer to BA60UD0B.SCNCAFD for a complete listing of # dependencies. # Reference: WO #070511-01 #ADD 0065 $(baddl_ddlfcafd) \ #ENDSCN = BA0B304 !#CMP2.28 10/12/07 SVCPFS 6038 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6038 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6038 * ******************************************************************************** #SCN = BA0B305 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6038 #NEWVERSION = 6039 #ADD 00017l0N * 12OCT2007 AnandK * Symptom: Enhanced Mobile Top-Up Routing Support. * Problem: None. * Fix: Added support for field MTU-PREFIX-RTE for * Enhanced Mobile Top-Up Routing. * Modified Proc: * 480-DATA-CHECK-SCREEN4 * Dependency: Apply fixes to DDLFCPF and SVCPFS. Run Make. * Refer to BA60UD0B.SCNEMTP for a complete * listing of dependencies. * Reference: WO #061211-01 * 12OCT2007 LoganaB * Symptom: CAP Authentication. * Problem: None. * Fix: Added support for fields on screen 13 for the * new CAP fields in the EMV segment. Modified * the error logic for screen 11 since the FORCE * ONLINE FALLBACK CHECK and EMV ISSUER fields * moved from screen 11 to screen 13. * Added paragraphs: * 480-DATA-CHECK-SCREEN13 * Modified paragraphs: * 480-DATA-CHECK-SCREEN * 480-DATA-CHECK-SCREEN11 * 620-CLEAR-SEG9 * Dependency: Apply fixes to DDLFCPF and SVCPFS. Run Make. * Refer to BA60UD0B.SCNCAP for a complete * listing of dependencies. * Reference: WO #070307-01 #ADD 00399k0F DATA DIVISION 01 WS-MTU-PREFIX-RTE PIC X. 88 VALID-MTU-PREFIX-RTE VALUE "0" THRU "9", "A", " ". #ADD 00749X0X 480-DATA-CHECK-SCREEN ELSE IF OVERLAY-NUM = 13 PERFORM 480-DATA-CHECK-SCREEN13 #ADD 00749XDM 480-DATA-CHECK-SCREEN5 MOVE MTU-PREFIX-RTE OF SEG1 OF CPF TO WS-MTU-PREFIX-RTE. IF NOT VALID-MTU-PREFIX-RTE ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PREFIX ROUTING MUST BE NUMERIC, 'A' OR SPACE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749k7g/00749k7x 480-DATA-CHECK-SCREEN11 #ADD 00749XMZ 480-DATA-CHECK-SCREEN14 480-DATA-CHECK-SCREEN13. IF FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "N" AND FORCE-ONL-FALLBACK-CHK OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FORCE ONLINE FALLBACK CHECK MUST BE 'Y' OR 'N' - "" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF EMV-ISS OF SEG9 OF CPF NOT NUMERIC ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "EMV ISSUER MUST BE NUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF CAP-ATC-UPDT OF SEG9 OF CPF NOT = "0" AND CAP-ATC-UPDT OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CAP ATC UPDATE MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF HOST-CAP-TKN-OPT OF SEG9 OF CPF NOT = "0" AND HOST-CAP-TKN-OPT OF SEG9 OF CPF NOT = "1" AND HOST-CAP-TKN-OPT OF SEG9 OF CPF NOT = "2" ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "HOST CAP TOKEN VALIDATION OPTION MUST BE 0, 1, - "OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00876W02 620-CLEAR-SEG9 MOVE SPACES TO CAP-GRP OF SEG9. MOVE "0" TO CAP-ATC-UPDT OF SEG9. MOVE "0" TO BAD-CAP-TKN-CHK-LMT OF SEG9. MOVE "0" TO HOST-CAP-TKN-OPT OF SEG9. #ENDSCN = BA0B305 !#CMP2.28 10/12/07 CCAFMLM 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.CCAFMLM CCAFMLM 6004 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.CCAFMLM CCAFMLM 6004 * ******************************************************************************** #SCN = BA0B306 , FILEID = CCAFMLM #VOLUME = $ROOK.BA60AFT #FILE = CCAFMLM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6004 #NEWVERSION = 6005 #ADD 0042D0H # 12OCT2007 SubbarL # Symptom: Shared NDC+ BNA Support # Problem: None # Fix: Added support for the Note ID File (NIDF) # by adding ataft_svnidfto to the dependency list # for the ccafmlo bind, and adding a bind step to # replace the cntl_util_srv_011 with nidf_entry. # Dependency: Apply fix to CCAFMLM. Run Make. Refer to # BA60UD0B.SCNWNBN for a complete listing of # dependencies. # Reference: WO #051129-01 #ADD 0067 $(ataft_svnidfto) \ $(basrc_bautil) \ #ADD 0120 !IF $(ATM_ON) = TRUE |THEN| = #APPEND :var add * from $(ataft_svnidfto), delete = #APPEND :var delete code cntl_util_srv_0011 = #APPEND :var select refer ( cntl_util_srv_0011 to nidf_entry ) !ENDIF = #ADD 0135 = #APPEND :var select search $(basrc_bautil) #ENDSCN = BA0B306 !#CMP2.28 10/12/07 RQCPFS 6060 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6060 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6060 * ******************************************************************************** #SCN = BA0B307 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6060 #NEWVERSION = 6061 #ADD 00022:0d * 12OCT2007 rinkc * Symptom: ATC Enhancements * Problem: None. * Fix: Added support for ATC Limit Checking. * Modified paragraphs: 400-MOVE-RECORD * 480-ERR-FLAG-OV-3 * 595-CLEAR-DATA * Dependency: Restore SCRNCPF. Apply fixes to RQCPFS. * Run Make. Refer to BA60UD0B.SCNATC for a * complete listing of dependencies. * Reference: WO #070104-01 * 12OCT2007 AnandK * Symptom: Enhanced Mobile Top-Up Routing Support. * Problem: None. * Fix: Added support for field MTU-PREFIX-RTE for * Enhanced Mobile Top-Up Routing. * Modified Procs: 480-ERR-FLAG-OV-4 * 595-CLEAR-DATA * Added Proc: 480-FLAG-OV-4-FIELD-5 * Dependency: Restore SCRNCPF. Apply fixes to RQCPFS. * Run Make. Refer to BA60UD0B.SCNEMTP for a * complete listing of dependencies. * Reference: WO #061211-01 * 12OCT2007 LoganaB * Symptom: CAP Authentication * Problem: None. * Fix: Added support for fields on screen 13 for the * new CAP fields in the EMV segment. Modified * the error logic for screen 11 since the FORCE * ONLINE FALLBACK CHECK and EMV ISSUER fields * moved from screen 11 to screen 13. * Modified paragraphs: * 400-MOVE-RECORD * 480-DATA-CHECK-RETURN * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY-13 * 595-CLEAR-DATA * Added paragraphs: * 480-CHK-OVERLAY-13 * 480-ERR-FLAG-OV-13 * 480-FLAG-OV-13-FIELD-1 * 480-FLAG-OV-13-FIELD-2 * 480-FLAG-OV-13-FIELD-3 * 480-FLAG-OV-13-FIELD-4 * 480-FLAG-OV-13-FIELD-5 * 480-FLAG-OV-13-FIELD-6 * Deleted paragraphs: * 480-FLAG-OV-11-FIELD-17 * 480-FLAG-OV-11-FIELD-18 * Dependency: Restore SCRNCPF. Apply fixes to RQCPFS. * Run Make. Refer to BA60UD0B.SCNCAP for a * complete listing of dependencies. * Reference: WO #070307-01 #ADD 00074w0N DATA DIVISION 05 WS-CAP-ATC-UPDT PIC X(5). 05 WS-HOST-CAP-TKN-OPT PIC X(29). #REPLACE 00108d01 DATA DIVISION 05 CPF13 PIC X(4) VALUE "EMV ". #REPLACE 00113%02 DATA DIVISION 8, 10, 11, 13, 14, #REPLACE 00147h0B DATA DIVISION COPY SC-EMVCPF13 OF =BAAFT_SCNCPFO. #ADD 00465-0m 400-MOVE-RECORD MOVE ATC-LMT OF SEG0 TO WS-BINARY. IF WS-BINARY-SPACE MOVE 0 TO ATC-LMT OF SEG0. #ADD 00484u09 400-MOVE-RECORD IF FORCE-ONL-FALLBACK-CHK OF SEG9 = SPACES MOVE "N" TO FORCE-ONL-FALLBACK-CHK OF SEG9. IF EMV-ISS OF SEG9 = SPACES MOVE "00" TO EMV-ISS OF SEG9. IF CAP-ATC-UPDT OF SEG9 = SPACES MOVE "0" TO CAP-ATC-UPDT OF SEG9. IF HOST-CAP-TKN-OPT OF SEG9 = SPACES MOVE "0" TO HOST-CAP-TKN-OPT OF SEG9. IF BAD-CAP-TKN-CHK-LMT OF SEG9 = SPACES MOVE "0" TO BAD-CAP-TKN-CHK-LMT OF SEG9. #ADD 00670w11 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-13, #DELETE 00670w12 480-DATA-CHECK-RETURN #ADD 00670w1i 480-CHK-OVERLAY-14 480-CHK-OVERLAY-13. PERFORM 480-ERR-FLAG-OV-13 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 00670-15 480-ERR-FLAG-OV-3 480-FLAG-OV-DUMMY, #REPLACE 00670w5t 480-ERR-FLAG-OV-4 480-FLAG-OV-4-FIELD-5, #ADD 00670w6J 480-FLAG-OV-4-FIELD-6 480-FLAG-OV-4-FIELD-5. TURN TEMP SERROR IN P-MTU-PREFIX-RTE. SET NEW-CURSOR AT P-MTU-PREFIX-RTE. #DELETE 00670wAA 480-ERR-FLAG-OV-11 #ADD 00670z00 480-ERR-FLAG-OV-11 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, #DELETE 00670z01 480-ERR-FLAG-OV-11 #DELETE 00670-3C/00670-3J 480-FLAG-OV-11-FIELD-19 #ADD 00670-3s 480-FLAG-OV-11-FIELD-26 480-ERR-FLAG-OV-13. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-13-FIELD-1, 480-FLAG-OV-13-FIELD-2, 480-FLAG-OV-13-FIELD-3, 480-FLAG-OV-13-FIELD-4, 480-FLAG-OV-13-FIELD-5, 480-FLAG-OV-13-FIELD-6 DEPENDING ON K. 480-FLAG-OV-13-FIELD-1. TURN TEMP SERROR IN P-FORCE-ONL-FALLBACK-CHK. SET NEW-CURSOR AT P-FORCE-ONL-FALLBACK-CHK. 480-FLAG-OV-13-FIELD-2. TURN TEMP SERROR IN P-EMV-ISS. SET NEW-CURSOR AT P-EMV-ISS. 480-FLAG-OV-13-FIELD-3. TURN TEMP SERROR IN P-CAP-GRP. SET NEW-CURSOR AT P-CAP-GRP. 480-FLAG-OV-13-FIELD-4. TURN TEMP SERROR IN P-CAP-ATC-UPDT. SET NEW-CURSOR AT P-CAP-ATC-UPDT. 480-FLAG-OV-13-FIELD-5. TURN TEMP SERROR IN P-BAD-CAP-TKN-CHK-LMT. SET NEW-CURSOR AT P-BAD-CAP-TKN-CHK-LMT. 480-FLAG-OV-13-FIELD-6. TURN TEMP SERROR IN P-HOST-CAP-TKN-OPT. SET NEW-CURSOR AT P-HOST-CAP-TKN-OPT. #ADD 01416o00 550-TABLE-LOOK-UP MOVE SPACES TO WS-CAP-ATC-UPDT. IF CAP-ATC-UPDT OF SEG9 = "0" MOVE "(CAP)" TO WS-CAP-ATC-UPDT ELSE IF CAP-ATC-UPDT OF SEG9 = "1" MOVE "(EMV)" TO WS-CAP-ATC-UPDT ELSE MOVE "(***)" TO WS-CAP-ATC-UPDT. MOVE SPACES TO WS-HOST-CAP-TKN-OPT. IF HOST-CAP-TKN-OPT OF SEG9 = "0" MOVE "(APPROVE, DON'T SEND TO HOST)" TO WS-HOST-CAP-TKN-OPT ELSE IF HOST-CAP-TKN-OPT OF SEG9 = "1" MOVE "(SEND, APPROVE IF HOST DOWN)" TO WS-HOST-CAP-TKN-OPT ELSE IF HOST-CAP-TKN-OPT OF SEG9 = "2" MOVE "(SEND, DENY IF HOST DOWN)" TO WS-HOST-CAP-TKN-OPT ELSE MOVE "(***************************)" TO WS-HOST-CAP-TKN-OPT. #ADD 01530h0A 570-DISPLAY-OVERLAY-13 TURN PROTECTED IN SC-DATA. DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY OVERLAY OVERLAY-13 AT OVERLAY-AREA. DISPLAY OVERLAY-13. IF U-ACCESS(13) = "N" AND A-ACCESS(13) = "N" TURN PROTECTED IN OVERLAY-13. #ADD 01542-07 595-CLEAR-DATA ATC-LMT OF SEG0, #ADD 01570u0H 595-CLEAR-DATA MOVE SPACES TO CAP-GRP OF SEG9. MOVE "0" TO CAP-ATC-UPDT OF SEG9. MOVE "0" TO BAD-CAP-TKN-CHK-LMT OF SEG9. MOVE "0" TO HOST-CAP-TKN-OPT OF SEG9. #ADD 01584%0F 595-CLEAR-DATA MOVE SPACES TO MTU-PREFIX-RTE OF SEG1. #ENDSCN = BA0B307 !#CMP2.28 10/30/07 RQICFES 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQICFES RQICFES 6004 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQICFES RQICFES 6004 * ******************************************************************************** #SCN = BA0B309 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00049A0D * 12OCT2007 KrishnG * Symptom: PCI - Masking on Reports. * Problem: None. * Fix: Added fields to support masking sensitive * information from BASE24 reports. * Modified Procs: * 400-MOVE-RECORD * 480-DATA-CHECK * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to RQICFES and SCRNICFE. Run Make. * Refer to BA60UD0B.SCNRMSK for a complete listing * of dependencies. * Reference: WO #070104-02 #ADD 00102 DATA DIVISION 01 MASKING-FLAG-DESCR PIC X(22). #ADD 00697 400-MOVE-RECORD IF MASKING-FLG OF SEG0 NOT = "N" MOVE "Y" TO MASKING-FLG OF SEG0. IF MAX-LEFT-UNMASKED OF SEG0 = SPACES MOVE "0" TO MAX-LEFT-UNMASKED OF SEG0. IF MIN-MASKED OF SEG0 = SPACES MOVE "9" TO MIN-MASKED OF SEG0. IF RIGHT-UNMASKED OF SEG0 = SPACES MOVE "4" TO RIGHT-UNMASKED OF SEG0. #ADD 00996 480-DATA-CHECK IF WS-OVERLAY = 2 IF MASKING-FLG OF SEG0 NOT = "Y" AND "N" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MASKING-FLG IF MOVE-MESSAGE SET NEW-CURSOR AT S-MASKING-FLG MOVE "INVALID MASKING FLAG VALUE, VALID VALUES - "ARE Y OR N" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF RIGHT-UNMASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-RIGHT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-RIGHT-UNMASKED MOVE "VALID VALUES FOR RIGHT UNMASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF MIN-MASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MIN-MASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-MIN-MASKED MOVE "VALID VALUES FOR MIN MASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF MAX-LEFT-UNMASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MAX-LEFT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-MAX-LEFT-UNMASKED MOVE "VALID VALUES FOR MAX LEFT UNMASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01601 550-TABLE-LOOK-UP IF MASKING-FLG OF SEG0 = "Y" MOVE "(MASK SENSITIVE DATA)" TO MASKING-FLAG-DESCR ELSE IF MASKING-FLG OF SEG0 = "N" MOVE "(DO NOT MASK DATA)" TO MASKING-FLAG-DESCR ELSE MOVE "(********************)" TO MASKING-FLAG-DESCR. #ADD 01929 595-CLEAR-DATA MOVE "Y" TO MASKING-FLG OF SEG0. MOVE "0" TO MAX-LEFT-UNMASKED OF SEG0. MOVE "9" TO MIN-MASKED OF SEG0. MOVE "4" TO RIGHT-UNMASKED OF SEG0. #ENDSCN = BA0B309 !#CMP2.28 10/30/07 RQICFS 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQICFS RQICFS 6029 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQICFS RQICFS 6029 * ******************************************************************************** #SCN = BA0B310 , FILEID = RQICFS #VOLUME = $ROOK.BA60AFT #FILE = RQICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00020c0H * 12OCT2007 LoganaB * Symptom: PCI - Masking on Reports. * Problem: None. * Fix: Added fields to support masking sensitive * information from BASE24 reports. * Modified Procs: * 400-MOVE-RECORD * 480-DATA-CHECK * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to RQICFS and SCRNICF. Run Make. * Refer to BA60UD0B.SCNRMSK for a complete listing * of dependencies. * Reference: WO #070104-02 #ADD 00055 DATA DIVISION 01 MASKING-FLAG-DESCR PIC X(22). #ADD 00547 400-MOVE-RECORD IF MASKING-FLG OF SEG0 NOT = "N" MOVE "Y" TO MASKING-FLG OF SEG0. IF MAX-LEFT-UNMASKED OF SEG0 = SPACES MOVE "0" TO MAX-LEFT-UNMASKED OF SEG0. IF MIN-MASKED OF SEG0 = SPACES MOVE "9" TO MIN-MASKED OF SEG0. IF RIGHT-UNMASKED OF SEG0 = SPACES MOVE "4" TO RIGHT-UNMASKED OF SEG0. #ADD 01071 480-DATA-CHECK IF WS-OVERLAY = 2 IF MASKING-FLG OF SEG0 NOT = "Y" AND "N" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MASKING-FLG IF MOVE-MESSAGE SET NEW-CURSOR AT S-MASKING-FLG MOVE "INVALID MASKING FLAG VALUE, VALID VALUES - "ARE Y OR N" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF RIGHT-UNMASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-RIGHT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-RIGHT-UNMASKED MOVE "VALID VALUES FOR RIGHT UNMASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF MIN-MASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MIN-MASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-MIN-MASKED MOVE "VALID VALUES FOR MIN MASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 2 IF MAX-LEFT-UNMASKED OF SEG0 NOT = "0" AND "1" AND "2" AND "3" AND "4" AND "5" AND "6" AND "7" AND "8" AND "9" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-MAX-LEFT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-MAX-LEFT-UNMASKED MOVE "VALID VALUES FOR MAX LEFT UNMASKED DIGITS - "ARE 0 TO 9" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01255 550-TABLE-LOOK-UP IF MASKING-FLG OF SEG0 = "Y" MOVE "(MASK SENSITIVE DATA)" TO MASKING-FLAG-DESCR ELSE IF MASKING-FLG OF SEG0 = "N" MOVE "(DO NOT MASK DATA)" TO MASKING-FLAG-DESCR ELSE MOVE "(********************)" TO MASKING-FLAG-DESCR. #ADD 01557U02 595-CLEAR-DATA MOVE "Y" TO MASKING-FLG OF SEG0. MOVE "0" TO MAX-LEFT-UNMASKED OF SEG0. MOVE "9" TO MIN-MASKED OF SEG0. MOVE "4" TO RIGHT-UNMASKED OF SEG0. #ENDSCN = BA0B310 !#CMP2.28 10/12/07 SVMHLPS 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6012 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVMHLPS SVMHLPS 6012 * ******************************************************************************** #SCN = BA0B315 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00101L0J * 12OCT2007 SinghM * Symptom: Shared NDC+ BNA Support. * Problem: None. * Fix: Added NIDF to ATM-TABLE. Incremented ATM-ENTRY * and ATM-ENTRIES-L. * Dependency: Apply fix to SVMHLPS and run Make. * Refer to BA60UD0B.SCNWNBN for a complete listing * of dependencies. * Reference: WO #051129-01 * 12OCT2007 eschlis * Symptom: ATM Dynamic Currency Conversion. * Problem: None. * Fix: Added DCCD to BASE-TBL. Incremented BASE-ENTRY * and BASE-ENTRIES-L. * Dependency: Apply fix to SVMHLPS and run Make. Refer to * BA60UD0B.SCNDCC for a complete listing of * dependencies. * Reference: WO #061227-02 * 12OCT2007 GirmusD * Symptom: Stored Value BDM Support. * Problem: None. * Fix: Added BDM to CMS-TABLE. * Dependency: Apply fixes to SVMHLPS and SECTBL. Run Make. * Refer to BA60UD0B.SCNSTVB for a complete listing * of dependencies. * Reference: WO #070123-09 #ADD 00154 DATA DIVISION 05 FILLER PIC X(31) VALUE "DCCDDYN CRNCY CONVERSION DATA ". #REPLACE 00203K01 DATA DIVISION 05 BASE-ENTRY OCCURS 35 TIMES. #REPLACE 00206K01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 35. #ADD 00216 DATA DIVISION 05 FILLER PIC X(31) VALUE "NIDFNOTE ID FILE". #ADD 00227 DATA DIVISION #DELETE 00228 DATA DIVISION #REPLACE 00230 DATA DIVISION 05 ATM-ENTRY OCCURS 10 TIMES. #REPLACE 00233 /00233 OFFSET 0 DATA DIVISION 01 ATM-ENTRIES-L PIC S9(4) COMP VALUE 10. #ADD 00517 DATA DIVISION 05 FILLER PIC X(31) VALUE "BDM BULK DATABASE MAINTENANCE". #REPLACE 00526 DATA DIVISION 05 CMS-ENTRY OCCURS 4 TIMES. #REPLACE 00529 DATA DIVISION 01 CMS-ENTRIES-L PIC S9(4) COMP VALUE 4. #ENDSCN = BA0B315 !#CMP2.28 10/12/07 RQMEGAS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6046 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6046 * ******************************************************************************** #SCN = BA0B331 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00020t0F * 12OCT2007 GaitonP * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Added support for Base24 Pathway PCI Masking. * Modified Procs: * 311-SECURITY-LOGON-FUNCTION * 315-SEND-UPFR-TO-SEC * 315-CALL-SEC-FOR-ACCESS * 315-SEC-LOGON-FUNCT-LN-CHANGE * 510-CLEAR-LOGON * Dependency: Apply fixes to DDLGPTH, DDLGSEC, and RQMEGAS. * Run Make. Refer to BA60UD0B.SCNMASK for a * complete listing of dependencies. * Reference: WO #061122-03 #ADD 00605m0I 311-SECURITY-LOGON-FUNCTION MOVE MASKING-FLG OF MSG-SECURITY-EXT TO MASKING-FLG OF USER-CONTEXT-EXT #ADD 00901m0C 315-SEND-UPFR-TO-SEC MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-1024-EXT. #ADD 00970m0H 315-CALL-SEC-FOR-ACCESS MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-1024-EXT. #ADD 01219m09 315-SEC-LOGON-FUNCT-LN-CHANGE MOVE MASKING-FLG OF MSG-SECURITY-EXT TO MASKING-FLG OF USER-CONTEXT-EXT #ADD 01815m02 510-CLEAR-LOGON MOVE "Y" TO MASKING-FLG OF USER-CONTEXT-EXT. MOVE "Y" TO MASKING-FLG OF MSG-SECURITY-EXT. #ENDSCN = BA0B331 !#CMP2.28 10/12/07 MEGATBL 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.MEGATBL MEGATBL 6008 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.MEGATBL MEGATBL 6008 * ******************************************************************************** #SCN = BA0B332 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00046H0C * 12OCT2007 SinghM * Symptom: Shared NDC+ BNA Support. * Problem: None. * Fix: Added NIDF to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fix to MEGATBL and run Make. * Refer to BA60UD0B.SCNWNBN for a complete listing * of dependencies. * Reference: WO #051129-01 * 12OCT2007 PannerR * Symptom: ATM Dynamic Currency Conversion. * Problem: None. * Fix: Added DCCD to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fix to MEGATBL and run Make. Refer to * BA60UD0B.SCNDCC for a complete listing of * dependencies. * Reference: WO #061227-02 #ADD 00075 "DCCD", #ADD 00103 "NIDF" #ENDSCN = BA0B332 !#CMP2.28 10/12/07 PITABLE 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.PITABLE PITABLE 6007 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.PITABLE PITABLE 6007 * ******************************************************************************** #SCN = BA0B333 , FILEID = PITABLE #VOLUME = $ROOK.BA60AFT #FILE = PITABLE #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6007 #NEWVERSION = 6008 #ADD 00060F0F * 12OCT2007 KrishnB * Symptom: Preferred Transaction. * Problem: None. * Fix: Added new preferred transaction segment indicator * and description. * Dependency: Apply fixes to PITABLE. Run Make. Refer to * BA60UD0B.SCNPTXN for a complete listing of * dependencies. * Reference: WO #060419-01 #REPLACE 01182 /01182 OFFSET 0 05 PFRD-TXN PIC X VALUE "N". #REPLACE 01457 /01457 OFFSET 0 05 FILLER-28 PIC X(16) VALUE "PREFERRED TRANS ". #ENDSCN = BA0B333 !#CMP2.28 10/12/07 SECTBL 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6027 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6027 * ******************************************************************************** #SCN = BA0B337 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00268a0c * 12OCT2007 SinghM * Symptom: Shared NDC+ BNA Support. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * two new NIDF screens. Increased PROD-SCRN-ACC-TABL * and PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fix to SECTBL and run Make. Refer to * BA60UD0B.SCNWNBN for a complete listing of * dependencies. * Reference: WO #051129-01 * 12OCT2007 SivaliA * Symptom: CAP Authentication * Problem: None. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA for * CPF screen 13. Incremented PROD-SCRN-ACC-TABL * and PROD-MAX-TABL-ENTRIES by 1 from 615 to 616. * Dependency: Apply fix to SECTBL and run Make. Refer to * BA60UD0B.SCNCAP for a complete listing of * dependencies. * Reference: WO #070307-01 * 12OCT2007 GirmusD * Symptom: Stored Value BDM Support. * Problem: None. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA * for BDM. Increased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fix to SECTBL and run Make. * Refer to BA60UD0B.SCNSTVB for a complete listing * of dependencies. * Reference: WO #070123-09 * 12OCT2007 KrishnB * Symptom: Preferred Transaction. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * new CAF and IDF screens. Incremented * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fixes to SECTBL. Run Make. Refer to * BA60UD0B.SCNPTXN for a complete listing of * dependencies. * Reference: WO #060419-01 * 12OCT2007 PannerR * Symptom: ATM Dynamic Currency Conversion. * Problem: None. * Fix: Added entries to PROD-SCRN-ACCESS-TABLE-DATA for * two new DCCD screens. Increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fix to SECTBL and run Make. Refer to * BA60UD0B.SCNDCC for a complete listing of * dependencies. * Reference: WO #061227-02 #ADD 00362 05 BDM1 PIC X(35) VALUE "BDM 010C0CBULK DATABASE MAINTENANCE". #ADD 00383 05 CAF21 PIC X(35) VALUE "CAF 211B00PREFERRED TRANSACTION ". #ADD 00415 05 CPF13 PIC X(35) VALUE "CPF 130900EMV POS ". #ADD 00445 05 DCCD1 PIC X(35) VALUE "DCCD010000DCCD BIN CURRENCY ". 05 DCCD2 PIC X(35) VALUE "DCCD020000DCCD CURRENCY DATA ". #ADD 00591 05 IDF43 PIC X(35) VALUE "IDF 431B00PREFERRED TRANSACTION ". #ADD 00670 05 NIDF1 PIC X(35) VALUE "NIDF010101NOTE ID FILE ". 05 NIDF2 PIC X(35) VALUE "NIDF020101NOTE ID FILE ". #REPLACE 00893a01 05 PROD-SCRN-ACC-TABL OCCURS 621 TIMES. #REPLACE 00906a01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 621. #ENDSCN = BA0B337 !#CMP2.28 10/15/07 COBTKN 6017 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6017 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6017 * ******************************************************************************** #SCN = BA0B341 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6017 #NEWVERSION = 6018 #REPLACE 00057Q0N OFFSET 1/00057Q0N OFFSET 1 * 12OCT2007 Subbarl/WisharJ * Symptom: Shared NDC+ BNA Support. * Problem: None. * Fix: Added support for the Shared BNA Counts Token (AS) * and BNA MCU Token (AT) in the PROD-TKN-TABLE. * Incremented the occurs for WS-PROD-TKN-TBL and * the value of PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fix to COBTKN and run Make. * Refer to BA60UD0B.SCNWNBN for a complete listing * of dependencies. * Reference: WO #051129-01 * 12OCT2007 kurzenb * Symptom: Shared NDC+ CPM Support * Problem: None. * Fix: Added support for the Check Bundle Token (AU) in * the PROD-TKN-TABLE. Incremented the occurs for * WS-PROD-TKN-TBL and the value of * PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN and run Make. * Refer to BA60UD0B.SCNWNCI for a complete listing * of dependencies. * Reference: WO #051129-01 * 12OCT2007 eschlis * Symptom: ATM Dynamic Currency Conversion. * Problem: None. * Fix: Added entries for the DCC Status Token (S2) and * DCC Processing Token (S3). Incremented the * occurs for WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fix to COBTKN and run Make. Refer to * BA60UD0B.SCNDCC for a complete listing of * dependencies. * Reference: WO #061227-02 * 12OCT2007 NataraM * Symptom: Preferred Transaction. * Problem: None. * Fix: Added an entry for the new preferred transaction * token for ATM. Incremented the occurs of * WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN. Run Make. Refer to * BA60UD0B.SCNPTXN for a complete listing of * dependencies. * Reference: WO #060419-01 **************************************************************** ?SECTION PROD-TKN-TABLE #DELETE 00057Q0O/00057A0D #ADD 00195Q04 05 ATM78 PIC X(29) VALUE "AS01ATM SHARED BNA COUNTS TKN". 05 ATM79 PIC X(29) VALUE "AT01ATM BNA MULTICURRENCY TKN". 05 ATM80 PIC X(29) VALUE "AU01ATM CHECK BUNDLE TKN ". 05 ATM81 PIC X(29) VALUE "S201ATM DCC STATUS TOKEN ". 05 ATM82 PIC X(29) VALUE "S301ATM DCC PROCESSING TOKEN ". 05 ATM83 PIC X(29) VALUE "AM01ATM PREFERRED TRAN TOKEN ". #REPLACE 00197Q01 02 WS-PROD-TKN-TBL OCCURS 187 TIMES. #REPLACE 00201Q01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 187. #ENDSCN = BA0B341 !#CMP2.28 10/15/07 BAAFTM 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.BAAFTM BAAFTM 6007 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.BAAFTM BAAFTM 6007 * ******************************************************************************** #SCN = BA0B347 , FILEID = BAAFTM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6007 #NEWVERSION = 6008 #ADD 0088G0H # 12OCT2007 KrishnB # Symptom: Preferred Transaction. # Problem: None. # Fix: Added statement to include baaft_rqidfptm to support # the new preferred transaction segment in the IDF. # Dependency: Restore RQIDFPTM. Apply fixes to BAAFTM and BAAFTMM. # Run Make. Refer to BA60UD0B.SCNPTXN for a complete # listing of dependencies. # Reference: WO #060419-01 # 12OCT2007 PannerR # Symptom: ATM Dynamic Currency Conversion. # Problem: None. # Fix: Added statements to include the new DCCD requester and # server Make files RQDCCDM and SVDCCDM. # Dependency: Restore RQDCCDM and SVDCCDM. Apply fixes to BAAFTM # and BAAFTMM. Run Make. Refer to BA60UD0B.SCNDCC for a # complete listing of dependencies. # Reference: WO #061227-02 #ADD 0116 !include $(baaft_rqdccdm) !include $(baaft_svdccdm) #ADD 0135 !include $(baaft_rqidfptm) #ENDSCN = BA0B347 !#CMP2.28 10/15/07 BAAFTMM 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6006 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.BAAFTMM BAAFTMM 6006 * ******************************************************************************** #SCN = BA0B348 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6006 #NEWVERSION = 6007 #ADD 0095F0O # 12OCT2007 KrishnB # Symptom: Preferred Transaction. # Problem: None. # Fix: Added statement to include baaft_rqidfptm to support # the new preferred transaction segment in the IDF. # Dependency: Apply fix to BAAFTMM. Run Make. Refer to # BA60UD0B.SCNPTXN for a complete listing of dependencies. # Reference: WO #060419-01 # 12OCT2007 PannerR # Symptom: ATM Dynamic Currency Conversion. # Problem: None. # Fix: Added the following defines: # baaft_rqdccdm # baaft_rqdccdo # baaft_rqdccds # baaft_scrndccd # baaft_svdccd # baaft_svdccdm # baaft_svdccds # Dependency: Apply fix to BAAFTMM. Run Make. Refer to # BA60UD0B.SCNDCC for a complete listing of dependencies. # Reference: WO #061227-02 #ADD 0168 baaft_rqdccdm = \k9.$ROOK.ba60aft.rqdccdm baaft_rqdccdo = \k9.$ROOK.ba60aft.rqdccdo baaft_rqdccds = \k9.$ROOK.ba60aft.rqdccds baaft_scrndccd = \k9.$ROOK.ba60aft.scrndccd baaft_svdccd = \k9.$ROOK.ba60aft.svdccd baaft_svdccdm = \k9.$ROOK.ba60aft.svdccdm baaft_svdccds = \k9.$ROOK.ba60aft.svdccds #ADD 0226 baaft_rqidfptm = \K9.$ROOK.ba60aft.rqidfptm baaft_rqidfpto = \K9.$ROOK.ba60aft.rqidfpto baaft_rqidfpts = \K9.$ROOK.ba60aft.rqidfpts #ENDSCN = BA0B348 !#CMP2.28 10/30/07 RQIDFS 6057 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQIDFS RQIDFS 6057 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQIDFS RQIDFS 6057 * ******************************************************************************** #SCN = BA0B355 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6057 #NEWVERSION = 6058 #ADD 00115*0K * 12OCT2007 SivaliA * Symptom: Dynamic CAF. * Problem: None. * Fix: Added support for the new CAFD-NAME to store the * Dynamic Cardholder Authorization File (CAFD) * filename. * Added Proc: * 481-FLAG-OV-1-FIELD-11 * Modified Proc: * 481-ERR-FLAG-OV-1 * Dependency: Apply fixes to SCRNIDF and RQIDFS. Run Make. * Refer to BA60UD0B.SCNCAFD for a complete listing * of dependencies. * Reference: WO #070511-01 * 12OCT2007 LoganaB * Symptom: PCI - Masking on Reports. * Problem: None. * Fix: Added fields to support masking sensitive * information from BASE24 reports. * Added Procs: * 481-FLAG-OV-4-FIELD-5 * 481-FLAG-OV-4-FIELD-6 * 481-FLAG-OV-4-FIELD-7 * 481-FLAG-OV-4-FIELD-8 * Modified Procs: * 400-MOVE-RECORD * 481-ERR-FLAG-OV-4 * 595-CLEAR-DATA * Dependency: Apply fixes to RQIDFS and SCRNIDF. Run Make. * Refer to BA60UD0B.SCNRMSK for a complete listing * of dependencies. * Reference: WO #070104-02 * 12OCT2007 KrishnB * Symptom: Preferred Transaction. * Problem: None. * Fix: Added screen 43 to support the new preferred * transaction segment in the IDF. * Modified paragraphs: * 200-ACCEPT-SCREEN. * 480-DATA-CHECK-RETURN. * 570-DISPLAY-OVERLAY. * 595-CLEAR-DATA. * 995-SET-PROD. * Dependency: Apply fixes to COBNAMES, RQIDFS and SCRNIDF. Run * Make. Refer to BA60UD0B.SCNPTXN for a complete * listing of dependencies. * Reference: WO #060419-01 #ADD 00130z0D DATA DIVISION 05 WS-MASKING-FLAG-DESCR PIC X(22). 05 FILLER PIC X(333). #DELETE 00130z0E DATA DIVISION #REPLACE 00237*02 DATA DIVISION 26, 27, 28. #ADD 01150 400-MOVE-RECORD IF MASKING-FLG OF SEG0 NOT = "N" MOVE "Y" TO MASKING-FLG OF SEG0. IF MAX-LEFT-UNMASKED OF SEG0 = SPACES MOVE "0" TO MAX-LEFT-UNMASKED OF SEG0. IF MIN-MASKED OF SEG0 = SPACES MOVE "9" TO MIN-MASKED OF SEG0. IF RIGHT-UNMASKED OF SEG0 = SPACES MOVE "4" TO RIGHT-UNMASKED OF SEG0. #REPLACE 01592%02/01592%02 OFFSET 0 481-ERR-FLAG-OV-1 481-FLAG-OV-1-FIELD-10, 481-FLAG-OV-1-FIELD-11 #ADD 01603%04 481-FLAG-OV-1-FIELD-10 481-FLAG-OV-1-FIELD-11. TURN TEMP SERROR IN I-CAFD-NAME. SET NEW-CURSOR AT I-CAFD-NAME. #REPLACE 01659 /01659 OFFSET 0 481-ERR-FLAG-OV-4 481-FLAG-OV-4-FIELD-4, 481-FLAG-OV-4-FIELD-5, 481-FLAG-OV-4-FIELD-6, 481-FLAG-OV-4-FIELD-7, 481-FLAG-OV-4-FIELD-8 #ADD 01674 481-FLAG-OV-4-FIELD-4 481-FLAG-OV-4-FIELD-5. TURN TEMP SERROR IN I-MASKING-FLAG. SET NEW-CURSOR AT I-MASKING-FLAG. 481-FLAG-OV-4-FIELD-6. TURN TEMP SERROR IN I-RIGHT-UNMASKED. SET NEW-CURSOR AT I-RIGHT-UNMASKED. 481-FLAG-OV-4-FIELD-7. TURN TEMP SERROR IN I-MIN-MASKED. SET NEW-CURSOR AT I-MIN-MASKED. 481-FLAG-OV-4-FIELD-8. TURN TEMP SERROR IN I-MAX-LEFT-UNMASKED. SET NEW-CURSOR AT I-MAX-LEFT-UNMASKED. #REPLACE 02815u03 570-DISPLAY-OVERLAY 570-DISPLAY-PROD-SPEC-OVERLAY, #ADD 03092#02 570-DISPLAY-PROD-SPEC-OVERLAY IF VALID-DATA NOT = "BAD" IF WS-OVERLAY = 43 MOVE "PT" TO PROG-SUF. #ADD 03123s01 595-CLEAR-DATA MOVE "Y" TO MASKING-FLG OF SEG0. MOVE "0" TO MAX-LEFT-UNMASKED. MOVE "9" TO MIN-MASKED. MOVE "4" TO RIGHT-UNMASKED. #ADD 03229j02 595-CLEAR-DATA * INITIALIZE SEG27 (PREFERRED TRANSACTION) MOVE SPACES TO SEG27. MOVE ZEROES TO LGTH OF SEG27. MOVE "1" TO PFRD-TXN-STORE-DATA-LOC OF SEG27 MOVE "1" TO PFRD-TXN-RETRV-DATA-LOC OF SEG27 #ADD 03232z02 595-CLEAR-DATA IF ( WS-LINK-FUNCTION NOT = "EXIT" AND "QUIT" ) RESET DATA SC-DATA DISPLAY I-FIID PERFORM 550-TABLE-LOOK-UP. #DELETE 03233 /03235 595-CLEAR-DATA #REPLACE 03313#01 995-SET-PROD IF NOT ( WS-OVERLAY = 40 OR 41 OR 42 OR 43 ) #ENDSCN = BA0B355 !#CMP2.28 11/21/07 SVIDFS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIDFS SVIDFS 6050 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIDFS SVIDFS 6050 * ******************************************************************************** #SCN = BA0B356 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00043x0G * 12OCT2007 SivaliA * Symptom: Dynamic CAF. * Problem: None. * Fix: Added support for the new CAFD-NAME to store the * Dynamic Cardholder Authorization File (CAFD) * filename. Also incremented the BASE-F-NAMES occurs * by 1 in working storage. * Modified Proc: * 480-BASE-FILENAMES-CHECK * Dependency: Apply fixes to DDLFIDF and SVIDFS. Run Make. * Refer to BA60UD0B.SCNCAFD for a complete listing * of dependencies. * Reference: WO #070511-01 * 12OCT2007 LoganaB * Symptom: PCI - Masking on Reports. * Problem: None. * Fix: Added fields to support masking sensitive * information from BASE24 reports. * Modified Procs: * 310-UPDATE-REC * 480-BASE-DATA-CHECK * 500-ADD-RCD * 550-TBL-LOOKUP * Dependency: Apply fixes to DDLFIDF and SVIDFS. Run Make. * Refer to BA60UD0B.SCNRMSK for a complete listing * of dependencies. * Reference: WO #070104-02 * 12OCT2007 KrishnB * Symptom: Preferred Transaction. * Problem: None. * Fix: Added logic to support the new preferred * transaction segment in the IDF. * Modified Paragraphs: * 310-UPDATE-REC. * 480-DATA-CHECK. * 510-RCD-ADD. * 550-TBL-LOOKUP * 911-RCD-RETRIEVE. * 912-RCD-REPLACE. * 927-RCD-WRITE. * Added Paragraphs: * 480-PFRD-TXN-CHECK. * Dependency: Apply fixes to DDLBCNST, DDLFIDF and SVIDFS. * Run Make. Refer to BA60UD0B.SCNPTXN for a * complete listing of dependencies. * Reference: WO #060419-01 #ADD 00123q0U DATA DIVISION 09 WS-MASKING-FLAG-DESCR PIC X(22). 09 FILLER PIC X(333). #DELETE 00123q0V DATA DIVISION #ADD 00123q31 DATA DIVISION 07 OVERLAY-PFRD-TXN-GRP REDEFINES OVERLAY-2-GRP. 09 WS-PFRD-TXN-STORE-DES PIC X(40). 09 WS-PFRD-TXN-RETRV-DES PIC X(40). 09 FILLER PIC X(339). #ADD 00260f02 DATA DIVISION 05 PFRD-TXN-SEG-LGTH PIC S9(4) COMP VALUE 10. #REPLACE 00308v01 DATA DIVISION 05 BASE-F-NAMES PIC X(35) OCCURS 9 TIMES. #ADD 00327 DATA DIVISION 05 MASKING-FLAG-IMAGE PIC X VALUE "Y". 05 MAX-LEFT-UNMASKED-IMAGE PIC X VALUE "0". 05 MIN-MASKED-IMAGE PIC X VALUE "9". 05 RIGHT-UNMASKED-IMAGE PIC X VALUE "4". #ADD 00554 310-UPDATE-REC MOVE MASKING-FLG OF SEG0 TO MASKING-FLAG-IMAGE MOVE MAX-LEFT-UNMASKED TO MAX-LEFT-UNMASKED-IMAGE MOVE MIN-MASKED TO MIN-MASKED-IMAGE MOVE RIGHT-UNMASKED TO RIGHT-UNMASKED-IMAGE #ADD 00569q02 310-UPDATE-REC MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG27 MOVE SEG-PFRD-TXN-C TO ID OF SEG27 MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27 #ADD 00760i06 480-DATA-CHECK IF OVERLAY-NUM = 43 PERFORM 480-PFRD-TXN-CHECK ELSE #ADD 00868v01 480-BASE-FILENAMES-CHECK MOVE CAFD-NAME OF IDF TO BASE-F-NAMES( 9 ). #REPLACE 00868v04 480-BASE-FILENAMES-CHECK PERFORM VARYING X FROM 1 BY 1 UNTIL X > 9 #ADD 01026 480-BASE-DATA-CHECK IF OVERLAY-NUM = 4 IF MASKING-FLG OF SEG0 NOT = "Y" AND MASKING-FLG OF SEG0 NOT = "N" ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR MASKING FLAG ARE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE. IF OVERLAY-NUM = 4 IF RIGHT-UNMASKED OF SEG0 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR RIGHT UNMASKED DIGITS ARE '0' TO '9'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE. IF OVERLAY-NUM = 4 IF MIN-MASKED OF SEG0 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR MIN MASKED DIGITS ARE '0' TO '9'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE. IF OVERLAY-NUM = 4 IF MAX-LEFT-UNMASKED OF SEG0 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR MAX LEFT UNMASKED DIGITS ARE '0' TO '9'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE. #ADD 01944i5V 481-LEAD-CHAR-FIND 480-PFRD-TXN-CHECK. IF PFRD-TXN-STORE-DATA-LOC OF SEG27 NOT = "1" AND "2" AND "3" AND "4" ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID ENTRIES ARE '1', '2', '3', OR '4' " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PFRD-TXN-RETRV-DATA-LOC OF SEG27 NOT = "1" AND "2" AND "3" ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID ENTRIES ARE '1', '2', OR '3' " TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 02375 500-ADD-RCD MOVE MASKING-FLG OF SEG0 TO MASKING-FLAG-IMAGE MOVE MAX-LEFT-UNMASKED TO MAX-LEFT-UNMASKED-IMAGE MOVE MIN-MASKED TO MIN-MASKED-IMAGE MOVE RIGHT-UNMASKED TO RIGHT-UNMASKED-IMAGE #ADD 02476q0T 510-RCD-ADD IF NO-ERROR IF BYTE-MAP-R(28) = "0" AND WS-SITE-PROD-IND(28) = "1" MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG27 MOVE SEG-PFRD-TXN-C TO ID OF SEG27 MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27 ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG27 OF IDF, PTR-ARRAY, SEG-PFRD-TXN-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "27" TO ADD-SEG-NUM MOVE ADD-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG. #ADD 02528b5N 550-TBL-LOOKUP IF OVERLAY-NUM = 4 MOVE SPACES TO WS-MASKING-FLAG-DESCR IF MASKING-FLG OF SEG0 = "Y" MOVE "(MASK SENSITIVE DATA)" TO WS-MASKING-FLAG-DESCR ELSE IF MASKING-FLG OF SEG0 = "N" MOVE "(DO NOT MASK DATA)" TO WS-MASKING-FLAG-DESCR ELSE MOVE "(********************)" TO WS-MASKING-FLAG-DESCR. #ADD 02528i49 550-TBL-LOOKUP IF OVERLAY-NUM = 43 IF PFRD-TXN-STORE-DATA-LOC OF SEG27 = "1" MOVE "(STORE IN CAF ONLY) " TO WS-PFRD-TXN-STORE-DES ELSE IF PFRD-TXN-STORE-DATA-LOC OF SEG27 = "2" MOVE "(STORE IN HOST ONLY) " TO WS-PFRD-TXN-STORE-DES ELSE IF PFRD-TXN-STORE-DATA-LOC OF SEG27 = "3" MOVE "(STORE IN CAF IF HOST IS UNAVAILABLE) " TO WS-PFRD-TXN-STORE-DES ELSE IF PFRD-TXN-STORE-DATA-LOC OF SEG27 = "4" MOVE "(STORE IN BOTH CAF AND HOST) " TO WS-PFRD-TXN-STORE-DES ELSE MOVE "(**************************************)" TO WS-PFRD-TXN-STORE-DES. IF OVERLAY-NUM = 43 IF PFRD-TXN-RETRV-DATA-LOC OF SEG27 = "1" MOVE "(FROM THE CAF) " TO WS-PFRD-TXN-RETRV-DES ELSE IF PFRD-TXN-RETRV-DATA-LOC OF SEG27 = "2" MOVE "(FROM THE HOST) " TO WS-PFRD-TXN-RETRV-DES ELSE IF PFRD-TXN-RETRV-DATA-LOC OF SEG27 = "3" MOVE "(FROM THE CAF IF HOST IS UNAVAILABLE) " TO WS-PFRD-TXN-RETRV-DES ELSE MOVE "(**************************************)" TO WS-PFRD-TXN-RETRV-DES. #ADD 02741q0B 911-RCD-RETRIEVE IF NO-ERROR IF BYTE-MAP-R(28) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-PFRD-TXN-C, SEG27 OF IDF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "27" TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT MOVE "Y" TO ERROR-FLAG PERFORM 100-IDF-ERROR-TEXT-FILL. #ADD 02797q0J 912-RCD-REPLACE IF WS-GUAR-ERR = 0 IF BYTE-MAP-R(28) = "1" OR WS-SITE-PROD-IND(28) = "1" ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG27 OF IDF, PTR-ARRAY, SEG-PFRD-TXN-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "27" TO RCD-REPL-SEG-NUM PERFORM 912-REPLACE-ERROR. #ADD 02837q0V 917-RCD-WRITE MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG27. MOVE SEG-PFRD-TXN-C TO ID OF SEG27. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27. #ENDSCN = BA0B356 !#CMP2.28 11/11/07 RQSECS 6022 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQSECS RQSECS 6022 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQSECS RQSECS 6022 * ******************************************************************************** #SCN = BA0B382 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6022 #NEWVERSION = 6023 #ADD 00019V0G * 12OCT2007 rinkc * Symptom: PCI - Initial User Password Enhancement * Problem: None * Fix: Blank passwords will no longer be allowed, even * when a password needs to be reset. Added new * fields PASSWORD and VERIFY to Security Screen 1. * Removed as a valid function key. Added * data checks to be sure password is not blanks * and contains more than one unique character. * Paragraphs deleted: 275-BLANK-PASSWORD * Paragraphs added: 486-CHECK-FOR-UNIQUE-CHARS * 490-RSCAN * Paragraphs modified: 200-GET-DATA * 200-ACCEPT-BASE * 200-ACCEPT-SCREEN-OVERLAY-1 * 200-ACCEPT-SCREEN-OVERLAY-2 * 200-ACCEPT-SCREEN-OVERLAY-3 * 400-MOVE-RECORD * 470-SET-UP-UPDATE * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Replace SCRNSEC. Apply fix to RQSECS. Run Make. * Refer to BA60UD0B.SCNPSWD for a complete listing * of dependencies. * Reference: WO #070309-04 * 12OCT2007 GaitonP * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Added support for Base24 Pathway PCI Masking. * Modified Procs: * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Replace SCRNSEC. Apply fix to RQSECS. Run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 #ADD 00030D02 DATA DIVISION 01 UNIQUE-CHARS-FLAG PIC X VALUE "N". 88 UNIQUE-CHARS VALUE "Y". 01 WS-SAVE-NEW-PASSWORD PIC X(8) VALUE SPACES. 01 WS-CHECK-NEW-PASSWORD. 05 WS-SAVE-NEW-PASSWORD-CHAR PIC X OCCURS 8 TIMES. 01 WS-SAVE-NEW-PASSWORD-LEN PIC 9(2). 01 WS-PSWD-VERIFY PIC X(8). 01 WS-SUB PIC 9(2). #ADD 00077H03 DATA DIVISION 05 NEW-USER-PASSWORD PIC X(8). #DELETE 00117P00/00117P02 DATA DIVISION #DELETE 00208P02/00208P06 200-GET-DATA #REPLACE 00231P01/00231P02 200-ACCEPT-BASE FKEY14, FKEY15, SFKEY7, SFKEY15, EXIT-KEY, ESCAPE (SFKEY1 THRU SFKEY6, SFKEY8), (LOGOFF-KEY, #REPLACE 00239P01/00239P02 200-ACCEPT-SCREEN-OVERLAY-1 FKEY14, FKEY15, SFKEY7, SFKEY15, EXIT-KEY, ESCAPE (SFKEY1 THRU SFKEY6, SFKEY8), (LOGOFF-KEY, #REPLACE 00247P01/00247P02 200-ACCEPT-SCREEN-OVERLAY-2 FKEY14, FKEY15, SFKEY7, SFKEY15, EXIT-KEY, ESCAPE (SFKEY1 THRU SFKEY6, SFKEY8), (LOGOFF-KEY, #REPLACE 00255P01/00255P02 200-ACCEPT-SCREEN-OVERLAY-3 FKEY14, FKEY15, SFKEY7, SFKEY15, EXIT-KEY, ESCAPE (SFKEY1 THRU SFKEY6, SFKEY8), (LOGOFF-KEY, #DELETE 00364P00/00364Q09 275-BLANK-PASSWORD #ADD 00539M02 400-MOVE-RECORD MOVE PASSWORD OF SEC-BASE-INFO TO WS-PSWD-VERIFY #ADD 00552 400-MOVE-RECORD IF WS-OVERLAY = 1 AND MASKING-FLG OF SEC-BASE-INFO = SPACE MOVE "Y" TO MASKING-FLG OF SEC-BASE-INFO. #ADD 00645H05 455-SET-UP-ADD-LIKE MOVE PASSWORD OF SEC-BASE-INFO TO NEW-USER-PASSWORD OF ADD-LIKE-REQ. #ADD 00671 455-SET-UP-ADD-LIKE * CHECK PASSWORD FOR BLANKS IF (PASSWORD OF SEC-BASE-INFO = SPACES) AND (VALID-DATA NOT = "BAD") MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD. * CHECK PASSWORD FOR UNIQUE CHARACTERS MOVE PASSWORD OF SEC-BASE-INFO TO WS-CHECK-NEW-PASSWORD MOVE 8 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN MOVE "N" TO UNIQUE-CHARS-FLAG MOVE 2 TO I PERFORM 486-CHECK-FOR-UNIQUE-CHARS UNTIL UNIQUE-CHARS OR I > WS-SAVE-NEW-PASSWORD-LEN IF NOT UNIQUE-CHARS MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD MUST HAVE AT LEASE 2 DIFFERENT CHARACTERS" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD. * PASSWORD AND VERIFY FIELDS MUST MATCH IF PASSWORD OF SEC-BASE-INFO NOT = WS-PSWD-VERIFY MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD VERIFICATION FAILED - PLEASE RE-ENTER" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD. #DELETE 00690P00/00690P05 470-SET-UP-UPDATE #DELETE 00699P00/00699P04 470-SET-UP-UPDATE #REPLACE 00700P01 470-SET-UP-UPDATE PERFORM 480-DATA-CHECK. #ADD 00734P0R 480-DATA-CHECK * CHECK MASKING FLAG FOR "Y" OR "N" IF WS-OVERLAY = 1 IF MASKING-FLG OF SEC-BASE-INFO NOT = "Y" AND "N" MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE TURN TEMP SERROR IN S-MASKING-FLG IF MOVE-MESSAGE MOVE "MASKING FLAG MUST BE 'Y' OR 'N'" TO ERR-TXT SET NEW-CURSOR AT S-MASKING-FLG MOVE "N" TO FLAG-MOVE. * CHECK PASSWORD FOR BLANKS IF WS-OVERLAY = 1 IF PASSWORD OF SEC-BASE-INFO = SPACES MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE IF MOVE-MESSAGE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. * CHECK PASSWORD FOR UNIQUE CHARACTERS IF WS-OVERLAY = 1 MOVE PASSWORD OF SEC-BASE-INFO TO WS-CHECK-NEW-PASSWORD MOVE 8 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN MOVE "N" TO UNIQUE-CHARS-FLAG MOVE 2 TO I PERFORM 486-CHECK-FOR-UNIQUE-CHARS UNTIL UNIQUE-CHARS OR I > WS-SAVE-NEW-PASSWORD-LEN IF NOT UNIQUE-CHARS MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE IF MOVE-MESSAGE MOVE "PASSWORD MUST HAVE AT LEASE 2 DIFFERENT CHARAC - "TERS" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. * CHECK TO SEE IF PASSWORD EQUALS VERIFY IF WS-OVERLAY = 1 IF PASSWORD OF SEC-BASE-INFO NOT = WS-PSWD-VERIFY MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE IF MOVE-MESSAGE MOVE "PASSWORD VERIFICATION FAILED - PLEASE RE-ENTER - " " TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. #ADD 00798 550-TABLE-LOOK-UP 486-CHECK-FOR-UNIQUE-CHARS. SUBTRACT 1 FROM I GIVING J. IF WS-SAVE-NEW-PASSWORD-CHAR(I) NOT = WS-SAVE-NEW-PASSWORD-CHAR(J) MOVE "Y" TO UNIQUE-CHARS-FLAG. ADD 1 TO I. 490-RSCAN. SUBTRACT 1 FROM WS-SUB. #ADD 00895P04 595-CLEAR-DATA MOVE "Y" TO MASKING-FLG OF SEC-BASE-INFO. MOVE SPACES TO WS-PSWD-VERIFY. #ENDSCN = BA0B382 !#CMP2.28 11/11/07 SVISECS 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6031 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6031 * ******************************************************************************** #SCN = BA0B384 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 01101X0G * 12OCT2007 rinkc * Symptom: PCI - Initial User Password Enhancement * Problem: None * Fix: Blank passwords will no longer be allowed when * a password needs to be reset or a new record is * added. The SUPER/SUPER password of eight zeroes * must now be changed the first time the alias is * used. Removed processing that set passwords to * blank. Added functionality to allow a password * to be entered on Security Screen 1. The password * cannot be blanks and must contain more than one * unique character. The password must meet Complex * Password requirements if Complex Passwords are * turned on in the LCONF. * Paragraph deleted: 520-BLANK-PASSWORD * 520-PASSWORD-UPDATE-SEC-RCD * Paragraphs added: 210-UPSHIFT-PASSWORD-RESET * 210-VALIDATE-ENCRYPT-PASSWORD * Paragraphs modified: 200-DETERMINE-TRAN-CODE * 210-LOGON * 210-ADD-SUPER-SUPER * 240-CHANGE-PASSWORD * 240-PSWD-HIST-CHK * 510-READ-SEC-RCD * 515-READ-NEXT-SEC-RCD * 520-UPDATE-SEC-RCD * 540-ADD-SEC-RCD * 600-ADD-LIKE-SEC-RCD * Dependency: Apply fix to SVISECS. Run Make. Refer to * BA60UD0B.SCNPSWD for a complete listing of * dependencies. * Reference: WO #070309-04 * 12OCT2007 GaitonP * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Added support for Base24 Pathway PCI Masking. * Paragraphs modified: 210-ADD-SUPER-SUPER * 210-LOGON * 220-VALIDATE-LN-CHANGE * Dependency: Apply fix to DDLGSEC and SVISECS. Run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Modified Paragraphs: * 200-DETERMINE-TRAN-CODE * 570-MODIFY-UFIR-BLOCK * 1020-AUDIT-WRITE * Dependency: Apply fix to BACOUTLS and SVISECS. Run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #ADD 01840A03 DATA DIVISION 02 WS-MASKING-FLG PIC X(1). #REPLACE 01840A04 DATA DIVISION 02 WS-USER-FLD1 PIC X(14). #ADD 01878 DATA DIVISION 05 NEW-USER-PASSWORD PIC X(8). #REPLACE 02625W0C DATA DIVISION 05 MASKING-FLG PIC X. #REPLACE 02625W0Z DATA DIVISION 05 MASKING-FLG PIC X. #DELETE 03245W01/03245A05 200-DETERMINE-TRAN-CODE #ADD 03269 200-DETERMINE-TRAN-CODE IF ERR-CDE OF MSG-ERR-EXT = 600 PERFORM 1000-AUDIT-CALL END-IF #ADD 03296 200-DETERMINE-TRAN-CODE IF ERR-CDE OF MSG-ERR-EXT = 48 PERFORM 1000-AUDIT-CALL END-IF #ADD 03301 200-DETERMINE-TRAN-CODE ELSE IF TRAN-CDE OF MSG-SECURITY-EXT OF MESSAGE-IN = FILE-ACCESS-ERROR PERFORM 1000-AUDIT-CALL #ADD 03348W01 200-DETERMINE-TRAN-CODE IF MASKING-FLG OF SEC-BASE-INFO NOT = "N" MOVE "Y" TO MASKING-FLG OF SEC-BASE-INFO END-IF MOVE MASKING-FLG OF SEC-BASE-INFO TO MASKING-FLG OF MSG-SECURITY-EXT OF MESSAGE-IN MOVE MASKING-FLG OF SEC-BASE-INFO TO MASKING-FLG OF MSG-SECURITY-EXT OF MESSAGE-OUT #ADD 03444W07 200-DETERMINE-TRAN-CODE MOVE "N" TO MASKING-FLG OF MSG-SECURITY-EXT OF MESSAGE-OUT #ADD 03456W00 200-DETERMINE-TRAN-CODE MOVE "Y" TO ERROR-FLAG MOVE 9 TO ERR-CDE OF MSG-ERR-EXT MOVE "0009" TO ERR-NUM OF MSG-ERR-EXT, ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE "PASSWORD REQUIRES CHANGE." TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT #DELETE 03456W01/03456W03 200-DETERMINE-TRAN-CODE #ADD 03489a1o 210-UPSHIFT-PASSWORD 210-UPSHIFT-PASSWORD-RESET. IF LCONF-PASSWORD-COMPLEX = "N" INSPECT PASSWORD OF SEC-BASE-INFO CONVERTING "abcdefghijklmnopqrstuvwxyz" TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ". #ADD 03524 210-ADD-SUPER-SUPER MOVE "N" TO MASKING-FLG OF SEC-BASE-INFO. #ADD 03524F00 210-ADD-SUPER-SUPER MOVE ZEROES TO LOGOFF-INTERVAL OF SEC-BASE-INFO. #DELETE 03524F01 210-ADD-SUPER-SUPER #REPLACE 03529 210-ADD-SUPER-SUPER MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO #ADD 03634 210-TERM-SEARCH / ****************************************************************** * VALIDATES AND ENCRYPTS A PASSWORD WHEN THE ADMINISTRATOR * ADDS A NEW SEC RECORD OR CHANGES THE USER'S PASSWORD. * SPACES ARE NO LONGER A VALID PASSWORD. THE SEC-BASE-INFO * STRUCTURE HAS THE NEW PASSWORD INFORMATION. THE CURRENT * DATABASE PASSWORD HAS BEEN SAVED IN WS-SEC-BASE-INFO. * * "*+ " IS A UNIQUE STRING SENT TO THE REQUESTER. * IF THE SAME STRING COMES BACK FROM THE REQUESTER IN THE * PASSWORD FIELD, NOTHING WAS ENTERED IN THAT FIELD ON * THE SCREEN. THIS IS THE SAME AS A BLANK PASSWORD, WHICH * IS NOT ALLOWED. ****************************************************************** 210-VALIDATE-ENCRYPT-PASSWORD. IF NO-ERROR AND PASSWORD OF SEC-BASE-INFO = "*+ " MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD CANNOT BE BLANK" TO WS-ERR-TXT MOVE 7 TO ERR-CDE OF MSG-ERR-EXT MOVE "0007" TO ERR-NUM OF MSG-ERR-EXT. IF NO-ERROR ENTER TAL "STRLEN" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, MAX-LENGTH GIVING NEW-PASSWORD-LENGTH. IF NO-ERROR MOVE NEW-PASSWORD-LENGTH TO NEW-PASSWORD-LGTH MOVE NEW-PASSWORD-LGTH TO NEW-PASSWORD-LEN IF LEN < LCONF-PASSWORD-LGTH-MIN MOVE "Y" TO ERROR-FLAG MOVE LCONF-PASSWORD-LGTH-MIN TO LGTH-MIN MOVE PASSWORD-TOO-SHORT-MSG TO WS-ERR-TXT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT. IF NO-ERROR MOVE "000000" TO PASSWORD-CHG-DAT OF SEC-BASE-INFO. IF NO-ERROR PERFORM 210-UPSHIFT-PASSWORD-RESET IF LCONF-PASSWORD-COMPLEX = "N" ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA ELSE ENTER TAL "SHA1^HASH" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, 8, WS-PASSWORD-HASH. IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" PERFORM 110-GET-TIMESTAMP PERFORM 210-GET-TIME MOVE 0 TO NUM-PASSWORD-CHNG-TODAY PERFORM 240-PSWD-HIST-CHK VARYING X FROM 1 BY 1 UNTIL X > PASSWORD-MAX-STORE IF NO-ERROR ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING PASSWORD OF SEC-BASE-INFO, NEW-PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD IF VALID-PASSWORD = 0 MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD COMPLEXITY REQUIREMENTS NOT MET" TO WS-ERR-TXT MOVE 3 TO ERR-CDE OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT ELSE PERFORM 240-PSWD-HIST-SHIFT VARYING X FROM 10 BY -1 UNTIL X = 1 MOVE WS-PASSWORD-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) PERFORM 110-GET-TIMESTAMP PERFORM 210-GET-TIME MOVE TIME-FORMAT TO PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "AAAAAAAA" TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA. #ADD 03719W03 220-VALIDATE-LN-CHANGE MOVE "N" TO MASKING-FLG OF MSG-SECURITY-EXT OF MESSAGE-OUT #DELETE 03849b00/03849b08 240-CHANGE-PASSWORD #REPLACE 03885b02 240-PSWD-HIST-CHK * If the PASSWORD-CHG-DAT is zeroes, then the #REPLACE 03885b07 240-PSWD-HIST-CHK IF PASSWORD-CHG-DAT OF SEC-BASE-INFO = ZEROS #DELETE 03885b08 240-PSWD-HIST-CHK #ADD 04184 510-READ-SEC-RCD MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO #ADD 04231 515-READ-NEXT-SEC-RCD MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO #ADD 04450 520-UPDATE-SEC-RCD * * TO SAVE THE INFORMATION FROM THE DATABASE COPY OF * SEC-BASE-INFO, MOVE IT TO WS-PASSWORD-HOLD. * MOVE PASSWORD OF SEC-BASE-INFO TO WS-PASSWORD-HOLD #ADD 04472 520-UPDATE-SEC-RCD * * THE PASSWORD SENT TO THE REQUESTER SCREEN IS "*+ ". * IF THIS IS NOT THE VALUE SENT BACK FROM THE SCREEN, THE * PASSWORD HAS BEEN CHANGED ON THE SCREEN. THE NEW PASSWORD * MUST BE VALIDATED AND ENCRYPTED OR HASHED. * IF PASSWORD OF SEC-BASE-INFO NOT = "*+ " PERFORM 210-VALIDATE-ENCRYPT-PASSWORD IF NO-ERROR MOVE SEC-BASE-INFO TO SEC-DATA OF SEC PERFORM 913-SEC-RCD-REWRITE IF NO-ERROR MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE 1 TO REPL-CDE OF MSG-ERR-EXT IF (ACCESS-LIMIT-FLAG = "L") OR (LIMIT-TIME-FLAG = "T") MOVE UPDATE-W-LIMIT-MSG TO WS-ERR-TXT MOVE SEC TO WS-AUDIT-HOLD PERFORM 1000-AUDIT-CALL MOVE SEC-DATA OF SEC TO SEC-BASE-INFO PERFORM 508-CONVERT-STA-TO-EXTERNAL VARYING I FROM 1 BY 1 UNTIL I > 9 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO REC-IMAGE OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-OUT PERFORM 522-COMPARE ELSE MOVE SEC-F-NAME(FILE-INDICATOR) TO UPDATE-FILENAME MOVE UPDATE-OK-MSG TO WS-ERR-TXT MOVE SEC TO WS-AUDIT-HOLD PERFORM 1000-AUDIT-CALL MOVE SEC-DATA OF SEC TO SEC-BASE-INFO PERFORM 508-CONVERT-STA-TO-EXTERNAL VARYING I FROM 1 BY 1 UNTIL I > 9 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO REC-IMAGE OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-OUT PERFORM 522-COMPARE ELSE MOVE UPDATE-ERR-MSG TO WS-ERR-TXT MOVE GUARDIAN-ERR TO WS-GUAR-ERR PERFORM 100-SEC-ERROR-TEXT-FILL PERFORM 916-SEC-RCD-UNLOCK ELSE PERFORM 916-SEC-RCD-UNLOCK ELSE * * THE PASSWORD SENT TO THE REQUESTER SCREEN IS "*+ ". * IF THIS IS THE VALUE SENT BACK FROM THE SCREEN, THE * PASSWORD HAS NOT BEEN CHANGED ON THE SCREEN. THE ORIGINAL * PASSWORD (STORED IN WS-PASSWORD-HOLD) MUST BE PUT BACK * INTO THE RECORD BEFORE WRITING THE UPDATED SEC RECORD. * MOVE WS-PASSWORD-HOLD TO PASSWORD OF SEC-BASE-INFO IF NO-ERROR MOVE SEC-BASE-INFO TO SEC-DATA OF SEC PERFORM 913-SEC-RCD-REWRITE IF NO-ERROR MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE 1 TO REPL-CDE OF MSG-ERR-EXT IF (ACCESS-LIMIT-FLAG = "L") OR (LIMIT-TIME-FLAG = "T") MOVE UPDATE-W-LIMIT-MSG TO WS-ERR-TXT MOVE SEC TO WS-AUDIT-HOLD PERFORM 1000-AUDIT-CALL MOVE SEC-DATA OF SEC TO SEC-BASE-INFO PERFORM 508-CONVERT-STA-TO-EXTERNAL VARYING I FROM 1 BY 1 UNTIL I > 9 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO REC-IMAGE OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-OUT PERFORM 522-COMPARE ELSE MOVE SEC-F-NAME(FILE-INDICATOR) TO UPDATE-FILENAME MOVE UPDATE-OK-MSG TO WS-ERR-TXT MOVE SEC TO WS-AUDIT-HOLD PERFORM 1000-AUDIT-CALL MOVE SEC-DATA OF SEC TO SEC-BASE-INFO PERFORM 508-CONVERT-STA-TO-EXTERNAL VARYING I FROM 1 BY 1 UNTIL I > 9 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO REC-IMAGE OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-OUT PERFORM 522-COMPARE ELSE MOVE UPDATE-ERR-MSG TO WS-ERR-TXT MOVE GUARDIAN-ERR TO WS-GUAR-ERR PERFORM 100-SEC-ERROR-TEXT-FILL PERFORM 916-SEC-RCD-UNLOCK ELSE PERFORM 916-SEC-RCD-UNLOCK #DELETE 04473 /04507 520-UPDATE-SEC-RCD #DELETE 04516A00/04516A1I 520-UPDATE-CHECK-NUMBERS #REPLACE 04832a01 540-ADD-SEC-RCD PERFORM 210-VALIDATE-ENCRYPT-PASSWORD #ADD 04832a02 540-ADD-SEC-RCD IF NO-ERROR MOVE "000000" TO PASSWORD-CHG-DAT OF SEC-BASE-INFO 04833 04834A00 04834A01 04834a00 04834a01 04834a02 04834A06 04834W00 MOVE DEFAULT-PROD-IND TO 04834W01 PROD-IND-EXT OF SEC-BASE-INFO 04834W02 04834W03 04834Z00 MOVE ZEROES TO LAST-LOGON-DAT-TIM OF 04834Z01 SEC-BASE-INFO(1), 04834Z02 LAST-LOGON-DAT-TIM OF 04834Z03 SEC-BASE-INFO(2), 04834Z04 LAST-LOGON-DAT-TIM OF 04834Z05 SEC-BASE-INFO(3) 04834Z06 04834Z07 04836W00 04836W01 04836W02 MOVE SEC-BASE-INFO TO SEC-DATA OF SEC 04838 MOVE SEC-BASE-LEN TO SEC-REC-LEN 04839 PERFORM 917-SEC-RCD-WRITE 04840 IF NO-ERROR 04841 04842W00 04842W01 MOVE 1 TO REPL-CDE OF MSG-ERR-EXT 04842W02 MOVE 0 TO ERR-CDE OF MSG-ERR-EXT 04842W03 04842W04 MOVE SEC-DATA OF SEC TO SEC-BASE-INFO 04844 PERFORM 508-CONVERT-STA-TO-EXTERNAL 04845 VARYING I FROM 1 BY 1 UNTIL I > 9 04846 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC 04847 MOVE SEC TO REC-IMAGE 04848 04849W00 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-OUT 04849W01 04849W02 IF (ACCESS-LIMIT-FLAG = "L") OR 04850 (LIMIT-TIME-FLAG = "T") 04851 MOVE ADD-W-LIMIT-MSG TO WS-ERR-TXT 04852 MOVE SEC TO WS-AUDIT-HOLD 04853 PERFORM 1000-AUDIT-CALL 04854 ELSE 04855 MOVE SEC-F-NAME(FILE-INDICATOR) TO ADD-FILENAME 04856 MOVE ADD-OK-MSG TO WS-ERR-TXT 04857 MOVE SEC TO WS-AUDIT-HOLD 04858 PERFORM 1000-AUDIT-CALL 04859 ELSE 04860 04861W00 MOVE 0 TO REPL-CDE OF MSG-ERR-EXT 04861W01 04861W02 IF FILE-STAT-ELEMENT = 22 04862 MOVE EXIST-MSG TO WS-ERR-TXT 04863 PERFORM 100-SEC-ERROR-TEXT-FILL 04864 ELSE 04865 MOVE ADD-ERR-MSG TO WS-ERR-TXT 04866 PERFORM 100-SEC-ERROR-TEXT-FILL 04867 ELSE PERFORM 100-SEC-ERROR-TEXT-FILL. 04868 #DELETE 04833 /04868 540-CHECK-NUMBERS #ADD 04957 570-MODIFY-UFIR-BLOCK IF ERR-CDE OF MSG-ERR-EXT = 48 AND ( NOT NO-ERROR ) PERFORM 1000-AUDIT-CALL. #REPLACE 05984 /05984 OFFSET 0 600-ADD-LIKE-RCD TO WS-ERR-TXT ELSE NEXT SENTENCE. #ADD 06008 600-ADD-LIKE-SEC-RCD MOVE NEW-USER-PASSWORD OF ADD-LIKE-REQ TO PASSWORD OF SEC-BASE-INFO #REPLACE 06019a01 600-ADD-LIKE-SEC-RCD PERFORM 210-VALIDATE-ENCRYPT-PASSWORD #ADD 06019a02 600-ADD-LIKE-SEC-RCD IF NO-ERROR MOVE "000000" TO PASSWORD-CHG-DAT OF SEC-BASE-INFO 06020 06021A00 06021A01 06021a00 06021a01 06021a02 06021A06 06021Z00 MOVE ZEROES TO LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(1), 06021Z01 LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(2), 06021Z02 LAST-LOGON-DAT-TIM OF SEC-BASE-INFO(3) 06021Z03 06021Z04 MOVE SEC-BASE-INFO TO SEC-DATA OF SEC 06023 MOVE SEC-BASE-LEN TO SEC-REC-LEN 06024 PERFORM 917-SEC-RCD-WRITE 06025 IF NO-ERROR 06026 MOVE SEC-DATA OF SEC TO SEC-BASE-INFO 06027 PERFORM 508-CONVERT-STA-TO-EXTERNAL 06028 VARYING I FROM 1 BY 1 UNTIL I > 9 06029 MOVE "*+ " TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC 06030 06031 MOVE SEC TO WS-AUDIT-HOLD 06032 PERFORM 1000-AUDIT-CALL 06033 ELSE 06034 06035W00 MOVE 0 TO REPL-CDE OF MSG-ERR-EXT 06035W01 06035W02 IF FILE-STAT-ELEMENT = 22 06036 MOVE EXIST-MSG TO WS-ERR-TXT 06037 PERFORM 100-SEC-ERROR-TEXT-FILL 06038 ELSE 06039 MOVE ADD-ERR-MSG TO WS-ERR-TXT 06040 PERFORM 100-SEC-ERROR-TEXT-FILL 06041 ELSE NEXT SENTENCE. #DELETE 06020 /06041 600-ADD-LIKE-SEC-RCD #ADD 08149W02 1020-AUDIT-WRITE NOT = 18 IF TRAN-CDE OF MSG-SECURITY-EXT OF MESSAGE-IN = 10 MOVE "J" TO WS-FM-TYPE ELSE IF TRAN-CDE OF MSG-SECURITY-EXT OF MESSAGE-IN = 17 MOVE "I" TO WS-FM-TYPE ELSE IF TRAN-CDE OF MSG-SECURITY-EXT OF MESSAGE-IN = 23 MOVE "J" TO WS-FM-TYPE. #DELETE 08150 1020-AUDIT-WRITE #ADD 08198 1020-AUDIT-WRITE IF FM-TYP OF OMF NOT = "I" AND NOT = "J" MOVE "S" TO FM-TYP OF OMF END-IF #DELETE 08199 1020-AUDIT-WRITE #ENDSCN = BA0B384 !#CMP2.28 11/11/07 RQUAFS 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQUAFS RQUAFS 6016 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQUAFS RQUAFS 6016 * ******************************************************************************** #SCN = BA0B385 , FILEID = RQUAFS #VOLUME = $ROOK.BA60AFT #FILE = RQUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6016 #NEWVERSION = 6017 #ADD 00023P0D * 12OCT2007 GaitonP * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Masking of sensitive information is supported in * accordance to PCI data security standards. This * is based on MASKING-FLG value in DDLGSEC. The * data elements defined as 'sensitive information' * on the Base24 screens are PAN, Card's Expiration * Date and Cardholder's Name. If the PAN is * configured for masking for the user, then the * other sensitive data will be masked completely. * Modified Procs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to RQUAFS and run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Added Paragraphs: * 401-FILE-ACCESS-ERROR * 800-GO-TO-SCREEN-UAF * 800-VALID-SCREEN-UAF * 820-SECURITY-VIOLATION-UAF * Modified Paragraphs: * 201-GET-DATA * 240-FETCH-RECORD * 250-ADD-RECORD * 260-DELETE-RECORD * 270-UPDATE-RECORD * 280-READ-NEXT-RECORD * 490-GET-DATA * Dependency: Apply fix to RQUAFS and run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #ADD 00056 DATA DIVISION 05 WS-MASK-PAN PIC X(28). 05 WS-UNMASK-PAN PIC X(28). #ADD 00160 DATA DIVISION 05 FIID-BYTE-MAP-TABLE PIC X(32). #ADD 00160P03 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00160P04 DATA DIVISION 05 FILLER PIC X(1857). #ADD 00162 DATA DIVISION COPY PAN-MASK-GLOBALS OF =BASRC_BACOUTLS. #ADD 00200 RECOV-1 COPY G100-CALC-PAN-LGTH OF =BASRC_BACOUTLS. COPY G110-MASK-PAN OF =BASRC_BACOUTLS. #REPLACE 00246 201-GET-DATA 800-GO-TO-SCREEN-UAF , #REPLACE 00388 245-FETCH-RECORD PERFORM 820-SECURITY-VIOLATION-UAF. #REPLACE 00413 255-ADD-RECORD PERFORM 820-SECURITY-VIOLATION-UAF. #REPLACE 00437 265-DELETE-RECORD PERFORM 820-SECURITY-VIOLATION-UAF. #REPLACE 00457 275-UPDATE-RECORD PERFORM 820-SECURITY-VIOLATION-UAF. #REPLACE 00481 285-READ-NEXT PERFORM 820-SECURITY-VIOLATION-UAF. #ADD 00518 400-MOVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE MAX-LEFT-UNMASKED OF AFT-PAN-DIGITS TO WS-MAX-LEFT-UNMASKED MOVE MIN-MASKED OF AFT-PAN-DIGITS TO WS-MIN-MASKED MOVE RIGHT-UNMASKED OF AFT-PAN-DIGITS TO WS-RIGHT-UNMASKED MOVE WS-CRD-NUM TO WS-UNMASK-PAN MOVE WS-CRD-NUM TO WS-PAN OF WS-PAN-MASK PERFORM G100-PAN-LGTH-CALC IF WS-PAN-LGTH > 0 AND < 20 PERFORM G110-PAN-MASK MOVE WS-PAN OF WS-PAN-MASK TO WS-CRD-NUM MOVE WS-CRD-NUM TO WS-MASK-PAN. #ADD 00601 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-PAN = WS-CRD-NUM MOVE WS-UNMASK-PAN TO PAN-IMAGE ELSE MOVE SPACES TO WS-MASK-PAN MOVE SPACES TO WS-UNMASK-PAN. #ADD 00611P0M 400-SAVE-RECORD MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-4096-EXT. #ADD 00740O06 401-ERR-ON-FIID-ACCESS 401-FILE-ACCESS-ERROR. MOVE WS-FIID TO FIID OF UFIR. MOVE ALIAS OF USER-CONTEXT-EXT TO ALIAS OF UFIR. MOVE SPACES TO REGN OF UFIR, BRCH OF UFIR. MOVE "C" TO FRMT-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE 23 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE "1" TO OMF-AUDIT OF MSG-FILE-MAINT-1024-EXT. MOVE LNET OF USER-CONTEXT-EXT TO LN OF MSG-FILE-MAINT-1024-EXT. MOVE LCONF-NAME OF USER-CONTEXT-EXT TO LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE LOGICAL-TERMINAL-NAME TO TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE UFIR TO REC-IMAGE OF MSG-FILE-MAINT-1024-EXT. MOVE "SEC" TO SERVER-SUFFIX. MOVE " " TO STR-ERR. SEND MSG-FILE-MAINT-1024-EXT TO WS-SERVER REPLY CODE 0 YIELDS MSG-FILE-MAINT-1024-EXT. #ADD 00818 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-PAN = WS-CRD-NUM MOVE WS-UNMASK-PAN TO WS-CRD-NUM. #ADD 00837 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-UNMASK-PAN = WS-CRD-NUM MOVE WS-MASK-PAN TO WS-CRD-NUM. #REPLACE 00949 490-GET-DATA 800-GO-TO-SCREEN-UAF , #ADD 01255P03 595-CLEAR-DATA MOVE SPACES TO WS-MASK-PAN. MOVE SPACES TO WS-UNMASK-PAN. #ADD 01312O00 595-SCREEN-INIT 800-GO-TO-SCREEN-UAF. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE "NO" TO VALID-DATA. IF INIT-FLAG NOT = 1 PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-4096-EXT ELSE PERFORM 800-VALID-SCREEN-UAF PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. 800-VALID-SCREEN-UAF. MOVE NEW-PAGE-NUMBER TO CHECK-VALID-OVERLAY. IF VALID-OVERLAY IF NEW-PAGE-NUMBER > 0 AND ( R-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" ) MOVE NEW-PAGE-NUMBER TO WS-OVERLAY MOVE SPACES TO WS-MESSAGE-TEXT, WS-ERROR-NUM ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "ACCESS TO REQUESTED SCREEN IS NOT ALLOWED. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM PERFORM 401-FILE-ACCESS-ERROR ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "REQUESTED SCREEN IS NOT A VALID SCREEN. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM. 820-SECURITY-VIOLATION-UAF. MOVE "ACCESS TO FUNCTION NOT ALLOWED" TO WS-MESSAGE-TEXT. MOVE "550" TO WS-ERROR-NUM. PERFORM 990-DISPLAY-MESSAGE. PERFORM 401-FILE-ACCESS-ERROR. #ENDSCN = BA0B385 !#CMP2.28 11/23/07 SVUAFS 6016 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVUAFS SVUAFS 6016 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVUAFS SVUAFS 6016 * ******************************************************************************** #SCN = BA0B386 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6016 #NEWVERSION = 6017 #ADD 00017P0D * 12OCT2007 GaitonP * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Added support for the masking of sensitive * information in accordance to PCI data security * standards. Masking of PAN is based on the LCONF * parameter AFT-PAN-DIGITS which contain a 3-digit * numeric value. * Digit 1 - The maximum number of leftmost digits * to be displayed unmasked. Default value * is 0 * Digit 2 - The minimum number of digits to be * masked. Default value is 9 * Digit 3 - The number of rightmost digits to be * displayed unmasked. Default value is 4 * Modified procs: * 205-DO-MOVES-TO-REC-IMAGE * 909-RETRIEVE-LCONF-ASSIGNS * Dependency: Apply fixes to SVUAFS and run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * 911-FIID-CHECK * Dependency: Apply fix to SVUAFS and run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #ADD 00359O01 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00359O02 DATA DIVISION 05 FILLER PIC X(1857). #ADD 00373N02 DATA DIVISION COPY CRD-KEY OF "=BASRC_BADDLCOB". #ADD 00501 DATA DIVISION 01 LCONF-PARAM-AFT-PAN-DIGITS. 05 LCONF-MAX-LEFT-UNMASKED PIC X. 05 LCONF-MIN-MASKED PIC X. 05 LCONF-RIGHT-UNMASKED PIC X. #ADD 00904 200-READ-RCD PERFORM 60-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "E" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF UAF TO FIID OF CRD-KEY MOVE PAN OF UAF TO PAN OF CRD-KEY MOVE MBR-NUM OF UAF TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT #ADD 00946J00 205-DO-MOVES-TO-REC-IMAGE IF MASKING-FLG OF MSG-FILE-MAINT-4096-EXT = "Y" MOVE LCONF-PARAM-AFT-PAN-DIGITS TO AFT-PAN-DIGITS. #ADD 01281 600-READ-NEXT-RCD MOVE WS-LAST-FM TO LAST-FM OF MESSAGE-IO PERFORM 60-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "F" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF UAF TO FIID OF CRD-KEY MOVE PAN OF UAF TO PAN OF CRD-KEY MOVE MBR-NUM OF UAF TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT. #DELETE 01282 600-READ-NEXT-RCD #ADD 01603 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "AFT-PAN-DIGITS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO LCONF-PARAM-AFT-PAN-DIGITS IF LCONF-PARAM-AFT-PAN-DIGITS IS NOT NUMERIC MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS MOVE ZEROES TO FILE-STAT-ELEMENT, WS-GUAR-ERR END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF #ADD 01674N02 911-FIID-CHECK MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE PERFORM 1000-CALL-AUDIT. #DELETE 01674N03 911-FIID-CHECK #ENDSCN = BA0B386 !#CMP2.28 11/12/07 RQCAFS 6062 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6062 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6062 * ******************************************************************************** #SCN = BA0B387 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6062 #NEWVERSION = 6063 #ADD 00023<0R * 12OCT2007 LoganaB * Symptom: CAP Authentication. * Problem: None. * Fix: Added support for the following new field on * screen 13: * BAD CAP TOKEN OVERRIDE FLAG * Added support for the following new fields on * screen 13 for the Primary Card Data and also for * the Secondary Card Data: * CAP ATC NUMBER, BAD CAP TOKEN COUNTER, * CAP APSN, and CAP DKI. * Added paragraphs: * 480-FLAG-OV-13-FIELD-12 * 480-FLAG-OV-13-FIELD-13 * 480-FLAG-OV-13-FIELD-14 * 480-FLAG-OV-13-FIELD-15 * 480-FLAG-OV-13-FIELD-16 * Modified paragraphs: * 450-SET-UP-ADD-CONTINUED * 480-ERR-FLAG-OV-13 * 595-CLEAR-DATA * Dependency: Restore SCRNCAF. Apply fixes DDLFCAF and RQCAFS. * Run Make. Refer to BA60UD0B.SCNCAP for a * complete listing of dependencies. * Reference: WO #070307-01 * 12OCT2007 DwivedS * Symptom: PCI - Masking on Pathway. * Problem: None. * Fix: Masking of sensitive information is supported in * accordance to PCI data security standards. This * is based on MASKING-FLG value in DDLGSEC. The * data elements defined as 'sensitive information' * on the Base24 screens are PAN, Card's Expiration * Date and Cardholder's Name. If the PAN is * configured for masking for the user, then the * other sensitive data will be masked completely. * Modified Procs: * 400-DO-REST-OF-MOVES * 400-MOVE-RECORD * 400-SAVE-RECORD * 595-CLEAR-DATA * Dependency: Restore SCRNCAF. Apply fixes to RQCAFS. Run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 FalkL GirmusD * Symptom: Stored Value BDM Support * BASE24-card Release 5.3 Bulk/Batch Processing * Enhancement * Problem: None. * Fix: Retrofitted the Release 5.3 changes in to * Release 6.0. This included the following: * Added the value of 91 as a valid Issue Status. * Added the Issue Status description on the table * lookup for the value of 91. * Modified paragraph: * 550-TABLE-LOOKUP-OVERLAY-20 * Dependency: Apply fixes to RQCAFS and SVCAFS. Run Make. * Refer to BA60UD0B.SCNSTVB for a complete listing * of dependencies. * Reference: WO #070123-09 (Stored Value BDM Support) * (Retro of SCN BA5P485 from WO #020806-01) * 12OCT2007 NataraM * Symptom: Preferred Transaction. * Problem: None. * Fix: Added new screen 21 to support the new preferred * transaction segment. * Modified paragraphs: * 200-ACCEPT-SCREEN * 480-DATA-CHECK-RETURN * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY * 595-CLEAR-DATA * 595-SCREEN-INIT * Added paragraphs: * 200-ACCEPT-SCREEN-OVERLAY-21 * 480-CHK-OVERLAY-21 * 480-ERR-FLAG-OV-21 * 550-TABLE-LOOK-UP-OVERLAY-21 * 555-TRAN-CDE-DESCR * 570-DISPLAY-OVERLAY-21 * Dependency: Restore SCRNCAF. Apply fixes to DDLFCAF and * RQCAFS. Run Make. Refer to BA60UD0B.SCNPTXN * for a complete listing of dependencies. * Reference: WO #060419-01 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Added Paragraphs: * 401-FILE-ACCESS-ERROR * 800-VALID-SCREEN-CAF * 820-SECURITY-VIOLATION-CAF * Modified Paragraphs: * 240-FETCH-RECORD * 250-ADD-RECORD * 260-DELETE-RECORD * 270-UPDATE-RECORD * 280-READ-NEXT-RECORD * 800-GO-TO-SCREEN-CAF * Dependency: Apply fix to RQCAFS and run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #REPLACE 00115 DATA DIVISION 01 WS-EXP-DAT PIC X(4) VALUE "0000". #ADD 00124&02 DATA DIVISION 10, 12, 13, 14, 15, 16, 20, 21, 48. #DELETE 00124&03/00125G01 DATA DIVISION #REPLACE 00132s0A DATA DIVISION "07", "09", "11" THROUGH "13", "17", "91". #ADD 00152 DATA DIVISION 05 WS-FROM-ACCT-TYP-DESCR PIC X(13). 05 WS-TO-ACCT-TYP-DESCR PIC X(13). 05 WS-TRAN-CDE-DESCR PIC X(16). 05 WS-RCPT-OPT-DESCR PIC X(22). 05 WS-PRFL-UPD-IND-DESCR PIC X(40). 05 WS-ADA-IND-DESCR PIC X(28). #ADD 00171+02 DATA DIVISION 05 WS-MASK-PAN PIC X(28). 05 WS-UNMASK-PAN PIC X(28). 05 WS-UNMASK-EXP-DAT PIC X(4). 05 WS-UNMASK-EXP-DAT-2 PIC X(4). #ADD 00189 DATA DIVISION COPY ATM-TRAN-CDE-DESCR OF =BASRC_COBNAMES. 01 PFRD-TXN-TRAN-CDE REDEFINES ATM-TRAN-CDE-DESCR. 05 TRAN-CDE-SUB OCCURS 26 TIMES. 10 ISO-TRAN-CDE PIC X(2). 10 B24-TRAN-CDE PIC X(2). 10 TRAN-CDE-DESCR PIC X(16). #ADD 00205s05 DATA DIVISION 05 CAF21 PIC X(4) VALUE "PFRD". #REPLACE 00206s01 DATA DIVISION 05 PROD-DESC PIC X(4) OCCURS 21 TIMES. #ADD 00232+03 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00232+04 DATA DIVISION 05 LEFTOVER PIC X(4152). #ADD 00234O00 DATA DIVISION COPY PAN-MASK-GLOBALS OF =BASRC_BACOUTLS. #ADD 00261s02 DATA DIVISION COPY SC-PFRD-TXN-CAF-21 OF =BAAFT_SCNCAFO. #ADD 00273 RECOV-1 COPY G100-CALC-PAN-LGTH OF =BASRC_BACOUTLS. COPY G110-MASK-PAN OF =BASRC_BACOUTLS. #ADD 00341c0G 200-ACCEPT-SCREEN ELSE IF WS-OVERLAY = 21 PERFORM 200-ACCEPT-SCREEN-OVERLAY-21 #ADD 00431s08 200-ACCEPT-SCREEN-OVERLAY-20 200-ACCEPT-SCREEN-OVERLAY-21. ACCEPT SC-MAIN, OVERLAY-21 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14, FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT 1024). #REPLACE 00460 245-FETCH-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-CAF. #REPLACE 00482 255-ADD-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-CAF. #REPLACE 00503 265-DELETE-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-CAF. #REPLACE 00520 275-UPDATE-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-CAF. #REPLACE 00541 285-READ-NEXT ELSE PERFORM 820-SECURITY-VIOLATION-CAF. #ADD 00579 400-MOVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE MAX-LEFT-UNMASKED OF AFT-PAN-DIGITS TO WS-MAX-LEFT-UNMASKED MOVE MIN-MASKED OF AFT-PAN-DIGITS TO WS-MIN-MASKED MOVE RIGHT-UNMASKED OF AFT-PAN-DIGITS TO WS-RIGHT-UNMASKED MOVE WS-PAN-NUM TO WS-UNMASK-PAN MOVE WS-PAN-NUM TO WS-PAN OF WS-PAN-MASK PERFORM G100-PAN-LGTH-CALC IF WS-PAN-LGTH > 0 AND < 20 PERFORM G110-PAN-MASK MOVE WS-PAN OF WS-PAN-MASK TO WS-PAN-NUM MOVE WS-PAN-NUM TO WS-MASK-PAN. #ADD 00592&02 400-DO-REST-OF-MOVES IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE WS-EXP-DAT TO WS-UNMASK-EXP-DAT MOVE WS-EXP-DAT-2 TO WS-UNMASK-EXP-DAT-2 MOVE "****" TO WS-EXP-DAT MOVE "****" TO WS-EXP-DAT-2. IF CAP-DATA OF SEG9 = SPACES MOVE ZEROS TO CAP-ATC OF CAP-DATA MOVE ZEROS TO BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA MOVE "00" TO DKI OF CAP-DATA MOVE "N" TO BAD-CAP-TKN-OVRRD-FLG OF CAP-DATA. IF CAP-DATA-2 OF SCND-CRD-DATA OF SEG9 = SPACES MOVE ZEROS TO CAP-ATC OF CAP-DATA-2 MOVE ZEROS TO BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 MOVE "00" TO DKI OF CAP-DATA-2. #ADD 00698&02 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND WS-MASK-PAN = WS-PAN-NUM IF WS-EXP-DAT = "****" MOVE WS-UNMASK-EXP-DAT TO EXP-DAT. IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND WS-MASK-PAN = WS-PAN-NUM IF WS-EXP-DAT-2 = "****" MOVE WS-UNMASK-EXP-DAT-2 TO EXP-DAT-2. #ADD 00698c07 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-PAN = WS-PAN-NUM MOVE WS-UNMASK-PAN TO PAN-IMAGE ELSE MOVE SPACES TO WS-MASK-PAN MOVE SPACES TO WS-UNMASK-PAN. #ADD 00713y0B 400-SAVE-RECORD MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-9216-EXT. #ADD 00769y05 401-ERR-ON-FIID-ACCESS 401-FILE-ACCESS-ERROR. MOVE WS-FI-ID TO FIID OF UFIR. MOVE ALIAS OF USER-CONTEXT-EXT TO ALIAS OF UFIR. MOVE SPACES TO REGN OF UFIR. MOVE SPACES TO BRCH OF UFIR. MOVE "C" TO FRMT-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE 23 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE OMF-AUDIT OF USER-CONTEXT-EXT TO OMF-AUDIT OF MSG-FILE-MAINT-1024-EXT. MOVE LNET OF USER-CONTEXT-EXT TO LN OF MSG-FILE-MAINT-1024-EXT. MOVE LCONF-NAME OF USER-CONTEXT-EXT TO LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE LOGICAL-TERMINAL-NAME TO TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE UFIR TO REC-IMAGE OF MSG-FILE-MAINT-1024-EXT. MOVE "SEC" TO SERVER-SUFFIX. MOVE " " TO INFO-ERR-FLAG. SEND MSG-FILE-MAINT-1024-EXT TO WS-SERVER REPLY CODE 0 YIELDS MSG-FILE-MAINT-1024-EXT. #ADD 00938+02 450-SET-UP-ADD-CONTINUED MOVE ZEROES TO CAP-ATC OF CAP-DATA OF SEG9, CAP-ATC OF CAP-DATA-2 OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SEG9. #ADD 01356y13 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-21, #ADD 01356y28 480-CHK-OVERLAY-20 480-CHK-OVERLAY-21. PERFORM 480-ERR-FLAG-OV-21 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 01356&0V 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-12, 480-FLAG-OV-13-FIELD-13, 480-FLAG-OV-13-FIELD-14, 480-FLAG-OV-13-FIELD-15, 480-FLAG-OV-13-FIELD-16, #ADD 01356y9D 480-ERR-FLAG-OV-14 480-FLAG-OV-13-FIELD-12. TURN TEMP SERROR IN C-BAD-CAP-TKN-OVRRDE-FLG. SET NEW-CURSOR AT C-BAD-CAP-TKN-OVRRDE-FLG. 480-FLAG-OV-13-FIELD-13. TURN TEMP SERROR IN C-APSN. SET NEW-CURSOR AT C-APSN. 480-FLAG-OV-13-FIELD-14. TURN TEMP SERROR IN C-CAP-APSN-2. SET NEW-CURSOR AT C-CAP-APSN-2. 480-FLAG-OV-13-FIELD-15. TURN TEMP SERROR IN C-DKI. SET NEW-CURSOR AT C-DKI. 480-FLAG-OV-13-FIELD-16. TURN TEMP SERROR IN C-CAP-DKI-2. SET NEW-CURSOR AT C-CAP-DKI-2. #ADD 01357y02 490-REGULAR-KEY-DISPLAY 480-ERR-FLAG-OV-21. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-21-FIELD-1, 480-FLAG-OV-21-FIELD-2, 480-FLAG-OV-21-FIELD-3, 480-FLAG-OV-21-FIELD-4, 480-FLAG-OV-21-FIELD-5, 480-FLAG-OV-21-FIELD-6, 480-FLAG-OV-21-FIELD-7, 480-FLAG-OV-21-FIELD-8, 480-FLAG-OV-21-FIELD-9, DEPENDING ON K. 480-FLAG-OV-21-FIELD-1. TURN TEMP SERROR IN C-ACCT-NO. SET NEW-CURSOR AT C-ACCT-NO. 480-FLAG-OV-21-FIELD-2. TURN TEMP SERROR IN C-TXN-CDE. SET NEW-CURSOR AT C-TXN-CDE. 480-FLAG-OV-21-FIELD-3. TURN TEMP SERROR IN C-FROM-ACCT-TYP. SET NEW-CURSOR AT C-FROM-ACCT-TYP. 480-FLAG-OV-21-FIELD-4. TURN TEMP SERROR IN C-TO-ACCT-TYP. SET NEW-CURSOR AT C-TO-ACCT-TYP. 480-FLAG-OV-21-FIELD-5. TURN TEMP SERROR IN C-RCPT-OPT. SET NEW-CURSOR AT C-RCPT-OPT. 480-FLAG-OV-21-FIELD-6. TURN TEMP SERROR IN C-AMT. SET NEW-CURSOR AT C-AMT. 480-FLAG-OV-21-FIELD-7. TURN TEMP SERROR IN C-PRFL-UPD-IND. SET NEW-CURSOR AT C-PRFL-UPD-IND. 480-FLAG-OV-21-FIELD-8. TURN TEMP SERROR IN C-ADA-IND. SET NEW-CURSOR AT C-ADA-IND. 480-FLAG-OV-21-FIELD-9. TURN TEMP SERROR IN C-MRKT-SEG-IND. SET NEW-CURSOR AT C-MRKT-SEG-IND. #ADD 01598G04 490-ACCEPT-SCREEN ELSE IF WS-OVERLAY = 21 PERFORM 490-ACCEPT-SCREEN-OVERLAY-21 #ADD 01687s08 490-ACCEPT-SCREEN-OVERLAY-20 490-ACCEPT-SCREEN-OVERLAY-21. ACCEPT SC-MAIN, OVERLAY-21 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14, FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL ). #ADD 01699s05 550-TABLE-LOOK-UP 550-TABLE-LOOK-UP-OVERLAY-21 #ADD 01699s0Y 550-TABLE-LOOK-UP-OVERLAY-20 ELSE IF ISSUE-STAT OF SEG12 = "91" MOVE "New issue - seed record " TO WS-ISSUE-STAT2 #ADD 01699s23 550-TABLE-LOOK-UP-OVERLAY-20 550-TABLE-LOOK-UP-OVERLAY-21. MOVE ZEROS TO I. MOVE SPACES TO WS-TRAN-CDE-DESCR. IF TRAN-CDE OF SEG27 NOT = SPACES PERFORM 555-TRAN-CDE-DESCR VARYING I FROM 1 BY 1 UNTIL I > 26. IF WS-TRAN-CDE-DESCR = SPACES MOVE "(**************)" TO WS-TRAN-CDE-DESCR. MOVE SPACES TO WS-FROM-ACCT-TYP-DESCR. IF FROM-ACCT-TYP OF SEG27 NOT = SPACES AND ZEROS MOVE SPACES TO HOLD-TYPE MOVE SPACES TO HOLD-DESCRIPTION MOVE FROM-ACCT-TYP OF SEG27 TO HOLD-TYPE PERFORM 550-SEARCH-TABLE VARYING I FROM 1 BY 1 UNTIL I > 17 MOVE HOLD-DESCRIPTION TO WS-FROM-ACCT-TYP-DESCR ELSE IF FROM-ACCT-TYP OF SEG27 = ZEROS MOVE "(NONE)" TO WS-FROM-ACCT-TYP-DESCR. IF WS-FROM-ACCT-TYP-DESCR = SPACES MOVE "(***********)" TO WS-FROM-ACCT-TYP-DESCR. MOVE SPACES TO WS-TO-ACCT-TYP-DESCR. IF TO-ACCT-TYP OF SEG27 NOT = SPACES AND ZEROS MOVE SPACES TO HOLD-TYPE MOVE SPACES TO HOLD-DESCRIPTION MOVE TO-ACCT-TYP OF SEG27 TO HOLD-TYPE PERFORM 550-SEARCH-TABLE VARYING I FROM 1 BY 1 UNTIL I > 17 MOVE HOLD-DESCRIPTION TO WS-TO-ACCT-TYP-DESCR ELSE IF TO-ACCT-TYP OF SEG27 = ZEROS MOVE "(NONE)" TO WS-TO-ACCT-TYP-DESCR. IF WS-TO-ACCT-TYP-DESCR = SPACES MOVE "(***********)" TO WS-TO-ACCT-TYP-DESCR. MOVE SPACES TO WS-RCPT-OPT-DESCR. IF RCPT-OPT OF SEG27 = "Y" MOVE "(RECEIPT REQUIRED)" TO WS-RCPT-OPT-DESCR ELSE IF RCPT-OPT OF SEG27 = "N" MOVE "(RECEIPT NOT REQUIRED)" TO WS-RCPT-OPT-DESCR ELSE MOVE "(****************)" TO WS-RCPT-OPT-DESCR. MOVE SPACES TO WS-PRFL-UPD-IND-DESCR. IF PRFL-UPDT-IND OF SEG27 = "Y" MOVE "(PROFILE UPDATE ALLOWED AT TERMINAL)" TO WS-PRFL-UPD-IND-DESCR ELSE IF PRFL-UPDT-IND OF SEG27 = "N" MOVE "(PROFILE UPDATE NOT ALLOWED AT TERMINAL)" TO WS-PRFL-UPD-IND-DESCR ELSE MOVE "(**********************************)" TO WS-PRFL-UPD-IND-DESCR. MOVE SPACES TO WS-ADA-IND-DESCR. IF ADA-IND OF SEG27 = "Y" MOVE "(ADA NEEDED AT TERMINAL)" TO WS-ADA-IND-DESCR ELSE IF ADA-IND OF SEG27 = "N" MOVE "(ADA NOT NEEDED AT TERMINAL)" TO WS-ADA-IND-DESCR ELSE MOVE "(**********************)" TO WS-ADA-IND-DESCR. #ADD 01802C06 555-CRD-TYP-DESCR 555-TRAN-CDE-DESCR. IF TRAN-CDE OF SEG27 = B24-TRAN-CDE(I) MOVE TRAN-CDE-DESCR(I) TO WS-TRAN-CDE-DESCR MOVE 27 TO I. #ADD 01972s05 570-DISPLAY-OVERLAY 570-DISPLAY-OVERLAY-21, #ADD 02119s0M 570-DISPLAY-OVERLAY-20 570-DISPLAY-OVERLAY-21. *PFRD-TXN OVERLAY PERFORM 490-REGULAR-KEY-DISPLAY. TURN PROTECTED IN SC-DATA. DISPLAY SC-DATA. DISPLAY SC-SYSTEM. DISPLAY SC-FI-ID. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY SC-INFORMATION-LINE. PERFORM 550-TABLE-LOOK-UP. DISPLAY OVERLAY OVERLAY-21 AT OVERLAY-AREA. DISPLAY OVERLAY-21. IF U-ACCESS (21) = "N" AND A-ACCESS (21) = "N" TURN PROTECTED IN OVERLAY-21. #ADD 02124k03 595-CLEAR-DATA SEG27 OF CAF, WS-TRAN-CDE-DESCR, WS-FROM-ACCT-TYP-DESCR, WS-TO-ACCT-TYP-DESCR, WS-RCPT-OPT-DESCR, WS-PRFL-UPD-IND-DESCR, WS-ADA-IND-DESCR, #ADD 02125c09 595-CLEAR-DATA MOVE SPACES TO WS-MASK-PAN. MOVE SPACES TO WS-UNMASK-PAN. #ADD 02159c02 595-CLEAR-DATA MOVE ZEROES TO AMT OF SEG27. MOVE 0 TO LGTH OF SEG-LGTH OF SEG27. #ADD 02180s0H 595-CLEAR-DATA MOVE "N" TO RCPT-OPT OF SEG27. MOVE "Y" TO PRFL-UPDT-IND OF SEG27. MOVE "N" TO ADA-IND OF SEG27. #ADD 02183&00 595-CLEAR-DATA MOVE ZEROES TO CAP-ATC OF CAP-DATA OF SEG9, CAP-ATC OF CAP-DATA-2 OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SEG9. MOVE "00" TO DKI OF CAP-DATA OF SEG9, DKI OF CAP-DATA-2 OF SEG9. MOVE "N" TO BAD-CAP-TKN-OVRRD-FLG OF SEG9. #REPLACE 02183y05 595-CLEAR-DATA MOVE ZEROES TO WS-EXP-DAT. #REPLACE 02213s01 595-SCREEN-INIT MOVE 21 TO WS-OVERLAY-MAX, WS-PAGE-OF. #REPLACE 02222y0n 800-GO-TO-SCREEN-CAF PERFORM 800-VALID-SCREEN-CAF #ADD 02222y1P 800-NEXT-VALID-OVERLAY-CAF 800-VALID-SCREEN-CAF. MOVE NEW-PAGE-NUMBER TO CHECK-VALID-OVERLAY. IF VALID-OVERLAY IF NEW-PAGE-NUMBER > 0 AND ( R-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" ) MOVE NEW-PAGE-NUMBER TO WS-OVERLAY MOVE SPACES TO WS-MESSAGE-TEXT, WS-ERROR-NUM ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "ACCESS TO REQUESTED SCREEN IS NOT ALLOWED. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM PERFORM 401-FILE-ACCESS-ERROR ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "REQUESTED SCREEN IS NOT A VALID SCREEN. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM. 820-SECURITY-VIOLATION-CAF. MOVE "ACCESS TO FUNCTION NOT ALLOWED" TO WS-MESSAGE-TEXT. MOVE "550" TO WS-ERROR-NUM. PERFORM 990-DISPLAY-MESSAGE. PERFORM 401-FILE-ACCESS-ERROR. #ENDSCN = BA0B387 !#CMP2.28 11/23/07 SVCAFS 6039 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6039 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6039 * ******************************************************************************** #SCN = BA0B389 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6039 #NEWVERSION = 6040 #ADD 00013m0L * 12OCT2007 LoganaB * Symptom: Dynamic CAF. * Problem: None. * Fix: Modified the server to support the new Dynamic * Cardholder Authorization File (CAFD). * Added paragraphs: * 907-OPEN-MULT-CAFDS * 911-READ-CAFD * 914-CLOSE-MULT-CAFDS * Modified paragraphs: * 200-READ-RCD * 205-DO-MOVES-TO-REC-IMAGE * 600-READ-NEXT-RCD * 905-CLOSE-FILES * 907-DETERMINE-EXPAND-ACCESS * 907-OPEN-MULT-FILES * 909-TABL-MAINT * Dependency: Restore DDLFCAFD. Apply fixes to DDLFIDF, * BACOUTLS and SVCAFS. Run Make. * Refer to BA60UD0B.SCNCAFD for a complete listing * of dependencies. * Reference: WO #070511-01 * 12OCT2007 LoganaB * Symptom: CAP Authentication. * Problem: None. * Fix: Added support for the following new field on * screen 13: * BAD CAP TOKEN OVERRIDE FLAG * Added support for the following new fields on * screen 13 for the Primary Card Data and also for * the Secondary Card Data: * CAP ATC NUMBER, BAD CAP TOKEN COUNTER, * CAP APSN, and CAP DKI. * Modified paragraphs: * 205-DO-MOVES-TO-REC-IMAGE * 480-DATA-CHECK-SCREEN13 * Dependency: Restore DDLFCAFD and SCRNCAF. Apply fixes to * DDLFCAF, RQCAFS and SVCAFS and run Make. * Refer to BA60UD0B.SCNCAP for a complete listing * of dependencies. * Reference: WO #070307-01 * 12OCT2007 DwivedS * Symptom: PCI - Masking on Pathway. * Problem: None. * Fix: Added support for the masking of sensitive * information in accordance to PCI data security * standards. Masking of PAN is based on the LCONF * parameter AFT-PAN-DIGITS which contain a 3-digit * numeric value. * Digit 1 - The maximum number of leftmost digits * to be displayed unmasked. Default value * is 0 * Digit 2 - The minimum number of digits to be * masked. Default value is 9 * Digit 3 - The number of rightmost digits to be * displayed unmasked. Default value is 4 * Modified procs: * 205-DO-MOVES-TO-REC-IMAGE * 909-RETRIEVE-LCONF-ASSIGNS * Dependency: Apply fixes to SVCAFS and run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 FalkL GirmusD * Symptom: Stored Value BDM Support * BASE24-card Release 5.3 Bulk/Batch Processing * Enhancement * Problem: None. * Fix: Retrofitted the Release 5.3 changes in to * Release 6.0. This included the following: * Added the value of 91 as a valid Issue Status. * Added the Issue Status description on the table * lookup for the value of 91. * Modified paragraph: * 480-DATA-CHECK-SCREEN20 * Dependency: Apply fixes to SVCAFS and RQCAFS. Run Make. * Refer to BA60UD0B.SCNSTVB for a complete listing * of depencencies. * Reference: WO #070123-09 (Stored Value BDM Support) * (Retro of SCN BA5P485 from WO #020806-01) * 12OCT2007 NataraM * Symptom: Preferred Transaction. * Problem: None. * Fix: Added logic to support the new preferred * transaction segment. * Modified paragraphs: * 310-UPDATE-REC * 480-DATA-CHECK-SCREEN * 510-RCD-ADD * 911-RCD-RETRIEVE * 912-RCD-REPLACE * 927-RCD-WRITE * Added paragraphs: * 480-DATA-CHECK-SCREEN21 * 940-CLEAR-PFRD-TXN-VALUES * Dependency: Apply fixes to DDLBCNST, DDLFCAF and SVCAFS. * Run Make. Refer to BA60UD0B.SCNPTXN for a * complete listing of dependencies. * Reference: WO #060419-01 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * 911-FIID-CHECK * Dependency: Apply fix to SVCAFS and run Make. * Refer to BA60UD0B.SCNAUDT for a * complete listing of dependencies. * Reference: WO #070423-02 #ADD 00083O00 ENVIRONMENT DIVISION COPY FILE-CONTROL-CAFD OF "=BASRC_BACOUTLS". #ADD 00097 DATA DIVISION FD CAFD-FILE LABEL RECORDS ARE OMITTED RECORD CONTAINS 1 TO 124 CHARACTERS. COPY CAFD OF "=BASRC_BADDLCOB". #ADD 00281m03 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00281m04 DATA DIVISION 05 LEFTOVER PIC X(4152). #ADD 00294L02 DATA DIVISION COPY CRD-KEY OF "=BASRC_BADDLCOB". #ADD 00302 DATA DIVISION 01 CAFD-ERROR-FLAG PIC X VALUE SPACE. 88 CAFD-NO-ERROR VALUE "N". #ADD 00319J01 DATA DIVISION 01 LCONF-PARAM-AFT-PAN-DIGITS. 05 LCONF-MAX-LEFT-UNMASKED PIC X. 05 LCONF-MIN-MASKED PIC X. 05 LCONF-RIGHT-UNMASKED PIC X. #ADD 00325e02 DATA DIVISION 05 PFRD-TXN-SEG-LGTH PIC S9(4) COMP VALUE 60. #REPLACE 00458e0U DATA DIVISION "07", "09", "11" THROUGH "13", "17", "91". #ADD 00458j02 DATA DIVISION 01 WS-SEG27. 05 WS-TXN-CDE PIC X(2) VALUE SPACES. 88 VALID-TXN-CDE VALUE "00", "03", "04", "10", "11", "20", "24", "30", "40", "50", "51", "60", "61", "62", "70", "81", "99", "S5", "S6", "S7", "S8", "SF". 05 WS-ACCT-TYP PIC X(2) VALUE SPACES. 88 VALID-ACCT-TYP VALUE "00", "01", "11", "12", "13", "21", "31", "32", "41", "42", "43", "50", "51", "52", "53", "54", "55", "60". #ADD 00646L03 200-READ-RCD PERFORM 911-READ-CAFD #ADD 00704 200-READ-RCD PERFORM 99-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "E" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF CAF TO FIID OF CRD-KEY MOVE PAN OF CAF TO PAN OF CRD-KEY MOVE MBR-NUM OF CAF TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT #ADD 00742m00 205-DO-MOVES-TO-REC-IMAGE *THE BELOW PART OF CODE WILL NOT BE EXECUTED IF PAN IS NOT *PRESENT IN CAFD FILE IF PRIKEY OF CAFD = PRIKEY OF CAF IF ATC OF CAFD > ATC OF SEG0 OF CAF MOVE ATC OF CAFD TO ATC OF SEG0 OF CAF END-IF IF ATC-2 OF SCND-CRD-DATA OF CAFD > ATC-SCND-CRD OF SEG0 OF CAF MOVE ATC-2 OF SCND-CRD-DATA OF CAFD TO ATC-SCND-CRD OF SEG0 OF CAF END-IF IF BYTE-MAP-R(10) = 1 AND WS-FIID-PROD-IND(10) = 1 IF EMV-ATC OF CAFD > ATC OF SEG9 OF CAF MOVE EMV-ATC OF CAFD TO ATC OF SEG9 OF CAF END-IF IF EMV-ATC-2 OF SCND-CRD-DATA OF CAFD > ATC-2 OF SCND-CRD-DATA OF SEG9 OF CAF MOVE EMV-ATC-2 OF SCND-CRD-DATA OF CAFD TO ATC-2 OF SCND-CRD-DATA OF SEG9 OF CAF END-IF MOVE BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF CAFD TO BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF SEG9 OF CAF MOVE BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SCND-CRD-DATA OF CAFD TO BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SCND-CRD-DATA OF SEG9 OF CAF IF CAP-ATC OF CAP-DATA OF CAFD > CAP-ATC OF CAP-DATA OF SEG9 OF CAF MOVE CAP-ATC OF CAP-DATA OF CAFD TO CAP-ATC OF CAP-DATA OF SEG9 OF CAF END-IF IF CAP-ATC OF CAP-DATA-2 OF SCND-CRD-DATA OF CAFD > CAP-ATC OF CAP-DATA-2 OF SCND-CRD-DATA OF SEG9 OF CAF MOVE CAP-ATC OF CAP-DATA-2 OF SCND-CRD-DATA OF CAFD TO CAP-ATC OF CAP-DATA-2 OF SCND-CRD-DATA OF SEG9 OF CAF END-IF END-IF MOVE CAF TO RECORD-IMAGE-CAF MOVE ZEROES TO PRIKEY OF CAFD END-IF #ADD 00743 205-DO-MOVES-TO-REC-IMAGE IF MASKING-FLG OF MSG-FILE-MAINT-9216-EXT = "Y" MOVE LCONF-PARAM-AFT-PAN-DIGITS TO AFT-PAN-DIGITS. #ADD 00808e0B 310-UPDATE-REC MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG-LGTH OF SEG27 OF CAF MOVE SEG-PFRD-TXN-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG27 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27 OF CAF #ADD 00972e1I 480-DATA-CHECK-SCREEN PERFORM 480-DATA-CHECK-SCREEN20 ELSE IF OVERLAY-NUM = 21 PERFORM 480-DATA-CHECK-SCREEN21. #DELETE 00972e1J 480-DATA-CHECK-SCREEN #ADD 00972eAP 480-DATA-CHECK-SCREEN14 IF BAD-CAP-TKN-OVRRD-FLG OF CAP-DATA OF SEG9 NOT = "N" AND BAD-CAP-TKN-OVRRD-FLG OF CAP-DATA OF SEG9 NOT = "Y" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAP TOKEN OVERRIDE FLAG MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF APSN OF CAP-DATA OF SEG9 NOT = SPACES AND APSN OF CAP-DATA OF SEG9 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CAP APSN MUST BE 00-99 OR SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF APSN OF CAP-DATA-2 OF SEG9 NOT = SPACES AND APSN OF CAP-DATA-2 OF SEG9 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CAP APSN MUST BE 00-99 OR SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DKI OF CAP-DATA OF SEG9 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DKI MUST BE 00-99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DKI OF CAP-DATA-2 OF SEG9 NOT NUMERIC ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DKI-2 MUST BE 00 TO 99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00972eDY/00972eDZ 480-DATA-CHECK-SCREEN20 MOVE "THE ISSUE STATUS MUST BE 00-05,07,09,11-13,17 O - "R 91" TO WS-ERR-TXT #ADD 00972eDk 480-DATA-CHECK-SCREEN20 480-DATA-CHECK-SCREEN21. MOVE SPACES TO WS-ACCTS MOVE ACCT OF SEG27 TO WS-ACCTS IF ACCT OF SEG27 = SPACES AND ( TRAN-CDE OF SEG27 NOT = SPACES OR FROM-ACCT-TYP OF SEG27 NOT = SPACES OR TO-ACCT-TYP OF SEG27 NOT = SPACES ) ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ACCOUNT NUMBER CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ACCT OF SEG27 NOT = SPACES MOVE SPACES TO VALID-DATA PERFORM 480-CHECK-ACCT-NUM VARYING J FROM 1 BY 1 UNTIL (J > 19) IF NOT VALID-DATA = "BAD" MOVE SPACES TO VALID-DATA MOVE 0 TO SPACE-SWITCH PERFORM 480-CHECK-IMPROPER-ACCT-SPACES VARYING J FROM 1 BY 1 UNTIL J > 19 IF VALID-DATA = "BAD" MOVE 1 TO FLD-ID-NUM(ERR-CNT) ELSE NEXT SENTENCE ELSE MOVE 1 TO FLD-ID-NUM(ERR-CNT). IF TRAN-CDE OF SEG27 = SPACES AND ( ACCT OF SEG27 NOT = SPACES OR FROM-ACCT-TYP OF SEG27 NOT = SPACES OR TO-ACCT-TYP OF SEG27 NOT = SPACES ) ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "TRANSACTION CODE CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF TRAN-CDE OF SEG27 NOT = SPACES MOVE TRAN-CDE OF SEG27 TO WS-TXN-CDE IF NOT VALID-TXN-CDE ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID TRAN CODE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE FROM-ACCT-TYP OF SEG27 TO WS-ACCT-TYP IF ( FROM-ACCT-TYP OF SEG27 = SPACES AND ( ACCT OF SEG27 NOT = SPACES OR TRAN-CDE OF SEG27 NOT = SPACES OR TO-ACCT-TYP OF SEG27 NOT = SPACES ) ) OR ( FROM-ACCT-TYP OF SEG27 NOT = SPACES AND NOT VALID-ACCT-TYP ) ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID FROM ACCOUNT TYPE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE TO-ACCT-TYP OF SEG27 TO WS-ACCT-TYP IF ( TO-ACCT-TYP OF SEG27 = SPACES AND ( ACCT OF SEG27 NOT = SPACES OR TRAN-CDE OF SEG27 NOT = SPACES OR FROM-ACCT-TYP OF SEG27 NOT = SPACES ) ) OR ( TO-ACCT-TYP OF SEG27 NOT = SPACES AND NOT VALID-ACCT-TYP ) ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "INVALID TO ACCOUNT TYPE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF RCPT-OPT OF SEG27 NOT = "N" AND RCPT-OPT OF SEG27 NOT = "Y" ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "RECEIPT OPTION MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF AMT OF SEG27 = SPACES ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "AMOUNT CANNOT BE SPACES" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF PRFL-UPDT-IND OF SEG27 NOT = "N" AND PRFL-UPDT-IND OF SEG27 NOT = "Y" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PROFILE UPDATE INDICATOR MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ADA-IND OF SEG27 NOT = "N" AND ADA-IND OF SEG27 NOT = "Y" ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "ADA INDICATOR MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01069N02 510-RCD-ADD IF NO-ERROR IF BYTE-MAP-R(28) = 0 AND WS-FIID-PROD-IND(28) = 1 MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG-LGTH OF SEG27 OF CAF MOVE SEG-PFRD-TXN-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG27 OF CAF ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG27 OF CAF, PTR-ARRAY, SEG-PFRD-TXN-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE "27" TO ADD-SEG-NUM MOVE ADD-SEG-ERR TO WS-ERR-TXT. IF NO-ERROR IF WS-FIID-PROD-IND(28) = "0" PERFORM 940-CLEAR-PFRD-TXN-VALUES. #ADD 01099 600-READ-NEXT-RCD PERFORM 911-READ-CAFD #ADD 01113g0A 600-READ-NEXT-RCD PERFORM 99-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "F" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF CAF TO FIID OF CRD-KEY MOVE PAN OF CAF TO PAN OF CRD-KEY MOVE MBR-NUM OF CAF TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT #ADD 01463 905-CLOSE-FILES PERFORM 914-CLOSE-MULT-CAFDS. #ADD 01466L0G 907-OPEN-MULT-FILES MOVE F-NAME(J) TO F-NAME-CHAR #DELETE 01499 907-DETERMINE-EXPAND-ACCESS #ADD 01506 907-GET-FILE-SYSTEM-NAME 907-OPEN-MULT-CAFDS. MOVE "N" TO CAFD-ERROR-FLAG. MOVE SPACES TO DEFAULT-NAMES. ENTER TAL "FNAMEEXPAND" USING F-NAME(J), F-NAME-I(J), DEFAULT-NAMES. ENTER "COBOLASSIGN" OF COBOLLIB USING CAFD-FILE, F-NAME(J) GIVING WS-GUAR-ERR. ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, F-NAME-I(J). IF WS-GUAR-ERR = 0 OPEN INPUT CAFD-FILE SHARED IF FILE-STAT = "00" MOVE F-NAME(J) TO F-NAME-CHAR PERFORM 907-DETERMINE-EXPAND-ACCESS ENTER TAL "COBOLFILEINFO" OF COBOLLIB USING CAFD-FILE, WS-GUAR-ERR, F-NAME-I(J), F-NUM(J) ELSE MOVE "Y" TO CAFD-ERROR-FLAG ELSE MOVE "Y" TO CAFD-ERROR-FLAG. #ADD 01601L02 909-TABL-MAINT IF NO-ERROR AND CAFD-NAME OF IDF NOT = SPACES COMPUTE J = J + 1 MOVE CAFD-NAME OF IDF TO F-NAME(J) PERFORM 907-OPEN-MULT-CAFDS END-IF #ADD 01632T00 909-TABL-MAINT IF CAFD-NAME OF IDF NOT = SPACES PERFORM 914-CLOSE-MULT-CAFDS END-IF #ADD 01632L07 909-TABL-MAINT IF NO-ERROR AND CAFD-NAME OF IDF NOT = SPACES COMPUTE J = J + 1 MOVE CAFD-NAME OF IDF TO F-NAME(J) PERFORM 907-OPEN-MULT-CAFDS END-IF #ADD 01668Y0R 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "AFT-PAN-DIGITS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO LCONF-PARAM-AFT-PAN-DIGITS IF LCONF-PARAM-AFT-PAN-DIGITS IS NOT NUMERIC MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS MOVE 0 TO FILE-STAT-ELEMENT MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF #ADD 01716 911-FIID-CHECK 911-READ-CAFD. IF NO-ERROR IF CAFD-NO-ERROR MOVE PRIKEY OF CAF TO PRIKEY OF CAFD MOVE ZEROES TO FILE-STAT START CAFD-FILE KEY = PRIKEY OF CAFD IF FILE-STAT = "00" READ CAFD-FILE END-IF END-IF IF FILE-STAT NOT = "00" OR NOT CAFD-NO-ERROR MOVE ZEROES TO CAFD MOVE ZEROES TO BAD-PIN-TRIES OF CAFD, ATC OF CAFD, LT-TIMESTAMP OF LAST-TRAN OF CAFD(1), LT-TIMESTAMP OF LAST-TRAN OF CAFD(2), LT-TIMESTAMP OF LAST-TRAN OF CAFD(3), NONSTOP-ID OF LAST-TRAN OF CAFD, PRO-NUM OF LAST-TRAN OF CAFD, EMV-ATC OF CAFD, CAP-ATC OF CAP-DATA OF CAFD, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF CAFD, ATC-2 OF SCND-CRD-DATA OF CAFD, EMV-ATC-2 OF SCND-CRD-DATA OF CAFD, CAP-ATC OF CAP-DATA-2 OF SCND-CRD-DATA OF CAFD, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SCND-CRD-DATA OF CAFD. #ADD 01722T00 911-FIID-CHECK MOVE 88 TO ERR-CDE OF MSG-ERR-EXT PERFORM 99-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE PERFORM 1000-CALL-AUDIT. #DELETE 01722T01 911-FIID-CHECK #ADD 01753e0I 911-RCD-RETRIEVE IF NO-ERROR IF BYTE-MAP-R(28) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-PFRD-TXN-C, SEG27 OF CAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE 27 TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT PERFORM 100-CAF-ERROR-TEXT-FILL ELSE NEXT SENTENCE ELSE PERFORM 940-CLEAR-PFRD-TXN-VALUES. #ADD 01790Q09 912-RCD-REPLACE IF NO-ERROR IF BYTE-MAP-R(28) = "1" OR WS-FIID-PROD-IND(28) = "1" MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG-LGTH OF SEG27 OF CAF MOVE SEG-PFRD-TXN-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG27 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27 OF CAF IF PFRD-TXN-SEG-LGTH NOT = 0 ENTER TAL "REPLACE^SEG^IN^REC^EXT" OF TALLIB USING SEG27 OF CAF, PTR-ARRAY, SEG-PFRD-TXN-C, BYTE-MAP, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "27" TO RCD-REPL-SEG-NUM PERFORM 912-RCD-REPLACE-ERROR. IF NO-ERROR IF WS-FIID-PROD-IND(28) = "0" PERFORM 940-CLEAR-PFRD-TXN-VALUES. #ADD 01814 915-FETCH-TIME-STAMP 914-CLOSE-MULT-CAFDS. IF VALID-FILE-INDICATOR ENTER TAL "CLOSE" USING F-NUM(J). #ADD 01955e0A 927-RCD-WRITE MOVE PFRD-TXN-SEG-LGTH TO LGTH OF SEG-LGTH OF SEG27 OF CAF. MOVE SEG-PFRD-TXN-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG27 OF CAF. MOVE B24-RSRVD-C TO B24-RSRVD OF SEG27 OF CAF. #ADD 01987L2Y 960-FILL-LAST-FM 940-CLEAR-PFRD-TXN-VALUES. MOVE SPACES TO ACCT OF SEG27 OF CAF, TRAN-CDE OF SEG27 OF CAF, FROM-ACCT-TYP OF SEG27 OF CAF, TO-ACCT-TYP OF SEG27 OF CAF, MRKT-SEG-IND OF SEG27 OF CAF MOVE ZEROS TO AMT OF SEG27 OF CAF LGTH OF SEG-LGTH OF SEG27 OF CAF MOVE "N" TO RCPT-OPT OF SEG27 OF CAF, ADA-IND OF SEG27 OF CAF MOVE "Y" TO PRFL-UPDT-IND OF SEG27 OF CAF. #ENDSCN = BA0B389 !#CMP2.28 11/12/07 RQNEGS 6017 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQNEGS RQNEGS 6017 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQNEGS RQNEGS 6017 * ******************************************************************************** #SCN = BA0B390 , FILEID = RQNEGS #VOLUME = $ROOK.BA60AFT #FILE = RQNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6017 #NEWVERSION = 6018 #ADD 00023Q0J * 12OCT2007 DwivedS * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Masking of sensitive information is supported in * accordance to PCI data security standards. This * is based on MASKING-FLG value in DDLGSEC. The * data elements defined as 'sensitive information' * on the Base24 screens are PAN, Card's Expiration * Date and Cardholder's Name. If the PAN is * configured for masking for the user, then the * other sensitive data will be masked completely. * Modified Procs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to RQNEGS and run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access * to sensitive information. * Added Paragraphs: * 100-BEGIN * 199-EXIT * 200-GET-DATA * 200-ACCEPT-SCREEN * 200-ACCEPT-SCREEN-BASE * 200-ACCEPT-SCREEN-OVERLAY-1 * 200-ACCEPT-SCREEN-OVERLAY-2 * 200-ACCEPT-SCREEN-OVERLAY-3 * 200-ACCEPT-SCREEN-OVERLAY-4 * 200-ACCEPT-SCREEN-OVERLAY-5 * 200-ACCEPT-SCREEN-OVERLAY-48 * 240-FETCH-RECORD * 245-FETCH-RECORD * 250-ADD-RECORD * 250-ADD-RECORD * 260-DELETE-RECORD * 265-DELETE-RECORD * 270-UPDATE-RECORD * 275-UPDATE-RECORD * 280-READ-NEXT-RECORD * 285-READ-NEXT * 290-CHANGE-LOGICAL-NET * 300-VALIDATE-DATA * 401-FILE-ACCESS-ERROR * 800-GO-TO-SCREEN-NEG * 800-VALID-SCREEN-NEG * 820-SECURITY-VIOLATION-NEG * Dependency: Apply fix to RQNEGS and run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #ADD 00056N02 DATA DIVISION 05 WS-UNMASK-PAN PIC X(28). 05 WS-MASK-PAN PIC X(28). #ADD 00102K00 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00102K01 DATA DIVISION 05 LEFTOVER PIC X(645). #ADD 00103 DATA DIVISION COPY PAN-MASK-GLOBALS OF =BASRC_BACOUTLS. #ADD 00125Q00 DATA DIVISION PROCEDURE DIVISION USING USER-CONTEXT-EXT. DECLARATIVES. S-R SECTION. USE FOR SCREEN RECOVERY. RECOV-1. MOVE "SCREEN RECOVERY" TO WS-MESSAGE-TEXT. MOVE SPACES TO WS-ERROR-NUM. DISPLAY SC-MESSAGE-TEXT, SC-ERROR-NUM. END DECLARATIVES. MAIN SECTION. 100-BEGIN. MOVE 1 TO WS-PAGE-NUMBER, WS-PAGE-OF. MOVE "NO" TO VALID-DATA. MOVE SPACES TO WS-INFORMATION-LINE. MOVE " F12-HELP " TO WS-VARIABLE-INSTRUCTIONS. * * SPACE THESE OUT WHEN ENTERING A NEW REQUESTER AND * THE OPERATOR WILL INDICATE WHAT HE/SHE WANTS TO DO BY ENTERING * APPROPRIATE VALUES IN ONE OR MORE OF THE 3 FOLLOWING FIELDS. * MOVE SPACES TO NEW-LNET OF USER-CONTEXT-EXT. MOVE SPACES TO NEW-PROG-SUFFIX OF USER-CONTEXT-EXT. MOVE ZEROES TO NEW-PAGE-NUMBER. PERFORM 990-SET-TIME. PERFORM 595-SCREEN-INIT. PERFORM 200-GET-DATA THRU 200-GET-DATA-EXIT UNTIL VALID-DATA = "QUIT" OR VALID-DATA = "EXIT". 199-EXIT. EXIT PROGRAM. 200-GET-DATA. MOVE SPACES TO WS-ERROR-NUM. MOVE SPACES TO WS-MESSAGE-TEXT, ERR-TXT. MOVE ZEROES TO NEW-PAGE-NUMBER. MOVE "YES" TO VALID-DATA. PERFORM 200-ACCEPT-SCREEN. PERFORM ONE OF 300-VALIDATE-DATA , 900-PRINT-SCREEN , 240-FETCH-RECORD , 250-ADD-RECORD , 260-DELETE-RECORD , 270-UPDATE-RECORD , 280-READ-NEXT-RECORD , 800-GO-TO-SCREEN-NEG , 895-CLEAR-DATA , 800-NEXT-VALID-OVERLAY , 800-PAGE-BACK , 580-KEYS-DISPLAYED , 295-CHANGE-LOGICAL-NET , 800-EXIT , 990-INVALID-MENU-KEY , 800-QUIT , DEPENDING ON TERMINATION-STATUS. 200-GET-DATA-EXIT. EXIT. / 200-ACCEPT-SCREEN. IF WS-OVERLAY = 1 PERFORM 200-ACCEPT-SCREEN-OVERLAY-1 ELSE IF WS-OVERLAY = 2 PERFORM 200-ACCEPT-SCREEN-OVERLAY-2 ELSE IF WS-OVERLAY = 3 PERFORM 200-ACCEPT-SCREEN-OVERLAY-3 ELSE IF WS-OVERLAY = 4 PERFORM 200-ACCEPT-SCREEN-OVERLAY-4 ELSE IF WS-OVERLAY = 5 PERFORM 200-ACCEPT-SCREEN-OVERLAY-5 ELSE IF WS-OVERLAY = 48 PERFORM 200-ACCEPT-SCREEN-OVERLAY-48 ELSE PERFORM 200-ACCEPT-BASE. 200-ACCEPT-BASE. ACCEPT SC-MAIN UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-1. ACCEPT SC-MAIN, OVERLAY-1 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-2. ACCEPT SC-MAIN, OVERLAY-2 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-3. ACCEPT SC-MAIN, OVERLAY-3 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-4. ACCEPT SC-MAIN, OVERLAY-4 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-5. ACCEPT SC-MAIN, OVERLAY-5 UNTIL ENTER-KEY, PRINT-KEY, FKEY2, FKEY3, FKEY4, FKEY5, FKEY6, FKEY7, CLEAR-KEY, FKEY9, FKEY11, FKEY12, FKEY13, EXIT-KEY, ESCAPE (FKEY14 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). 200-ACCEPT-SCREEN-OVERLAY-48. ACCEPT SC-MAIN, OVERLAY-48 UNTIL (ENTER-KEY, FKEY2 THRU FKEY9, FKEY11 THRU FKEY15, SFKEY1 THRU SFKEY8, SFKEY15), PRINT-KEY, EXIT-KEY, ESCAPE (LOGOFF-KEY, TIMEOUT LOGOFF-INTERVAL OF USER-CONTEXT-EXT). / * * FETCH RECORD * 240-FETCH-RECORD. IF WS-OVERLAY > 0 AND R-ACCESS OF USER-CONTEXT-EXT(WS-OVERLAY) = "Y" PERFORM 245-FETCH-RECORD ELSE IF WS-OVERLAY = 0 AND R-ACCESS OF USER-CONTEXT-EXT(1) = "Y" PERFORM 245-FETCH-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-NEG. 245-FETCH-RECORD. MOVE "NO" TO VALID-DATA. PERFORM 800-INITIALIZE-MESSAGE. PERFORM 440-SET-UP-FETCH. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST. IF ERR-CDE = 0 MOVE "YES" TO VALID-DATA PERFORM 400-MOVE-RECORD PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD. PERFORM 990-DISPLAY-RESPONSE. / * * ADD RECORD * 250-ADD-RECORD. IF WS-OVERLAY > 0 AND A-ACCESS OF USER-CONTEXT-EXT(WS-OVERLAY) = "Y" PERFORM 255-ADD-RECORD ELSE IF WS-OVERLAY = 0 AND A-ACCESS OF USER-CONTEXT-EXT(1) = "Y" PERFORM 255-ADD-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-NEG. 255-ADD-RECORD. PERFORM 400-VALIDATE-DATA. PERFORM 800-INITIALIZE-MESSAGE. PERFORM 450-SET-UP-ADD. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST. IF ERR-CDE = 0 PERFORM 400-MOVE-RECORD PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD. PERFORM 990-DISPLAY-RESPONSE. / * * DELETE RECORD * 260-DELETE-RECORD. IF WS-OVERLAY > 0 AND D-ACCESS OF USER-CONTEXT-EXT(WS-OVERLAY) = "Y" PERFORM 265-DELETE-RECORD ELSE IF WS-OVERLAY = 0 AND D-ACCESS OF USER-CONTEXT-EXT(1) = "Y" PERFORM 265-DELETE-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-NEG. 265-DELETE-RECORD. PERFORM 400-VALIDATE-DATA. PERFORM 800-INITIALIZE-MESSAGE. PERFORM 460-SET-UP-DELETE. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST. PERFORM 990-DISPLAY-RESPONSE. / * * UPDATE RECORD * 270-UPDATE-RECORD. IF WS-OVERLAY > 0 AND U-ACCESS OF USER-CONTEXT-EXT(WS-OVERLAY) = "Y" PERFORM 275-UPDATE-RECORD ELSE IF WS-OVERLAY = 0 AND U-ACCESS OF USER-CONTEXT-EXT(1) = "Y" PERFORM 275-UPDATE-RECORD ELSE PERFORM 820-SECURITY-VIOLATION-NEG. 275-UPDATE-RECORD. PERFORM 400-VALIDATE-DATA. PERFORM 800-INITIALIZE-MESSAGE. PERFORM 470-SET-UP-UPDATE. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST. IF ERR-CDE = 0 PERFORM 400-MOVE-RECORD PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD. PERFORM 990-DISPLAY-RESPONSE. / * * READ NEXT RECORD * 280-READ-NEXT-RECORD. IF WS-OVERLAY > 0 AND R-ACCESS OF USER-CONTEXT-EXT(WS-OVERLAY) = "Y" PERFORM 285-READ-NEXT ELSE IF WS-OVERLAY = 0 AND R-ACCESS OF USER-CONTEXT-EXT(1) = "Y" PERFORM 285-READ-NEXT ELSE PERFORM 820-SECURITY-VIOLATION-NEG. 285-READ-NEXT. MOVE "NO" TO VALID-DATA. PERFORM 800-INITIALIZE-MESSAGE. PERFORM 445-SET-UP-READ-NEXT. IF VALID-DATA NOT = "BAD" PERFORM 800-SEND-REQUEST. IF ERR-CDE = 0 MOVE "YES" TO VALID-DATA PERFORM 400-MOVE-RECORD IF ERR-CDE = 0 PERFORM 990-DISPLAY-FM-INFO PERFORM 990-DISPLAY-RECORD. PERFORM 990-DISPLAY-RESPONSE. / * * CHANGE-LOGICAL-NET * 295-CHANGE-LOGICAL-NET. * * MOVE "EXIT" TO VALID-DATA TO GET OUT OF THIS REQUESTER. THE * OPERATOR WILL HAVE TYPED SOMETHING IN THE NEW LOGICAL NET * FIELD. * IF NEW-LNET OF USER-CONTEXT-EXT = SPACES MOVE "TO CHANGE LNETS FILL IN NEW LNET FIELD" TO WS-MESSAGE-TEXT MOVE "BAD" TO VALID-DATA MOVE "0011" TO WS-ERROR-NUM PERFORM 990-DISPLAY-MESSAGE ELSE MOVE "EXIT" TO VALID-DATA. / 300-VALIDATE-DATA. * * CHECK THE REQUEST FURTHER IF DESIRED * PERFORM 400-VALIDATE-DATA. PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT ELSE MOVE "DATA O.K." TO WS-MESSAGE-TEXT MOVE SPACES TO WS-ERROR-NUM PERFORM 990-DISPLAY-MESSAGE. COPY G100-CALC-PAN-LGTH OF =BASRC_BACOUTLS. COPY G110-MASK-PAN OF =BASRC_BACOUTLS. #DELETE 00125Q01/00125Q02 DATA DIVISION #ADD 00137 400-MOVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE MAX-LEFT-UNMASKED OF AFT-PAN-DIGITS TO WS-MAX-LEFT-UNMASKED MOVE MIN-MASKED OF AFT-PAN-DIGITS TO WS-MIN-MASKED MOVE RIGHT-UNMASKED OF AFT-PAN-DIGITS TO WS-RIGHT-UNMASKED MOVE WS-CRD-NUM TO WS-UNMASK-PAN MOVE WS-CRD-NUM TO WS-PAN OF WS-PAN-MASK PERFORM G100-PAN-LGTH-CALC IF WS-PAN-LGTH > 0 AND < 20 PERFORM G110-PAN-MASK MOVE WS-PAN OF WS-PAN-MASK TO WS-CRD-NUM MOVE WS-CRD-NUM TO WS-MASK-PAN. #ADD 00149 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-PAN = WS-CRD-NUM MOVE WS-UNMASK-PAN TO PAN-IMAGE ELSE MOVE SPACES TO WS-MASK-PAN MOVE SPACES TO WS-UNMASK-PAN. #ADD 00160Q0A 400-SAVE-RECORD MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-1024-EXT. #ADD 00220 402-NO-ACCESS 401-FILE-ACCESS-ERROR. MOVE WS-FIID TO FIID OF UFIR. MOVE ALIAS OF USER-CONTEXT-EXT TO ALIAS OF UFIR. MOVE SPACES TO REGN OF UFIR, BRCH OF UFIR. MOVE "C" TO FRMT-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE "1" TO OMF-AUDIT OF MSG-FILE-MAINT-1024-EXT. MOVE 23 TO TRAN-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE LNET OF USER-CONTEXT-EXT TO LN OF MSG-FILE-MAINT-1024-EXT. MOVE LCONF-NAME OF USER-CONTEXT-EXT TO LCONF-NAME OF MSG-FILE-MAINT-1024-EXT. MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE LOGICAL-TERMINAL-NAME TO TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE UFIR TO REC-IMAGE. MOVE "SEC" TO SERVER-SUFFIX. MOVE " " TO INFO-ERR-FLAG. SEND MSG-FILE-MAINT-1024-EXT TO WS-SERVER REPLY CODE 0 YIELDS MSG-FILE-MAINT-1024-EXT. #ADD 00268 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-PAN = WS-CRD-NUM MOVE WS-UNMASK-PAN TO WS-CRD-NUM. #ADD 00287 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-UNMASK-PAN = WS-CRD-NUM MOVE WS-MASK-PAN TO WS-CRD-NUM. #ADD 00462C03 595-CLEAR-DATA MOVE SPACES TO WS-MASK-PAN. MOVE SPACES TO WS-UNMASK-PAN. #ADD 00488 595-SCREEN-INIT 800-GO-TO-SCREEN-NEG. MOVE WS-OVERLAY TO SAVE-OVERLAY. MOVE "NO" TO VALID-DATA. IF INIT-FLAG NOT = 1 PERFORM 480-DATA-CHECK. IF VALID-DATA = "BAD" PERFORM 990-DISPLAY-RESPONSE MOVE "YES" TO VALID-DATA MOVE SPACES TO ERR-TXT OF MSG-FILE-MAINT-1024-EXT ELSE PERFORM 800-VALID-SCREEN-NEG PERFORM 995-SET-PROD PERFORM 570-DISPLAY-OVERLAY. IF VALID-DATA NOT = "EXIT" AND "QUIT" PERFORM 990-DISPLAY-MESSAGE. 800-VALID-SCREEN-NEG. MOVE NEW-PAGE-NUMBER TO CHECK-VALID-OVERLAY. IF VALID-OVERLAY IF NEW-PAGE-NUMBER > 0 AND ( R-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR A-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" OR D-ACCESS OF USER-CONTEXT-EXT(NEW-PAGE-NUMBER) = "Y" ) MOVE NEW-PAGE-NUMBER TO WS-OVERLAY MOVE SPACES TO WS-MESSAGE-TEXT, WS-ERROR-NUM ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "ACCESS TO REQUESTED SCREEN IS NOT ALLOWED. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM PERFORM 401-FILE-ACCESS-ERROR ELSE MOVE SAVE-OVERLAY TO WS-OVERLAY MOVE "REQUESTED SCREEN IS NOT A VALID SCREEN. - "SCREEN NUMBER:" TO WS-MESSAGE-TEXT MOVE NEW-PAGE-NUMBER TO WS-ERROR-NUM. 820-SECURITY-VIOLATION-NEG. MOVE "ACCESS TO FUNCTION NOT ALLOWED" TO WS-MESSAGE-TEXT. MOVE "550" TO WS-ERROR-NUM. PERFORM 990-DISPLAY-MESSAGE. PERFORM 401-FILE-ACCESS-ERROR. #ENDSCN = BA0B390 !#CMP2.28 11/23/07 SVNEGS 6008 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVNEGS SVNEGS 6008 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVNEGS SVNEGS 6008 * ******************************************************************************** #SCN = BA0B391 , FILEID = SVNEGS #VOLUME = $ROOK.BA60AFT #FILE = SVNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6008 #NEWVERSION = 6009 #ADD 00013H1K * 12OCT2007 DwivedS * Symptom: PCI - Masking on Pathway * Problem: None. * Fix: Added support for the masking of sensitive * information in accordance to PCI data security * standards. Masking of PAN is based on the LCONF * parameter AFT-PAN-DIGITS which contain a 3-digit * numeric value. * Digit 1 - The maximum number of leftmost digits * to be displayed unmasked. Default value * is 0 * Digit 2 - The minimum number of digits to be * masked. Default value is 9 * Digit 3 - The number of rightmost digits to be * displayed unmasked. Default value is 4 * Modified procs: * 200-READ-RCD * 310-UPDATE-REC * 500-ADD-RCD * 600-READ-NEXT-RCD * 909-RETRIEVE-LCONF-ASSIGNS * Added Proc: * 205-DO-MOVES-TO-REC-IMAGE * Dependency: Apply fixes to SVNEGS and run Make. * Refer to BA60UD0B.SCNMASK for a complete listing * of dependencies. * Reference: WO #061122-03 * 12OCT2007 KrishnG * Symptom: PCI - Audit Enhancement. * Problem: None. * Fix: Added logic to support auditing of user access to * sensitive information. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * 911-FIID-CHECK * Dependency: Apply fix to SVNEGS and run Make. * Refer to BA60UD0B.SCNAUDT for a complete listing * of dependencies. * Reference: WO #070423-02 #ADD 00304H00 DATA DIVISION 05 AFT-PAN-DIGITS. 07 MAX-LEFT-UNMASKED PIC X. 07 MIN-MASKED PIC X. 07 RIGHT-UNMASKED PIC X. #REPLACE 00304H01 DATA DIVISION 05 LEFTOVER PIC X(645). #ADD 00309H04 DATA DIVISION COPY CRD-KEY OF "=BASRC_BADDLCOB". #ADD 00454 DATA DIVISION 01 LCONF-PARAM-AFT-PAN-DIGITS. 05 LCONF-MAX-LEFT-UNMASKED PIC X. 05 LCONF-MIN-MASKED PIC X. 05 LCONF-RIGHT-UNMASKED PIC X. #ADD 00689 200-READ-RCD PERFORM 205-DO-MOVES-TO-REC-IMAGE PERFORM 60-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "E" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF NEG TO FIID OF CRD-KEY MOVE PAN OF NEG TO PAN OF CRD-KEY MOVE MBR-NUM OF NEG TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT #ADD 00718 204-CONVERT-NUM-TO-28 205-DO-MOVES-TO-REC-IMAGE. IF MASKING-FLG OF MSG-FILE-MAINT-1024-EXT = "Y" MOVE LCONF-PARAM-AFT-PAN-DIGITS TO AFT-PAN-DIGITS. #ADD 00723H1L 310-UPDATE-REC PERFORM 205-DO-MOVES-TO-REC-IMAGE #ADD 00932 500-ADD-RCD PERFORM 205-DO-MOVES-TO-REC-IMAGE. #ADD 00961A0G 600-READ-NEXT-RCD MOVE WS-LAST-FM TO LAST-FM OF MESSAGE-IO PERFORM 205-DO-MOVES-TO-REC-IMAGE PERFORM 60-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "F" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF NEG TO FIID OF CRD-KEY MOVE PAN OF NEG TO PAN OF CRD-KEY MOVE MBR-NUM OF NEG TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT. #DELETE 00961A0H 600-READ-NEXT-RCD #ADD 01260 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "AFT-PAN-DIGITS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO LCONF-PARAM-AFT-PAN-DIGITS IF LCONF-PARAM-AFT-PAN-DIGITS IS NOT NUMERIC MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS MOVE ZEROES TO FILE-STAT-ELEMENT, WS-GUAR-ERR END-IF ELSE MOVE "094" TO LCONF-PARAM-AFT-PAN-DIGITS END-IF #ADD 01313H00 911-FIID-CHECK MOVE 88 TO ERR-CDE OF MSG-ERR-EXT PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE PERFORM 1000-CALL-AUDIT. #DELETE 01313H01 911-FIID-CHECK #ENDSCN = BA0B391 !#CMP2.28 12/26/07 SVDCCDS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6000 * ******************************************************************************** #SCN = BA0C012 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00034 * 27DEC2007 eschlis * Symptom: Additional changes for ATM Dynamic Currency * Conversion. * Problem: None. * Fix: Made miscellaneous corrections to the DCCD * server. * Modified paragraphs: 801-VALIDATE-BIN-RANGE * 910-RCD-READING * 910-READ-PREV * Added paragraphs: 910-READ-PREV-1 through * 910-READ-PREV-5 * Dependency: Apply fixes to SVDCCDS and run make. Refer to * BA60UD0B.SCNDCC for a complete listing * of dependencies. * Reference: WO #061227-02, Case #451281 #ADD 01138 801-VALIDATE-BIN-RANGE PERFORM 908-DETERMINE-FILE VARYING J FROM 1 BY 1 UNTIL J > MAX-L-NETS. IF TABL-FULL IF T > 4 MOVE 0 TO T. PERFORM 909-TABL-MAINT. #ADD 01155 801-VALIDATE-BIN-RANGE ELSE IF REC-TYP OF PRIKEY OF DCCD NOT = "BC" MOVE "N" TO REC-FLAG #ADD 01162 801-VALIDATE-BIN-RANGE END-IF. * * IF the ending BIN is not less than the starting BIN and there * is no overlap with the next record, check for an overlap with * the previous record. * IF ERROR-FLAG NOT = "Y" MOVE RECORD-IMAGE-DCCD TO DCCD MOVE STRT-BIN OF BIN-CRNCY-KEY OF PRIKEY OF DCCD TO WS-STRT-BIN PERFORM 910-READ-PREV IF FILE-STAT-ELEMENT = 0 MOVE "Y" TO ERR-STRT-BIN MOVE "Y" TO ERROR-FLAG MOVE BIN-RANGE-ERR TO ERR-CDE OF MSG-ERR-EXT MOVE "STARTING BIN OVERLAPS PREVIOUS RECORD" TO WS-ERR-TXT. #DELETE 01163 801-VALIDATE-BIN-RANGE #REPLACE 01521 910-RCD-READING IF FILE-STAT-ELEMENT = 23 AND #ADD 01563 910-READ-PREV MOVE 0 TO FILE-STAT-ELEMENT. IF FILE-INDICATOR = 1 PERFORM 910-READ-PREV-1 ELSE IF FILE-INDICATOR = 2 PERFORM 910-READ-PREV-2 ELSE IF FILE-INDICATOR = 3 PERFORM 910-READ-PREV-3 ELSE IF FILE-INDICATOR = 4 PERFORM 910-READ-PREV-4 ELSE PERFORM 910-READ-PREV-5. 910-READ-PREV-1. MOVE DCCD TO REC-1. START FILE-1 KEY IS < PRIKEY OF REC-1 INVALID KEY MOVE 23 TO FILE-STAT-ELEMENT. IF FILE-STAT-ELEMENT = 0 READ FILE-1 REVERSED AT END MOVE 23 TO FILE-STAT-ELEMENT END-IF. IF NO-ERROR AND FILE-STAT-ELEMENT = 0 IF STRT-BIN OF BIN-CRNCY-KEY OF DCCD > END-BIN OF BIN-CRNCY-DATA OF REC-1 MOVE 23 TO FILE-STAT-ELEMENT END-IF END-IF. 910-READ-PREV-2. MOVE DCCD TO REC-2. START FILE-2 KEY IS < PRIKEY OF REC-2 INVALID KEY MOVE 23 TO FILE-STAT-ELEMENT. IF NO-ERROR AND FILE-STAT-ELEMENT = 0 READ FILE-2 REVERSED AT END MOVE 23 TO FILE-STAT-ELEMENT END-IF. IF NO-ERROR IF STRT-BIN OF BIN-CRNCY-KEY OF DCCD > END-BIN OF BIN-CRNCY-DATA OF REC-2 MOVE 23 TO FILE-STAT-ELEMENT END-IF END-IF. 910-READ-PREV-3. MOVE DCCD TO REC-3. START FILE-3 KEY IS < PRIKEY OF REC-3 INVALID KEY MOVE 23 TO FILE-STAT-ELEMENT. IF NO-ERROR AND FILE-STAT-ELEMENT = 0 READ FILE-3 REVERSED AT END MOVE 23 TO FILE-STAT-ELEMENT END-IF. IF NO-ERROR IF STRT-BIN OF BIN-CRNCY-KEY OF DCCD > END-BIN OF BIN-CRNCY-DATA OF REC-3 MOVE 23 TO FILE-STAT-ELEMENT END-IF END-IF. 910-READ-PREV-4. MOVE DCCD TO REC-4. START FILE-4 KEY IS < PRIKEY OF REC-4 INVALID KEY MOVE 23 TO FILE-STAT-ELEMENT. IF FILE-STAT-ELEMENT = 0 READ FILE-4 REVERSED AT END MOVE 23 TO FILE-STAT-ELEMENT END-IF. IF NO-ERROR AND FILE-STAT-ELEMENT = 0 IF STRT-BIN OF BIN-CRNCY-KEY OF DCCD > END-BIN OF BIN-CRNCY-DATA OF REC-4 MOVE 23 TO FILE-STAT-ELEMENT END-IF END-IF. 910-READ-PREV-5. MOVE DCCD TO REC-5. START FILE-5 KEY IS < PRIKEY OF REC-5 INVALID KEY MOVE 23 TO FILE-STAT-ELEMENT. IF FILE-STAT-ELEMENT = 0 READ FILE-5 REVERSED AT END MOVE 23 TO FILE-STAT-ELEMENT END-IF. IF NO-ERROR AND FILE-STAT-ELEMENT = 0 IF STRT-BIN OF BIN-CRNCY-KEY OF DCCD > END-BIN OF BIN-CRNCY-DATA OF REC-5 MOVE 23 TO FILE-STAT-ELEMENT END-IF END-IF. #DELETE 01564 /01639 911-CHK-NEXT #ENDSCN = BA0C012 !#CMP2.28 01/10/08 SVCAFS 6040 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6040 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6040 * ******************************************************************************** #SCN = BA0C024 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6040 #NEWVERSION = 6041 #ADD 00013n1u * 09JAN2008 KrishnG * Symptom: OMF records are written for the incorrect length * following an institution security error. * Problem: The REC-IMAGE-LEN in the OMF record is not set * correctly. * Fix: Added logic to set REC-IMAGE-LEN in the OMF record * to 0. * Modified Paragraphs: * 911-READ-CAF * Dependency: Apply fix to SVCAFS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451692 * 09JAN2008 KrishnG * Symptom: When doing a "read next", 50 OMF records are * written, even when the operator did not see any * of the CAF records. * Problem: In the Server, there is logic to read up to 50 * records when a "read next" request is received. * After each read, the FIID in the record is * compared to the FIID in the Requester/Server * message to ensure that the operator is allowed to * view the CAF record. If access is allowed, then * the record is displayed; otherwise, the next * record is read. Logic was added to paragraph * 911-FIID-CHECK to write an OMF record following * an institution security error, but this paragraph * is executed as part of the "loop" that reads up to * 50 records. Therefore, if an operator is not * permitted access to any of the 50 CAF records, * then 50 OMF records will be written. It has been * decided that it would be better to write a single * OMF record when the limit of 50 reads has been * reached. * Fix: Added logic to write an OMF record only on a * "read" request. Added logic to write only a * single OMF record when a record with a valid * FIID cannot be retrieved in 50 attempts in a * "read next" request. * Modified Paragraphs: * 600-READ-NEXT-RCD * 610-READ-CAF-LOOP * 911-FIID-CHECK * Dependency: Apply fix to SVCAFS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451896 #ADD 01117 600-READ-NEXT-RCD MOVE ZEROES TO COUNTER-OF-READ-NEXT. #ADD 01136 610-READ-CAF-LOOP MOVE 88 TO ERR-CDE OF MSG-ERR-EXT PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT #ADD 01722n01 911-FIID-CHECK IF COUNTER-OF-READ-NEXT = 0 PERFORM 99-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT. #DELETE 01722n02/01722n04 911-FIID-CHECK #ENDSCN = BA0C024 !#CMP2.28 01/10/08 SVNEGS 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVNEGS SVNEGS 6009 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVNEGS SVNEGS 6009 * ******************************************************************************** #SCN = BA0C025 , FILEID = SVNEGS #VOLUME = $ROOK.BA60AFT #FILE = SVNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00013I0g * 09JAN2008 KrishnG * Symptom: OMF records are written for the incorrect length * following an institution security error. * Problem: The REC-IMAGE-LEN in the OMF record is not set * correctly. * Fix: Added logic to set REC-IMAGE-LEN in the OMF record * to 0. * Modified Paragraphs: * 911-FIID-CHECK * Dependency: Apply fix to SVNEGS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451692 * 09JAN2008 KrishnG * Symptom: When doing a "read next", 50 OMF records are * written, even when the operator did not see any * of the NEG records. * Problem: In the Server, there is logic to read up to 50 * records when a "read next" request is received. * After each read, the FIID in the record is * compared to the FIID in the Requester/Server * message to ensure that the operator is allowed to * view the NEG record. If access is allowed, then * the record is displayed; otherwise, the next * record is read. Logic was added to paragraph * 911-FIID-CHECK to write an OMF record following * an institution security error, but this paragraph * is executed as part of the "loop" that reads up to * 50 records. Therefore, if an operator is not * permitted access to any of the 50 NEG records, * then 50 OMF records will be written. It has been * decided that it would be better to write a single * OMF record when the limit of 50 reads has been * reached. * Fix: Added logic to write an OMF record only on a * "read" request. Added logic to write only a * single OMF record when a record with a valid * FIID cannot be retrieved in 50 attempts in a * "read next" request. * Modified Paragraphs: * 610-READ-NEXT-RCD * 610-REPOSITION-FILE * 911-FIID-CHECK * Dependency: Apply fix to SVNEGS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451901 #ADD 00978 600-READ-NEXT-RCD MOVE ZEROES TO CTR-READ-NEXT. #ADD 00997 610-REPOSITION-FILE MOVE 88 TO ERR-CDE OF MSG-ERR-EXT PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT #ADD 01313I01 911-FIID-CHECK IF CTR-READ-NEXT = 0 PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT. #DELETE 01313I02/01313I04 911-FIID-CHECK #ENDSCN = BA0C025 !#CMP2.28 01/10/08 SVUAFS 6017 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVUAFS SVUAFS 6017 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVUAFS SVUAFS 6017 * ******************************************************************************** #SCN = BA0C026 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6017 #NEWVERSION = 6018 #ADD 00017Q0b * 09JAN2008 KrishnG * Symptom: OMF records are written for the incorrect length * following an institution security error. * Problem: The REC-IMAGE-LEN in the OMF record is not set * correctly. * Fix: Added logic to set REC-IMAGE-LEN in the OMF record * to 0. * Modified Paragraphs: * 911-FIID-CHECK * Dependency: Apply fix to SVUAFS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451692 * 09JAN2008 KrishnG * Symptom: When doing a "read next", 50 OMF records are * written, even when the operator did not see any * of the UAF records. * Problem: In the Server, there is logic to read up to 50 * records when a "read next" request is received. * After each read, the FIID in the record is * compared to the FIID in the Requester/Server * message to ensure that the operator is allowed to * view the UAF record. If access is allowed, then * the record is displayed; otherwise, the next * record is read. Logic was added to paragraph * 911-FIID-CHECK to write an OMF record following * an institution security error, but this paragraph * is executed as part of the "loop" that reads up to * 50 records. Therefore, if an operator is not * permitted access to any of the 50 UAF records, * then 50 OMF records will be written. It has been * decided that it would be better to write a single * OMF record when the limit of 50 reads has been * reached. * Fix: Added logic to write an OMF record only on a * "read" request. Added logic to write only a * single OMF record when a record with a valid * FIID cannot be retrieved in 50 attempts in a * "read next" request. * Modified Paragraphs: * 600-READ-NEXT-RCD. * 610-READ-UAF-LOOP * 911-FIID-CHECK * Dependency: Apply fix to SVUAFS and run Make. * Replace BA60UD0B.SCNAUDT. * Reference: Case #451897 #ADD 01284 600-READ-NEXT-RCD MOVE ZEROES TO CTR-READ-NEXT. #ADD 01302 610-READ-UAF-LOOP MOVE 88 TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT #ADD 01674Q01 911-FIID-CHECK IF CTR-READ-NEXT = 0 PERFORM 60-FETCH-PRESENT-TIME MOVE "I" TO WS-FM-TYPE MOVE 0 TO REC-IMAGE-LEN OF OMF PERFORM 1000-CALL-AUDIT. #DELETE 01674Q02/01674Q04 911-FIID-CHECK #ENDSCN = BA0C026 !#CMP2.28 01/24/08 RQDCCDS 6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQDCCDS RQDCCDS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQDCCDS RQDCCDS 6000 * ******************************************************************************** #SCN = BA0C031 , FILEID = RQDCCDS #VOLUME = $ROOK.BA60AFT #FILE = RQDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00036 * 24JAN2008 eschlis * Symptom: Customers require BIN data longer than six digits. * Problem: More of the card number than the first six digits * may be required to identify whether DCC is * supported for a card. * Fix: Expanded definitions and added logic to support * a starting BIN and ending BIN up to 12 digits. * Modified paragraph: 480-DATA-CHECK-BIN-CRNCY. * Dependency: Apply fixes to DDLFDCCD, SCRNDCCD, RQDCCDS, and * SVDCCDS. Replace BA60LOGM.ATAUTH and * BA60UD0B.SCNDCC. Run Make. * Reference: Case #452963. #REPLACE 00094 /00095 DATA DIVISION 10 WS-STRT-BIN PIC X(12). 10 WS-END-BIN PIC X(12). #ADD 00656 480-DATA-CHECK-BIN-CRNCY MOVE RECORD-IMAGE-DCCD TO DCCD. MOVE STRT-BIN OF BIN-CRNCY-KEY OF DCCD TO WS-STRT-BIN. MOVE END-BIN OF BIN-CRNCY-DATA OF DCCD TO WS-END-BIN. #ENDSCN = BA0C031 !#CMP2.28 01/24/08 SVDCCDS 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6001 * ******************************************************************************** #SCN = BA0C033 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00034A0G * 24JAN2008 eschlis * Symptom: Customers require BIN data longer than six digits. * Problem: More of the card number than the first six digits * may be required to identify whether DCC is * supported for a card. * Fix: Added logic to support a starting BIN and ending * BIN up to 12 digits. * Modified paragraphs: 801-VALIDATE-BIN-CRNCY-REC * 801-VALIDATE-BIN-RANGE * Added paragraphs: 801-FILL-BINS * 801-FILL-ONE-BIN * 801-CHK-BIN-CHAR * Dependency: Apply fixes to DDLFDCCD, SCRNDCCD, RQDCCDS, and * SVDCCDS. Replace BA60LOGM.ATAUTH and * BA60UD0B.SCNDCC. Run Make. * Reference: Case #452963. #REPLACE 00132 /00133 DATA DIVISION 15 STRT-BIN PIC X(12). 15 USER-FLD-STRT-BIN PIC X(10). #REPLACE 00141 DATA DIVISION 10 END-BIN PIC X(12). #REPLACE 00144 DATA DIVISION 10 USER-FLD-CRNCY-CDE PIC X(35). #REPLACE 00166 /00167 DATA DIVISION 15 STRT-BIN PIC X(12). 15 USER-FLD-STRT-BIN PIC X(10). #REPLACE 00175 DATA DIVISION 10 END-BIN PIC X(12). #REPLACE 00178 DATA DIVISION 10 USER-FLD-CRNCY-CDE PIC X(35). #REPLACE 00200 /00201 DATA DIVISION 15 STRT-BIN PIC X(12). 15 USER-FLD-STRT-BIN PIC X(10). #REPLACE 00209 DATA DIVISION 10 END-BIN PIC X(12). #REPLACE 00212 DATA DIVISION 10 USER-FLD-CRNCY-CDE PIC X(35). #REPLACE 00234 /00235 DATA DIVISION 15 STRT-BIN PIC X(12). 15 USER-FLD-STRT-BIN PIC X(10). #REPLACE 00243 DATA DIVISION 10 END-BIN PIC X(12). #REPLACE 00246 DATA DIVISION 10 USER-FLD-CRNCY-CDE PIC X(35). #REPLACE 00268 /00269 DATA DIVISION 15 STRT-BIN PIC X(12). 15 USER-FLD-STRT-BIN PIC X(10). #REPLACE 00277 DATA DIVISION 10 END-BIN PIC X(12). #REPLACE 00280 DATA DIVISION 10 USER-FLD-CRNCY-CDE PIC X(35). #ADD 00361 DATA DIVISION 01 END-BIN-ERR PIC S9(4) COMP VALUE 1. #REPLACE 00380 DATA DIVISION 01 WS-END-BIN PIC X(12). #REPLACE 00382 /00382 OFFSET 0 DATA DIVISION 01 WS-STRT-BIN PIC X(12). 01 WS-BIN PIC X(12). 01 WS-BINX REDEFINES WS-BIN. 05 WS-BIN-CHAR PIC X OCCURS 12 TIMES. 01 WS-BIN-LGTH PIC S9(4) COMP VALUE 12. 01 WS-BIN-OK PIC X. 01 WS-BIN-FILL-DIGIT PIC 9. 01 WS-SPACE-FOUND PIC X. #ADD 00978 801-VALIDATE-BIN-CRNCY-REC PERFORM 801-FILL-BINS. IF ERR-STRT-BIN NOT = "Y" AND ERR-END-BIN NOT = "Y" PERFORM 801-VALIDATE-BIN-RANGE. #DELETE 00979 801-VALIDATE-BIN-CRNCY-REC #ADD 01164 801-VALIDATE-BIN-RANGE 801-FILL-BINS. * * This paragraph will left-justify the starting and ending * BINs in the BIN currency record and fill them with zeroes * or 9's as appropriate to match all cards beginning with the * specified digits. For example, if the user enters both a * starting BIN and an ending BIN of 400000, the paragraph * will set the starting to 400000000000 and the ending BIN * to 400000999999. * MOVE STRT-BIN OF BIN-CRNCY-KEY OF DCCD TO WS-BIN. MOVE "0" TO WS-BIN-FILL-DIGIT. PERFORM 801-FILL-ONE-BIN. IF WS-BIN-OK NOT = "Y" MOVE "Y" TO ERR-STRT-BIN MOVE "Y" TO ERROR-FLAG MOVE STRT-BIN-ERR TO ERR-CDE OF MSG-ERR-EXT MOVE "STARTING BIN MUST BE ALL NUMERIC, NO EMBEDDED SPACES" TO WS-ERR-TXT ELSE MOVE WS-BIN TO STRT-BIN OF BIN-CRNCY-KEY OF DCCD. MOVE END-BIN OF BIN-CRNCY-DATA OF DCCD TO WS-BIN. MOVE "9" TO WS-BIN-FILL-DIGIT. PERFORM 801-FILL-ONE-BIN IF WS-BIN-OK NOT = "Y" MOVE "Y" TO ERR-END-BIN IF ERROR-FLAG NOT = "Y" MOVE "Y" TO ERROR-FLAG MOVE END-BIN-ERR TO ERR-CDE OF MSG-ERR-EXT MOVE "ENDING BIN MUST BE ALL NUMERIC, NO EMBEDDED SPACES" TO WS-ERR-TXT. IF WS-BIN-OK = "Y" MOVE WS-BIN TO END-BIN OF BIN-CRNCY-DATA OF DCCD. IF ERR-STRT-BIN NOT = "Y" OR ERR-END-BIN NOT = "Y" MOVE DCCD TO RECORD-IMAGE-DCCD. 801-FILL-ONE-BIN. * * This paragraph left-justifies a single BIN and fills it with * the appropriate digit. * MOVE "Y" TO WS-BIN-OK. ENTER TAL "LEFT^JUSTIFY" OF UTILIB USING WS-BIN, WS-BIN-LGTH. * * Ensure that the user entered at least one non-space * character. * IF WS-BIN-CHAR( 1 ) = SPACE MOVE "N" TO WS-BIN-OK. * * Ensure that there are no embedded spaces or non-numeric * characters. * IF WS-BIN-OK = "Y" MOVE "N" TO WS-SPACE-FOUND PERFORM 801-CHK-BIN-CHAR VARYING I FROM 1 BY 1 UNTIL I > WS-BIN-LGTH. 801-CHK-BIN-CHAR. * * This paragraph checks a single character in the BIN to ensure * it is valid, and converts it to the fill character if * appropriate. * IF WS-BIN-CHAR( I ) = SPACE * * Set the flag to indicate that a space has been found. If any * subsequent nonspace character is found, we will know we have * an embedded space, which is not allowed. * MOVE "Y" TO WS-SPACE-FOUND * * Replace the space with the appropriate character. * MOVE WS-BIN-FILL-DIGIT TO WS-BIN-CHAR( I ) ELSE IF WS-BIN-CHAR( I ) NOT NUMERIC * * Non-space, non-numeric characters are not allowed under any * circumstances. * MOVE "N" TO WS-BIN-OK COMPUTE I = WS-BIN-LGTH + 1 ELSE IF WS-SPACE-FOUND = "Y" * * Numeric characters are not allowed after a space. * MOVE "N" TO WS-BIN-OK COMPUTE I = WS-BIN-LGTH + 1. #ENDSCN = BA0C033 !#CMP2.28 02/11/08 SVCAFS 6041 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6041 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6041 * ******************************************************************************** #SCN = BA0C052 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6041 #NEWVERSION = 6042 #ADD 00013o0l * 11FEB2008 FunteR * Symptom: When reading the CAF record, the last updated * time is set to zeros. * Problem: In the server, the ws-fm-type is replaced with "E" * when reading the dynamic CAF (CAFD) record. This * causes the last FM timestamp to be set to zeros in * in the base utility procedure that displays the * timestamp. * Fix: After reading the CAFD record and logging the read * with FM-TYPE = "E", restore the original CAF * record's FM-TYPE. * Modified Paragraphs: * 200-READ-RCD * Dependency: Apply fix to SVCAFS and run Make. * Reference: Case #455058 #ADD 00704n0C 200-READ-RCD MOVE UPDT-TYP OF CAF TO WS-FM-TYPE #ENDSCN = BA0C052 !#CMP2.28 03/10/08 SVCAFS 6042 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6042 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6042 * ******************************************************************************** #SCN = BA0C078 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6042 #NEWVERSION = 6043 #ADD 00013p0G * 07MAR2008 FuhsC * Symptom: When reading the CAF record, the "RECORD LAST * CHANGED:" shows the current date and time. And on * a read next, zeros are displayed. * Problem: Field WS-FM-DATE is set to the last update date * and time. A recent enhancement that logs every * access is overwriting this value. * Fix: Saved the value of WS-FM-DATE before the call to * 99-FETCH-PRESENT, and restored the value after the * call to 1000-CALL-AUDIT. Also implemented the * previous fix that restored the correct FM-TYPE on * a read, for a read next. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * Dependency: Apply fix to SVCAFS and run Make. * Reference: Case #458232 #REPLACE 00328 DATA DIVISION 01 WS-FM-DATE-SAVE PIC X(16). #REPLACE 00704n00 200-READ-RCD MOVE WS-FM-DATE TO WS-FM-DATE-SAVE #REPLACE 00704p00 200-READ-RCD MOVE WS-FM-DATE-SAVE TO WS-FM-DATE #REPLACE 01113n00 600-READ-NEXT-RCD MOVE WS-FM-DATE TO WS-FM-DATE-SAVE #REPLACE 01113n0E/01113f03 600-READ-NEXT-RCD MOVE WS-FM-DATE-SAVE TO WS-FM-DATE MOVE UPDT-TYP OF CAF TO WS-FM-TYPE #ENDSCN = BA0C078 !#CMP2.28 03/27/08 RQMEGAM 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAM RQMEGAM 6002 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAM RQMEGAM 6002 * ******************************************************************************** #SCN = BA0C087 , FILEID = RQMEGAM #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6002 #NEWVERSION = 6003 #ADD 0064A0U # 26MAR2008 RobinsB # Symptom: Following a user trying to access a file for which the # user does not have security clearance: # 1. subsequent logoff/logon activity is incorrectly being # logged in the OMF File Access Summary Report with Record # Type J instead of Record Type S. # 2. the File ID being logged in the OMF File Access # Summary Report incorrectly records the File ID against # which access had been attempted. # Problem: 1. the Record Type Working Storage field was not # re-initalized on a Logoff transaction. # 2. the Application Code of the file name against which # access was being attempted was not being passed to # security server SVISEC. # Fix: 1. modified the code in the security server SVISEC to # re-initialize the Record Type Working Storage field. # 2. added two copy statements and one numeric field to # Working Storage, and code, to RQMEGAS, to pass the # Application Code of the file against which file access # had been attempted, to the security server SVISEC. # Also modified BA60RPT.OMFTBL to eliminate ambiguous # references on compilation. # Added dependency on the OMFTBL to RQMEGAM. # Modified paragraph: 315-CALL-SEC-FOR-ACCESS # Added paragraph: 315-LOCATE-OMF-APPL-CDE # Dependency: Apply fix to RQMEGAS, RQMEGAM, SVISECS and OMFTBL. # Run Make. # Reference: Case #457861 #ADD 0090 $(barpt_omftbl) \ #ENDSCN = BA0C087 !#CMP2.28 03/27/08 RQMEGAS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6047 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6047 * ******************************************************************************** #SCN = BA0C088 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00020u0F * 26MAR2008 RobinsB * Symptom: Following a user trying to access a file for which * the user does not have security clearance: * 1. subsequent logoff/logon activity is incorrectly * being logged in the OMF File Access Summary Report * with Record Type J instead of Record Type S. * 2. the File ID being logged in the OMF File Access * Summary Report incorrectly records the File ID * against which access had been attempted. * Problem: 1. the Record Type Working Storage field was not * re-initalized on a Logoff transaction. * 2. the Application Code of the file name against * which access was being attempted was not being * passed to security server SVISEC. * Fix: 1. modified the code in the security server SVISEC * to re-initialize the Record Type Working Storage * field. * 2. added two copy statements and one numeric field * to Working Storage, and code, to RQMEGAS, to pass * the Application Code of the file against which * file against had been attempted, to the security * server SVISEC. * Also modified BA60RPT.OMFTBL to eliminate * ambiguous references on compilation. * Added dependency on the OMFTBL to RQMEGAM. * Modified paragraph: 315-CALL-SEC-FOR-ACCESS * Added paragraph: 315-LOCATE-OMF-APPL-CDE * Dependency: Apply fix to RQMEGAS, RQMEGAM, SVISECS and OMFTBL. * Run Make. * Reference: Case #457861 #ADD 00249e07 DATA DIVISION COPY OMF-APPL-CDE-TBL OF =BARPT_OMFTBL. COPY OMF-TABL-ENTRIES OF =BARPT_OMFTBL. 01 INDX PIC S9(4) COMP. #ADD 00970m0A 315-CALL-SEC-FOR-ACCESS PERFORM 315-LOCATE-OMF-APPL-CDE VARYING INDX FROM 1 BY 1 UNTIL INDX > OMF-MAX-TABL-ENTRIES. #DELETE 00970m0B 315-CALL-SEC-FOR-ACCESS #REPLACE 00986m0B/00986m0E 315-CALL-SEC-FOR-ACCESS 315-LOCATE-OMF-APPL-CDE. IF OMF-FILE-ID OF OMF-TABLE (INDX) = FILE-ID OF SEC MOVE OMF-APPL-CDE OF OMF-TABLE (INDX) TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT MOVE OMF-MAX-TABL-ENTRIES TO INDX ELSE IF INDX = OMF-MAX-TABL-ENTRIES MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. #ENDSCN = BA0C088 !#CMP2.28 03/27/08 SVISECS 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6032 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6032 * ******************************************************************************** #SCN = BA0C089 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 01101f0x * 26MAR2008 RobinsB * Symptom: Following a user trying to access a file for which * the user does not have security clearance: * 1. subsequent logoff/logon activity is incorrectly * being logged in the OMF File Access Summary Report * with Record Type J instead of Record Type S. * 2. the File ID being logged in the OMF File Access * Summary Report incorrectly records the File ID * against which access had been attempted. * Problem: 1. the Record Type Working Storage field was not * re-initalized on a Logoff transaction. * 2. the Application Code of the file name against * which access was being attempted was not being * passed to security server SVISEC. * Fix: 1. modified the code in the security server SVISEC * to re-initialize the Record Type Working Storage * field. * 2. added two copy statements and one numeric field * to Working Storage, and code, to RQMEGAS, to pass * the Application Code of the file against which * file against had been attempted, to the security * server SVISEC. * Also modified BA60RPT.OMFTBL to eliminate * ambiguous references on compilation. * Added dependency on the OMFTBL to RQMEGAM. * Modified paragraph: 200-LOGOFF. * Dependency: Apply fix to RQMEGAS, RQMEGAM, SVISECS and OMFTBL. * Run Make. * Reference: Case #457861 #ADD 03308W00 200-DETERMINE-TRAN-CODE MOVE "S" TO WS-FM-TYPE. #ENDSCN = BA0C089 !#CMP2.28 04/18/08 SVISECS 6033 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6033 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6033 * ******************************************************************************** #SCN = BA0C105 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6033 #NEWVERSION = 6034 #ADD 01101g0U * 17APR2008 FuhsC * Symptom: The following error is displayed when logging on: * "OMF TEMPLATE NAME MUST BE SPECIFIED IN LCONF." * Problem: The LCONF read is failing because the field * USER-FLD1 OF LCONF has an uninitialized value. * Fix: Initialize the field at server startup. * Modified paragraph: B-AUDIT-ASSIGN. * Dependency: Apply fix to SVISECS. * Run Make. * Reference: Case #462705 #ADD 02979 B-AUDIT-ASSIGN MOVE " " TO USER-FLD1 OF LCONF #ENDSCN = BA0C105 !#CMP2.28 04/21/08 RQCAFS 6063 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6063 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6063 * ******************************************************************************** #SCN = BA0C106 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6063 #NEWVERSION = 6064 #ADD 00023=1m * 21APR2008 heuertt * Symptom: CAF records may be corrurted on disk. ATM/POS * authorization process may dump when reading the * corrupted records depending on which segments * are present in the record. * Problem: The CAF record was increased by 60 bytes for the * new segment 27 for Preferred Transactions but the * RECORD-IMAGE-CAF buffer was not increased. * Fix: Increased RECORD-IMAGE-CAF by 60 bytes and reduced * LEFTOVER by 60 bytes. * Modified WORKING-STORAGE SECTION. * Dependency: Apply fixes to RQCAFS, SVCAFS and run Make. * Replace BA60UD0B.SCNPTXN. * Reference: Case #460532 #REPLACE 00210y01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(3454). #REPLACE 00232=07 DATA DIVISION 05 LEFTOVER PIC X(4092). #ENDSCN = BA0C106 !#CMP2.28 04/21/08 SVCAFS 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6043 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6043 * ******************************************************************************** #SCN = BA0C107 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6043 #NEWVERSION = 6044 #ADD 00013q0I * 21APR2008 heuertt * Symptom: CAF records may be corrurted on disk. ATM/POS * authorization process may dump when reading the * corrupted records depending on which segments * are present in the record. * Problem: The CAF record was increased by 60 bytes for the * new segment 27 for Preferred Transactions but the * RECORD-IMAGE-CAF buffer was not increased. * Fix: Increased RECORD-IMAGE-CAF by 60 bytes and reduced * LEFTOVER by 60 bytes. * Modified WORKING-STORAGE SECTION. * Dependency: Apply fixes to RQCAFS, SVCAFS and run Make. * Replace BA60UD0B.SCNPTXN. * Reference: Case #460532 #REPLACE 00258e01 DATA DIVISION 05 RECORD-IMAGE-CAF PIC X(3454). #REPLACE 00281n07 DATA DIVISION 05 LEFTOVER PIC X(4092). #ENDSCN = BA0C107 !#CMP2.28 04/23/08 SVNEGS 6010 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVNEGS SVNEGS 6010 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVNEGS SVNEGS 6010 * ******************************************************************************** #SCN = BA0C109 , FILEID = SVNEGS #VOLUME = $ROOK.BA60AFT #FILE = SVNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6010 #NEWVERSION = 6011 #ADD 00013J0l * 22APR2008 FuhsC * Symptom: When reading the NEG record, the "RECORD LAST * CHANGED:" displays zeros. * Problem: A recent enhancement that logs every access is * overwriting the values of WS-FM-DATE and * WS-FM-TYPE, causing the last update timestamp to * be set to zeros. * Fix: Saved the value of WS-FM-DATE before the call to * 60-FETCH-PRESENT-TIME, restored the value after * the call to 1000-CALL-AUDIT, and also restored the * original NEG record's WS-FM-TYPE. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * Dependency: Apply fix to SVNEGS and run Make. * Reference: Case #462770 #REPLACE 00328 DATA DIVISION 01 WS-FM-DATE-SAVE PIC X(16). #ADD 00689I01 200-READ-RCD MOVE WS-FM-DATE TO WS-FM-DATE-SAVE #REPLACE 00689I0G/00690F00 200-READ-RCD MOVE WS-FM-DATE-SAVE TO WS-FM-DATE MOVE UPDT-TYP OF NEG TO WS-FM-TYPE #ADD 00961I02 600-READ-NEXT-RCD MOVE WS-FM-DATE TO WS-FM-DATE-SAVE #REPLACE 00961I0E 600-READ-NEXT-RCD PERFORM 1000-CALL-AUDIT #DELETE 00961I0F/00961I0G 600-READ-NEXT-RCD #REPLACE 00961I0H/00961A0I 600-READ-NEXT-RCD MOVE WS-FM-DATE-SAVE TO WS-FM-DATE MOVE UPDT-TYP OF NEG TO WS-FM-TYPE. #DELETE 00962A00/00962A02 600-READ-NEXT-RCD #ENDSCN = BA0C109 !#CMP2.28 05/20/08 RQCAFS 6064 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6064 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6064 * ******************************************************************************** #SCN = BA0C118 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6064 #NEWVERSION = 6065 #ADD 00023>0F * 16MAY2008 FuhsC * Symptom: When a CAF record is added by a user who has * masking turned on, first reading up an existing * record as a template, then transactions for the * PAN are declined for a bad CAF record. The CAF * record contains erroneous asterisks. * Problem: The primary and secondary card expiration dates * are displayed as "****" when masking is turned on. * The logic to reinstate the unmasked dates before * sending to the server is not performed when a new * PAN is entered, however, because the PAN does not * match the saved one. This results in the "****"- * filled expiration dates being written to disk. * Fix: Removed the PAN equality check from the logic that * reinstates the unmasked expiration dates. This * check is unecessary. * Modified 400-SAVE-RECORD. * Dependency: Apply fixes to RQCAFS. Run Make. * Reference: Case #465439 #REPLACE 00698=01/00698=02 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" #REPLACE 00698=06/00698=07 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" #ENDSCN = BA0C118 !#CMP2.28 06/25/08 RQDCCDS 6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQDCCDS RQDCCDS 6001 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQDCCDS RQDCCDS 6001 * ******************************************************************************** #SCN = BA0C126 , FILEID = RQDCCDS #VOLUME = $ROOK.BA60AFT #FILE = RQDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00036A0D * 24JUN2008 eschlis * Symptom: A currency of wildcards (***) in the Currency * Data record causes an error "-0010- - INVALID * NUMBER FORMAT". Wildcards need to be allowed in * that field. * Problem: The currency is defined within the screen and * requester as a numeric field, disallowing * wildcard characters. * Fix: Changed the working storage field for the * currency in the Currency Data record from * PIC 9(3) to PIC X(3). * Dependency: Apply fix to BA60DDL.DDLFDCCD. Apply fixes to * RQDCCDS and SCRNDCCD. Run Make. * Replace BA60UD0B.SCNDCC. * Reference: Case #468648 * * 25JUN2008 eschlis * Symptom: Invalid data causes an error message such as * "DCC PROFILE MUST NOT BE SPACES" when a user * switches betweeen the BIN currency screen and * the Currency Data screen. There is no reason * to validate data in that situation because the * data is discarded. * Problem: The requester calls standard logic to switch * screen overlays, which includes a step to * validate the entered data. * Fix: Modified the logic to set the INIT-FLAG to 1 * before changing screens. This causes the * standard logic to treat the screen as initial * data, so that no validation is performed. * Modified paragraphs: 200-GET-DATA * 810-NEXT-VALID-OVERLAY * Added paragraphs: 810-GO-TO-SCREEN * 810-PAGE-BACK * Dependency: Apply fix to RQDCCDS and run Make. * Replace BA60UD0B.SCNDCC. * Reference: Case #468652 #REPLACE 00104 DATA DIVISION 10 WS-CRNCY-CDE PIC X(3). #REPLACE 00273 200-GET-DATA 810-GO-TO-SCREEN , #REPLACE 00276 200-GET-DATA 810-PAGE-BACK , #ADD 00873 810-NEXT-VALID-OVERLAY 810-GO-TO-SCREEN. MOVE 1 TO INIT-FLAG. PERFORM 800-GO-TO-SCREEN. 810-PAGE-BACK. MOVE 1 TO INIT-FLAG. PERFORM 800-PAGE-BACK. #ADD 00874 810-NEXT-VALID-OVERLAY MOVE 1 TO INIT-FLAG. #ENDSCN = BA0C126 !#CMP2.28 06/25/08 SVDCCDS 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6002 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6002 * ******************************************************************************** #SCN = BA0C127 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00034B0H * 24JUN2008 eschlis * Symptom: Some values in the percent mark-up in the * Currency Data record are incorrectly validated * and saved. For example, " 2 " (two spaces, * a 2, two spaces) is converted to "0..2" in * the display, and re-reading the record shows * that it contains 0.00. * Problem: The logic that removes spaces and other * non-numeric characters from the mark-up is * incorrect and causes characters in some * positions to be skipped, depending on the input. * Fix: Corrected the logic to ensure that all * non-numeric characters are skipped and replaced * with leading zeroes, before the conversion to * integer form (in the disk record) and the * addition of the decimal point (in the display * field). * Modified paragraphs: 801-VALIDATE-PCNT-MARK-UP * 801-MARK-UP-REMOVE-NONDIGIT * Dependency: Apply fix to and SVDCCDS and run Make. * Replace BA60UD0B.SCNDCC. * Reference: Case #468650 #ADD 01096 801-VALIDATE-PCNT-MARK-UP MOVE 5 TO I. PERFORM 801-MARK-UP-REMOVE-NONDIGIT UNTIL I < 1. #DELETE 01097 /01098 801-VALIDATE-PCNT-MARK-UP #ADD 01114 801-MARK-UP-REMOVE-NONDIGIT IF MARK-UP-PICX-BYTE(I) IS NUMERIC SUBTRACT 1 FROM I ELSE #DELETE 01115 801-MARK-UP-REMOVE-NONDIGIT #ENDSCN = BA0C127 !#CMP2.28 07/03/08 SVDCCDS 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6003 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6003 * ******************************************************************************** #SCN = BA0C134 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00034C0N * 03JUL2008 eschlis * Symptom: In the DCCD Currency Data record, it is possible * to enter multiple decimal points and, after * validation, the decimal may be placed differently * in the display from where it was entered. * Problem: Validation of the percent mark-up in the DCCD * Currency Data record is insufficient. Current * validation logic removes all non-numeric * characters when converting to an integer. It then * inserts a decimal point to display the * value in "Z9.99" format. This is insufficient for * some customers. * Fix: Added validation of the percent mark-up to include * the following: * - No embedded spaces allowed. * - No characters other than 0-9 and a decimal * allowed. * - At least one digit required. * - No more than one decimal point allowed. * - No more than two digits allowed to follow the * decimal. * - Numbers without a decimal or with fewer than * two digits following the decimal are * converted appropriately, so that 9 becomes * 9.00 and 9.9 becomes 9.90. * Modified paragraph: 801-VALIDATE-PCNT-MARK-UP * Added paragraphs: 801-MARK-UP-CHK-CHARS * 801-MARK-UP-CHK-NUMERIC * 801-MARK-UP-CHK-DECIMAL * 801-MARK-UP-CHK-SPACE * 801-MARK-UP-CHK-RANGE * 801-MARK-UP-ADJUST-FOR-DECIMAL * Dependency: Apply fix to and SVDCCDS and run Make. * Replace BA60UD0B.SCNDCC. * Reference: Case #468650 #ADD 00376 DATA DIVISION 01 WS-MARK-UP-DECIMAL-FOUND PIC X. 01 WS-MARK-UP-NONZERO-FOUND PIC X. 01 WS-MARK-UP-NONSPACE-FOUND PIC X. 01 WS-MARK-UP-TRAILING-SPC-FOUND PIC X. 01 WS-MARK-UP-DGTS-AFTER-DECIMAL PIC S9(4) COMP. 01 WS-MARK-UP-DIGITS PIC S9(4) COMP. 01 WS-MARK-UP-LEADING-ZEROES PIC S9(4) COMP. 01 WS-MARK-UP-ERR-TXT PIC X(70). #ADD 01096 801-VALIDATE-PCNT-MARK-UP * * Initialize the flags that will be set as the individual * characters of the mark-up are checked. * MOVE "N" TO WS-MARK-UP-DECIMAL-FOUND. MOVE "N" TO WS-MARK-UP-NONZERO-FOUND. MOVE "N" TO WS-MARK-UP-NONSPACE-FOUND. MOVE "N" TO WS-MARK-UP-TRAILING-SPC-FOUND. MOVE 0 TO WS-MARK-UP-DIGITS. MOVE 0 TO WS-MARK-UP-DGTS-AFTER-DECIMAL. MOVE 0 TO WS-MARK-UP-LEADING-ZEROES. MOVE SPACES TO WS-MARK-UP-ERR-TXT. * * Perform the character-by-character validation of the * mark-up. * PERFORM 801-MARK-UP-CHK-CHARS VARYING I FROM 1 BY 1 UNTIL ERR-PCNT-MARK-UP = "Y" OR I > 5. * * Ensure that at least one digit character was found. * IF ERR-PCNT-MARK-UP NOT = "Y" IF WS-MARK-UP-DIGITS = 0 MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST CONTAIN AT LEAST ONE DIGIT" TO WS-MARK-UP-ERR-TXT. * * Remove non-digit characters from the string, for instance, * " 9.9 " will be converted to "00099". * IF ERR-PCNT-MARK-UP NOT = "Y" MOVE 5 TO I PERFORM 801-MARK-UP-REMOVE-NONDIGIT UNTIL I < 1. * * Ensure that the mark-up is within the allowed range. * IF ERR-PCNT-MARK-UP NOT = "Y" PERFORM 801-MARK-UP-CHK-RANGE. * * Move the mark-up into the numeric field. * #DELETE 01096C00/01100 801-VALIDATE-PCNT-MARK-UP #ADD 01103 801-VALIDATE-PCNT-MARK-UP * * Adjust the mark-up for the number of digits that followed * the decimal point. For instance, 0099 that was originally * entered as " 9.9 " will be converted to 0990. * PERFORM 801-MARK-UP-ADJUST-FOR-DECIMAL * * Move the integer form of the mark-up into the disk record. * #ADD 01105 801-VALIDATE-PCNT-MARK-UP * * Move the mark-up back to the display field in the standard * format. * #REPLACE 01112 801-MARK-UP-REMOVE-NONDIGIT MOVE WS-MARK-UP-ERR-TXT TO WS-ERR-TXT. #ADD 01113 801-MARK-UP-REMOVE-NONDIGIT 801-MARK-UP-CHK-CHARS. * * This paragraph validates the individual characters of the * mark-up. Checks include: * - No embedded spaces * - Not more than one decimal point. * - Not more than two digits after the decimal. * - Number of digits counted for range-checking later. * - Number of digits after the decimal counted so the * mark-up can be adjusted to "Z9.99" form later. * - No characters other than digits, decimal, and spaces. * IF MARK-UP-PICX-BYTE(I) IS NUMERIC PERFORM 801-MARK-UP-CHK-NUMERIC ELSE IF MARK-UP-PICX-BYTE(I) = "." PERFORM 801-MARK-UP-CHK-DECIMAL ELSE IF MARK-UP-PICX-BYTE(I) = SPACE PERFORM 801-MARK-UP-CHK-SPACE ELSE MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST BE 0-9 AND '.'" TO WS-MARK-UP-ERR-TXT. 801-MARK-UP-CHK-NUMERIC. * * This paragraph validates a numeric character in the * mark-up. * * Set the flag to indicate a nonspace character was * found. * MOVE "Y" TO WS-MARK-UP-NONSPACE-FOUND. * * Increment the number of digits found. * ADD 1 TO WS-MARK-UP-DIGITS. * * Determine if this is a leading zero and, if so, add * to the number of leading zeroes found. * IF MARK-UP-PICX-BYTE(I) NOT = "0" MOVE "Y" TO WS-MARK-UP-NONZERO-FOUND ELSE IF WS-MARK-UP-NONZERO-FOUND = "N" ADD 1 TO WS-MARK-UP-LEADING-ZEROES. * * If there has already been a block of nonspace characters * followed by a space, report that we have embedded spaces. * IF WS-MARK-UP-TRAILING-SPC-FOUND = "Y" MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST NOT CONTAIN EMBEDDED SPACES" TO WS-MARK-UP-ERR-TXT ELSE * * If the decimal point precedes this digit, increment the * number of digits after the decimal. * IF WS-MARK-UP-DECIMAL-FOUND = "Y" ADD 1 TO WS-MARK-UP-DGTS-AFTER-DECIMAL IF WS-MARK-UP-DGTS-AFTER-DECIMAL > 2 MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP HAS TOO MANY DIGITS AFTER DECIMAL" TO WS-MARK-UP-ERR-TXT. 801-MARK-UP-CHK-DECIMAL. * * This paragraph handles a decimal point in the mark-up. * * Set the flag to indicate a nonspace character was found. * MOVE "Y" TO WS-MARK-UP-NONSPACE-FOUND. * * If there has already been a block of nonspace characters * followed by a space, report that we have embedded spaces. * IF WS-MARK-UP-TRAILING-SPC-FOUND = "Y" MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST NOT CONTAIN EMBEDDED SPACES" TO WS-MARK-UP-ERR-TXT ELSE * * If a decimal was already found, report that we have found * more than one. Otherwise, set the flag to indicate the * decimal was found. * IF WS-MARK-UP-DECIMAL-FOUND = "Y" MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST HAVE ONLY ONE DECIMAL" TO WS-MARK-UP-ERR-TXT ELSE MOVE "Y" TO WS-MARK-UP-DECIMAL-FOUND. 801-MARK-UP-CHK-SPACE. * * This paragraph handles a space in the mark-up. * * If we have already found nonspace characters, set the * flag to show we have trailing spaces. * IF WS-MARK-UP-NONSPACE-FOUND = "Y" MOVE "Y" TO WS-MARK-UP-TRAILING-SPC-FOUND. 801-MARK-UP-CHK-RANGE. * * This paragraph ensures that the mark-up is within the * valid range. * * Mark-up must be no more than two digits, not including * leading zeroes or digits after the decimal point. * IF WS-MARK-UP-DIGITS - ( WS-MARK-UP-LEADING-ZEROES + WS-MARK-UP-DGTS-AFTER-DECIMAL ) > 2 MOVE "Y" TO ERR-PCNT-MARK-UP MOVE "MARK-UP MUST BE 0.00-99.99" TO WS-MARK-UP-ERR-TXT. #ADD 01136 801-MOVE-MARK-UP-PIC9-TO-PICX 801-MARK-UP-ADJUST-FOR-DECIMAL. * * This paragraph adjusts the mark-up for the placement * of the decimal point. * IF WS-MARK-UP-DGTS-AFTER-DECIMAL = 1 COMPUTE WS-MARK-UP-PIC9 = WS-MARK-UP-PIC9 * 10 ELSE IF WS-MARK-UP-DGTS-AFTER-DECIMAL = 0 COMPUTE WS-MARK-UP-PIC9 = WS-MARK-UP-PIC9 * 100. #ENDSCN = BA0C134 !#CMP2.28 07/15/08 SECTBL 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6028 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6028 * ******************************************************************************** #SCN = BA0C138 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00268b0t * 11JUL2008 ACI * Symptom: BASE24-refunds 4.0 Version 6 enhancements. * Problem: None. * Fix: Added support to use SQL tables instead of * Enscribe files for the Sales History Summary, * Discount, and Multiple Tender data. Removed entry * RETL19 from PROD-SCRN-ACCESS-TABLE-DATA table and * decreased PROD-SCRN-ACC-TABL and * PROD-MAX-TABL-ENTRIES by 1. With the conversion of * Sales History from Enscribe to SQL, the SHCT table * accessed from screen 19 is no longer necessary. * Dependency: Apply fixes to SECTBL and re-make SVISECS. * Reference: WO 080519-01 Converting Sales History to SQL #DELETE 00740A0A #ADD 00893b00 05 PROD-SCRN-ACC-TABL OCCURS 620 TIMES. #DELETE 00893b01 #ADD 00906b00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 620. #DELETE 00906b01 #ENDSCN = BA0C138 !#CMP2.28 08/08/08 COBTKN 6018 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6018 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6018 * ******************************************************************************** #SCN = BA0C144 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6018 #NEWVERSION = 6019 #ADD 00057R0l * 08AUG2008 SaderC * Symptom: MDS 08.3 Mandates * Banknet Release 08.2 Mandates * Problem: None. * Fix: Added an entry for the new base P2P Transaction 2 * Token (S7) for ATM and POS. Incremented the * occurs for WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. Run Make. * Reference: WO #080424-01 (MDS 08.3) * WO #080401-02 (BNET 08.2) * 08AUG2008 gruberg * Symptom: MSD/CVN 17 Support * Problem: None * Fix: Added an entry for the new EMV Supplementary Data * token (S4) for ATM and POS. Incremented the * occurs for WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT by 2. * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. * Run Make. * Reference: WO #070803-01 #REPLACE 00195R07/00195N0E 05 ATM84 PIC X(29) VALUE "S401ATM EMV SUPPL DATA TOKEN ". 05 POS87 PIC X(29) VALUE "S402POS EMV SUPPL DATA TOKEN ". 05 ATM85 PIC X(29) VALUE "S701ATM P2P TXN2 TOKEN ". 05 POS88 PIC X(29) VALUE "S702POS P2P TXN2 TOKEN ". #REPLACE 00197R01 02 WS-PROD-TKN-TBL OCCURS 191 TIMES. #REPLACE 00201R01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 191. #ENDSCN = BA0C144 !#CMP2.28 08/08/08 RQICFS 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQICFS RQICFS 6030 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQICFS RQICFS 6030 * ******************************************************************************** #SCN = BA0C151 , FILEID = RQICFS #VOLUME = $ROOK.BA60AFT #FILE = RQICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6030 #NEWVERSION = 6031 #ADD 00020d0F * 08AUG2008 HazraR * Symptom: Interfaces will dump with a trap 0 when the * Extended Network Management Timer is set to zero. * Problem: A zero in any timer value causes issues when that * timer is set. Timers should never have a zero * value. * Fix: Modified the requester to not allow ICF timers to * contain a value of zero. * Modified Proc: 480-DATA-CHECK * Dependency: Apply fixes to RQICFS. Run Make. * Reference: Case #467995 #ADD 01071d0u 480-DATA-CHECK IF WS-OVERLAY = 3 IF NMM = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-NET-MNGMT IF MOVE-MESSAGE SET NEW-CURSOR AT S-NET-MNGMT MOVE "NETWORK MANAGEMENT TIMER LIMIT MUST BE GREATER - " THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01071U0B 480-DATA-CHECK IF WS-OVERLAY = 3 IF XNMM = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-X-NET-MNGMT IF MOVE-MESSAGE SET NEW-CURSOR AT S-X-NET-MNGMT MOVE "EXTENDED NETWORK TIMER LIMIT MUST BE GREATER T - "HAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01071U0M 480-DATA-CHECK IF WS-OVERLAY = 3 IF WFT = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-WFT IF MOVE-MESSAGE SET NEW-CURSOR AT S-WFT MOVE "WAIT FOR TRAFFIC TIMER LIMIT MUST BE GREATER T - "HAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 3 IF PERFORMANCE = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-PERFORMANCE IF MOVE-MESSAGE SET NEW-CURSOR AT S-PERFORMANCE MOVE "PERFORMANCE PERIOD LIMIT MUST BE GREATER THAN - "0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01081Q13 480-DATA-CHECK IF WS-OVERLAY = 8 IF ISAF OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-A-SAF IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-SAF MOVE "STORE AND FORWARD TIMER LIMIT MUST BE GREATER - "THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF OUTBOUND OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-A-OUTBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-OUTBOUND MOVE "OUTBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF INBOUND OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-A-INBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-INBOUND MOVE "INBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF COMPL OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-A-COMPL IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL MOVE "COMPLETION TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF COMPL-ACK OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-A-COMPL-ACK IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL-ACK MOVE "COMPLETION ACK TIMER LIMIT MUST BE GREATER THA - "N 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01087A0N 480-DATA-CHECK IF WS-OVERLAY = 10 IF ISAF OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-SAF IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-SAF MOVE "STORE AND FORWARD TIMER LIMIT MUST BE GREATER T - "HAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF OUTBOUND OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-OUTBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-OUTBOUND MOVE "OUTBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF INBOUND OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-INBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-INBOUND MOVE "INBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF COMPL OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-COMPL IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-COMPL MOVE "COMPLETION TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF COMPL-ACK OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-COMPL-ACK IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-COMPL-ACK MOVE "COMPLETION ACK TIMER LIMIT MUST BE GREATER THAN - " 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0C151 !#CMP2.28 08/08/08 RQICFES 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQICFES RQICFES 6005 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQICFES RQICFES 6005 * ******************************************************************************** #SCN = BA0C152 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00049E0F * 08AUG2008 HazraR * Symptom: Interfaces will dump with a trap #0 when the * Extended Network Management Timer is set to zero. * Problem: A zero in any timer value causes issues when that * timer is set. Timers should never have a zero * value. * Fix: Modified the requester to not allow ICFE timers to * contain a value of zero. * Modified Proc: 480-DATA-CHECK * Dependency: Apply fixes to RQICFES. Run Make. * Reference: Case #472587. #ADD 00996E0v 480-DATA-CHECK IF WS-OVERLAY = 3 IF NMM = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-NET-MNGMT IF MOVE-MESSAGE SET NEW-CURSOR AT S-NET-MNGMT MOVE "NETWORK MANAGEMENT TIMER LIMIT MUST BE GREA - "TER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01007 480-DATA-CHECK IF WS-OVERLAY = 3 IF XNMM = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-X-NET-MNGMT IF MOVE-MESSAGE SET NEW-CURSOR AT S-X-NET-MNGMT MOVE "EXTENDED NETWORK TIMER LIMIT MUST BE GREATE - "R THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01017 480-DATA-CHECK IF WS-OVERLAY = 3 IF WFT = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-WFT IF MOVE-MESSAGE SET NEW-CURSOR AT S-WFT MOVE "WAIT FOR TRAFFIC TIMER LIMIT MUST BE GREATE - "R THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 3 IF PERFORMANCE = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-PERFORMANCE IF MOVE-MESSAGE SET NEW-CURSOR AT S-PERFORMANCE MOVE "PERFORMANCE PERIOD TIMER LIMIT MUST BE GREA - "TER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01145 480-DATA-CHECK IF WS-OVERLAY = 8 IF ISAF OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF WS-SITE-PROD-IND(24) = "0" TURN TEMP SERROR IN S-A-SAF OF OVERLAY-8 IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-SAF OF OVERLAY-8 MOVE "STORE AND FORWARD TIMER LIMIT MUST BE G - "REATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE TURN TEMP SERROR IN S-A-SAF OF OVERLAY-8-NCD IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-SAF OF OVERLAY-8-NCD MOVE "STORE AND FORWARD TIMER LIMIT MUST BE G - "REATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF OUTBOUND OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF WS-SITE-PROD-IND(24) = "0" TURN TEMP SERROR IN S-A-OUTBOUND OF OVERLAY-8 IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-OUTBOUND OF OVERLAY-8 MOVE "OUTBOUND TIMER LIMIT MUST BE GREATER TH - "AN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE TURN TEMP SERROR IN S-A-OUTBOUND OF OVERLAY-8-NCD IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-OUTBOUND OF OVERLAY-8-NCD MOVE "OUTBOUND TIMER LIMIT MUST BE GREATER TH - "AN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF INBOUND OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF WS-SITE-PROD-IND(24) = "0" TURN TEMP SERROR IN S-A-INBOUND OF OVERLAY-8 IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-INBOUND OF OVERLAY-8 MOVE "INBOUND TIMER LIMIT MUST BE GREATER THA - "N 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE TURN TEMP SERROR IN S-A-INBOUND OF OVERLAY-8-NCD IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-INBOUND OF OVERLAY-8-NCD MOVE "INBOUND TIMER LIMIT MUST BE GREATER THA - "N 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF COMPL OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF WS-SITE-PROD-IND(24) = "0" TURN TEMP SERROR IN S-A-COMPL OF OVERLAY-8 IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL OF OVERLAY-8 MOVE "COMPLETION TIMER LIMIT MUST BE GREATER - "THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE TURN TEMP SERROR IN S-A-COMPL OF OVERLAY-8-NCD IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL OF OVERLAY-8-NCD MOVE "COMPLETION TIMER LIMIT MUST BE GREATER - "THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 8 IF COMPL-ACK OF TIMER-LMTS OF SEG1 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA IF WS-SITE-PROD-IND(24) = "0" TURN TEMP SERROR IN S-A-COMPL-ACK OF OVERLAY-8 IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL-ACK OF OVERLAY-8 MOVE "COMPLETION ACK TIMER LIMIT MUST BE GREA - "TER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE TURN TEMP SERROR IN S-A-COMPL-ACK OF OVERLAY-8-NCD IF MOVE-MESSAGE SET NEW-CURSOR AT S-A-COMPL-ACK OF OVERLAY-8-NCD MOVE "COMPLETION ACK TIMER LIMIT MUST BE GREA - "TER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 01224 480-DATA-CHECK IF WS-OVERLAY = 10 IF ISAF OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-SAF IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-SAF MOVE "STORE AND FORWARD TIMER LIMIT MUST BE GREATE - "R THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF OUTBOUND OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-OUTBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-OUTBOUND MOVE "OUTBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF INBOUND OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-INBOUND IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-INBOUND MOVE "INBOUND TIMER LIMIT MUST BE GREATER THAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF COMPL OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-COMPL IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-COMPL MOVE "COMPLETION TIMER LIMIT MUST BE GREATER THAN - "0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. IF WS-OVERLAY = 10 IF COMPL-ACK OF TIMER-LMTS OF SEG2 = 0 MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-P-COMPL-ACK IF MOVE-MESSAGE SET NEW-CURSOR AT S-P-COMPL-ACK MOVE "COMPLETION ACK TIMER LIMIT MUST BE GREATER T - "HAN 0" TO ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0C152 !#CMP2.28 10/25/08 COBTKN 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6019 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6019 * ******************************************************************************** #SCN = BA0C326 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00057S0P * 17OCT2008 MajumdS * Symptom: Mastercard Chargeback TLF Enhancement. * Problem: None. * Fix: Added an entry to the PROD-TKN-TABL for the * Track2 token (S6). * Incremented the table WS-PROD-TKN_TBL and * PROD-TKN-TABLE-CNT by 1 for the new entry. * Dependency: Apply fixes to COBTKN and run Make. * Refer to BA60UD0C.SCNMCCH for a complete listing * of dependencies. * Reference: WO #080225-01 #ADD 00195S05 05 ATM86 PIC X(29) VALUE "S601ATM ATM TRACK2 TOKEN ". #REPLACE 00197S01 02 WS-PROD-TKN-TBL OCCURS 192 TIMES. #REPLACE 00201S01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 192. #ENDSCN = BA0C326 !#CMP2.28 11/25/08 RQCAFS 6065 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6065 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6065 * ******************************************************************************** #SCN = BA0C327 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6065 #NEWVERSION = 6066 #ADD 00023|0K * 17OCT2008 HazraR * Symptom: Support Additional Flexibility in EMV Processing. * Problem: None. * Fix: Added logic to set the default value of new * fields. Also added logic to highlight two new * fields of screen 13 for any ERROR. * Added Paragraphs: * 480-FLAG-OV-13-FIELD-17 * 480-FLAG-OV-13-FIELD-18 * Modified Paragraphs: * 480-ERR-FLAG-OV-13 * 400-DO-REST-OF-MOVES * 550-TABLE-LOOK-UP-OVERLAY-13 * 595-CLEAR-DATA * Dependency: Apply fix to RQCAFS and run Make. Refer to * BA60UD0C.SCNFLEX for a complete listing of * dependencies. * Reference: WO #080102-02 #ADD 00132+02 DATA DIVISION 05 WS-SCRIPT-TPLT-DESC PIC X(16) VALUE SPACES. #ADD 00592+05 400-DO-REST-OF-MOVES IF SCRIPT-TPLT-TAG OF SEG9 = SPACES MOVE ZEROS TO SCRIPT-TPLT-TAG OF SEG9. IF SCRIPT-MAC-LGTH OF SEG9 = SPACES MOVE ZEROS TO SCRIPT-MAC-LGTH OF SEG9. #ADD 01356=0E 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-17, 480-FLAG-OV-13-FIELD-18 #ADD 01356=0Z 480-ERR-FLAG-OV-14 480-FLAG-OV-13-FIELD-17. TURN TEMP SERROR IN C-SCRIPT-TPLT-TAG. SET NEW-CURSOR AT C-SCRIPT-TPLT-TAG. 480-FLAG-OV-13-FIELD-18. TURN TEMP SERROR IN C-SCRIPT-MAC-LGTH. SET NEW-CURSOR AT C-SCRIPT-MAC-LGTH. #ADD 01699&2b 550-TABLE-LOOK-UP-OVERLAY-13 IF SCRIPT-TPLT-TAG OF SEG9 = "0" MOVE "(USE CPF VALUE)" TO WS-SCRIPT-TPLT-DESC ELSE IF SCRIPT-TPLT-TAG OF SEG9 = "1" MOVE "(71)" TO WS-SCRIPT-TPLT-DESC ELSE IF SCRIPT-TPLT-TAG OF SEG9 = "2" MOVE "(72)" TO WS-SCRIPT-TPLT-DESC ELSE MOVE "(*************)" TO WS-SCRIPT-TPLT-DESC. #ADD 02190y0I 595-CLEAR-DATA MOVE ZEROES TO SCRIPT-TPLT-TAG OF SEG9. MOVE ZEROES TO SCRIPT-MAC-LGTH OF SEG9. #ENDSCN = BA0C327 !#CMP2.28 11/14/08 RQCPFS 6061 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6061 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6061 * ******************************************************************************** #SCN = BA0C328 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6061 #NEWVERSION = 6062 #ADD 00022;0u * 17OCT2008 FunteR * Symptom: Amex PIN Change is declined. * Problem: Amex card IAD scheme is not supported. * Fix: Add Amex as an IAD scheme in the CPF. * Dependency: Apply fixes to RQCPFS. Run Make. * Refer to BA60UD0C.SCNEAID for a complete * listing of dependencies. * Reference: Case #471302 * 17OCT2008 HazraR * Symptom: Visa Contactless MSD with CVN 17. * Problem: None. * Fix: Added support to validate a new value in the date * ATC CHECK TYPE field on screen 11 of CPF. * Modified Proc: 550-TABLE-LOOK-UP * Dependency: Apply fixes to RQCPFS. Run Make. Refer to * BA60UD0C.SCNCV17 for a complete listing of * dependencies. * Reference: WO #070803-01 * 17OCT2008 DebS * Symptom: Support Additional Flexibility in EMV Processing. * Problem: None. * Fix: 1. Added support for the screen 11 since * SCRIPT TEMPLATE TAG, SCRIPT MAC LENGTH and * UPDATE COUNTERS fields are added to this * screen. * 2. Added support for the new screen 12 since * FALLBACK ACTION for ATM, BAD OFFLINE PIN * ACTION, OFFLINE PIN MANAGEMENT ACTION and NEW * PIN TRANSPORT KEY LOCATOR fields are moved * from screen 11 to this screen. * 3. Added support for screen 13 since FALLBACK * ACTION for POS field is moved from screen 11 * to this screen and DELAYED AUTH SUPPORT field * is newly added to this screen. * Modified Paragraphs: * 480-DATA-CHECK-RETURN * 480-FLAG-OV-11-FIELD-15 * 480-FLAG-OV-11-FIELD-16 * 480-FLAG-OV-11-FIELD-19 * 480-FLAG-OV-11-FIELD-20 * 480-FLAG-OV-11-FIELD-21 * 480-FLAG-OV-13 * 400-MOVE-RECORD * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY-12 * 595-CLEAR-DATA * Added Paragraphs: * 480-CHK-OVERLAY-12 * 480-ERR-FLAG-OV-12 * 480-FLAG-OV-12 * 480-FLAG-OV-12-FIELD-1 * 480-FLAG-OV-12-FIELD-2 * 480-FLAG-OV-12-FIELD-3 * 480-FLAG-OV-12-FIELD-4 * 480-FLAG-OV-13-FIELD-7 * 480-FLAG-OV-13-FIELD-8 * Dependency: Apply fixes to RQCPFS. Run Make. Refer to * BA60UD0C.SCNFLEX for a complete listing of * dependencies. * Reference: WO #080102-02 #ADD 00074-0F DATA DIVISION 05 WS-EMV-ATC-CHK-DESC PIC X(20). 05 WS-SCRPT-TPLT-TAG-DESC PIC X(17). 05 WS-APPRV-FNCL-TXN-DESC PIC X(20). 05 WS-APPRV-NON-FNCL-TXN-DESC PIC X(20). 05 WS-DCLN-TXN-DESC PIC X(20). #DELETE 00074-0G DATA DIVISION #ADD 00108o02 DATA DIVISION 05 CPF12 PIC X(4) VALUE "EMV ". #DELETE 00108h07 DATA DIVISION #ADD 00113;00 DATA DIVISION 8, 10, 11, 12, 13, #DELETE 00113;01 DATA DIVISION #ADD 00113;02 DATA DIVISION 14, 20, 21, 22, 48. #DELETE 00113%03 DATA DIVISION #ADD 00147o02 DATA DIVISION COPY SC-EMVCPF12 OF =BAAFT_SCNCPFO. #DELETE 00147h0A DATA DIVISION #ADD 00484;0F 400-MOVE-RECORD IF SCRIPT-TPLT-TAG OF SEG9 = SPACES MOVE "0" TO SCRIPT-TPLT-TAG OF SEG9. IF SCRIPT-MAC-LGTH OF SEG9 = SPACES MOVE "0" TO SCRIPT-MAC-LGTH OF SEG9. IF APPRV-FNCL-TXN OF SEG9 = SPACES MOVE "0" TO APPRV-FNCL-TXN OF SEG9. IF APPRV-NON-FNCL-TXN OF SEG9 = SPACES MOVE "0" TO APPRV-NON-FNCL-TXN OF SEG9. IF DCLN-TXN OF SEG9 = SPACES MOVE "0" TO DCLN-TXN OF SEG9. IF DELAYED-AUTH-SPPT OF SEG9 = SPACES MOVE "N" TO DELAYED-AUTH-SPPT OF SEG9. #ADD 00670w10 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-12, #DELETE 00670w11 480-DATA-CHECK-RETURN #ADD 00670w1i 480-CHK-OVERLAY-11 480-CHK-OVERLAY-12. PERFORM 480-ERR-FLAG-OV-12 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #ADD 00670-33 480-FLAG-OV-11-FIELD-15 480-FLAG-OV-11-FIELD-15. TURN TEMP SERROR IN P-SCRIPT-TPLT-TAG. SET NEW-CURSOR AT P-SCRIPT-TPLT-TAG. 480-FLAG-OV-11-FIELD-16. TURN TEMP SERROR IN P-SCRIPT-MAC-LGTH. SET NEW-CURSOR AT P-SCRIPT-MAC-LGTH. 480-FLAG-OV-11-FIELD-19. TURN TEMP SERROR IN P-DCLN-TXN. SET NEW-CURSOR AT P-DCLN-TXN. 480-FLAG-OV-11-FIELD-20. TURN TEMP SERROR IN P-APPRV-FNCL-TXN. SET NEW-CURSOR AT P-APPRV-FNCL-TXN. 480-FLAG-OV-11-FIELD-21. TURN TEMP SERROR IN P-APPRV-NON-FNCL-TXN. SET NEW-CURSOR AT P-APPRV-NON-FNCL-TXN. #DELETE 00670-34/00670-3U 480-FLAG-OV-11-FIELD-21 #REPLACE 00670-3W 480-FLAG-OV-11-FIELD-22 480-FLAG-OV-11-FIELD-22. #ADD 00670-3s 480-FLAG-OV-11-FIELD-26 480-ERR-FLAG-OV-12. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-12-FIELD-1, 480-FLAG-OV-12-FIELD-2, 480-FLAG-OV-12-FIELD-3, 480-FLAG-OV-12-FIELD-4 DEPENDING ON K. 480-FLAG-OV-12-FIELD-1. TURN TEMP SERROR IN P-FALLBACK-ACTN-ATM. SET NEW-CURSOR AT P-FALLBACK-ACTN-ATM. 480-FLAG-OV-12-FIELD-2. TURN TEMP SERROR IN P-BAD-OFFL-PIN-ACTN. SET NEW-CURSOR AT P-BAD-OFFL-PIN-ACTN. 480-FLAG-OV-12-FIELD-3. TURN TEMP SERROR IN P-OFFL-PIN-MGMT-ACTN. SET NEW-CURSOR AT P-OFFL-PIN-MGMT-ACTN. 480-FLAG-OV-12-FIELD-4. TURN TEMP SERROR IN P-TRANSPORT-KEY. SET NEW-CURSOR AT P-TRANSPORT-KEY. #ADD 00670;0e 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-6, 480-FLAG-OV-13-FIELD-7, 480-FLAG-OV-13-FIELD-8 #DELETE 00670;0f 480-ERR-FLAG-OV-13 #ADD 00670;15 480-FLAG-OV-13-FIELD-6 480-FLAG-OV-13-FIELD-7. TURN TEMP SERROR IN P-FALLBACK-ACTN-POS. SET NEW-CURSOR AT P-FALLBACK-ACTN-POS. 480-FLAG-OV-13-FIELD-8. TURN TEMP SERROR IN P-DELAYED-AUTH-SPPT. SET NEW-CURSOR AT P-DELAYED-AUTH-SPPT. #ADD 01416-04 550-TABLE-LOOK-UP ELSE IF EMV-ISS-APPL-DATA-FRMT = 5 MOVE "(AMEX) " TO WS-ISS-APPL-DATA-DESC #ADD 01416-0J 550-TABLE-LOOK-UP ELSE IF EMV-ISS-APPL-DATA-FRMT-ALT = 5 MOVE "(AMEX) " TO WS-ISS-APPL-DATA-ALT-DESC #ADD 01416-0O 550-TABLE-LOOK-UP MOVE "(DISABLED) " TO WS-EMV-ATC-CHK-DESC #DELETE 01416-0P 550-TABLE-LOOK-UP #ADD 01416-0Q 550-TABLE-LOOK-UP MOVE "(EMV ONLY) " TO WS-EMV-ATC-CHK-DESC ELSE IF ATC-CHK OF SEG9 = "8" MOVE "(USE BASE ATC & LMT)" TO WS-EMV-ATC-CHK-DESC #DELETE 01416-0R 550-TABLE-LOOK-UP #ADD 01416-0S 550-TABLE-LOOK-UP MOVE "(USE BASE SEG ATC) " TO WS-EMV-ATC-CHK-DESC #DELETE 01416-0T 550-TABLE-LOOK-UP #ADD 01416-0U 550-TABLE-LOOK-UP MOVE "(******************)" TO WS-EMV-ATC-CHK-DESC. #DELETE 01416-0V 550-TABLE-LOOK-UP #ADD 01420%0R 550-TABLE-LOOK-UP IF SCRIPT-TPLT-TAG OF SEG9 = "0" MOVE "(USE LCONF VALUE)" TO WS-SCRPT-TPLT-TAG-DESC ELSE IF SCRIPT-TPLT-TAG OF SEG9 = "1" MOVE "(71) " TO WS-SCRPT-TPLT-TAG-DESC ELSE IF SCRIPT-TPLT-TAG OF SEG9 = "2" MOVE "(72) " TO WS-SCRPT-TPLT-TAG-DESC ELSE MOVE "(***************)" TO WS-SCRPT-TPLT-TAG-DESC. IF APPRV-FNCL-TXN OF SEG9 = "0" MOVE "(DO NOT UPDATE) " TO WS-APPRV-FNCL-TXN-DESC ELSE IF APPRV-FNCL-TXN OF SEG9 = "1" MOVE "(SET TO UPPER LIMIT)" TO WS-APPRV-FNCL-TXN-DESC ELSE IF APPRV-FNCL-TXN OF SEG9 = "2" MOVE "(RESET TO ZERO) " TO WS-APPRV-FNCL-TXN-DESC ELSE IF APPRV-FNCL-TXN OF SEG9 = "3" MOVE "(ADD TO COUNTER) " TO WS-APPRV-FNCL-TXN-DESC ELSE MOVE "(******************)" TO WS-APPRV-FNCL-TXN-DESC. IF APPRV-NON-FNCL-TXN OF SEG9 = "0" MOVE "(DO NOT UPDATE) " TO WS-APPRV-NON-FNCL-TXN-DESC ELSE IF APPRV-NON-FNCL-TXN OF SEG9 = "1" MOVE "(SET TO UPPER LIMIT)" TO WS-APPRV-NON-FNCL-TXN-DESC ELSE IF APPRV-NON-FNCL-TXN OF SEG9 = "2" MOVE "(RESET TO ZERO) " TO WS-APPRV-NON-FNCL-TXN-DESC ELSE IF APPRV-NON-FNCL-TXN OF SEG9 = "3" MOVE "(ADD TO COUNTER) " TO WS-APPRV-NON-FNCL-TXN-DESC ELSE MOVE "(******************)" TO WS-APPRV-NON-FNCL-TXN-DESC. IF DCLN-TXN OF SEG9 = "0" MOVE "(DO NOT UPDATE) " TO WS-DCLN-TXN-DESC ELSE IF DCLN-TXN OF SEG9 = "1" MOVE "(SET TO UPPER LIMIT)" TO WS-DCLN-TXN-DESC ELSE IF DCLN-TXN OF SEG9 = "2" MOVE "(RESET TO ZERO) " TO WS-DCLN-TXN-DESC ELSE IF DCLN-TXN OF SEG9 = "3" MOVE "(ADD TO COUNTER) " TO WS-DCLN-TXN-DESC ELSE MOVE "(******************)" TO WS-DCLN-TXN-DESC. #ADD 01530h08 570-DISPLAY-OVERLAY-12 DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY OVERLAY OVERLAY-12 AT OVERLAY-AREA. DISPLAY OVERLAY-12. IF U-ACCESS(12) = "N" AND A-ACCESS(12) = "N" TURN PROTECTED IN OVERLAY-12. #ADD 01584;02 595-CLEAR-DATA MOVE "0" TO SCRIPT-TPLT-TAG OF SEG9. MOVE "0" TO SCRIPT-MAC-LGTH OF SEG9. MOVE "0" TO APPRV-FNCL-TXN OF SEG9. MOVE "0" TO APPRV-NON-FNCL-TXN OF SEG9. MOVE "0" TO DCLN-TXN OF SEG9. MOVE "N" TO DELAYED-AUTH-SPPT OF SEG9. #ENDSCN = BA0C328 !#CMP2.28 10/25/08 SECTBL 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6029 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6029 * ******************************************************************************** #SCN = BA0C331 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00268c0E * 17OCT2008 BhattaD * Symptom: Support Additional Flexibility in EMV Processing. * Problem: None. * Fix: Added an entry to the section PROD-SCRN-ACCESS- * TABLE-DATA for the new CPF screen#12. Increment * the "occurs" clause for PROD-SCRN-ACC-TABL by 1. * Increment the value of PROD-MAX-TABL-ENTRIES by 1. * Modified Section: * PROD-SCRN-ACCESS-TABLE-DATA * Dependency: Apply fix to SECTBL and run Make. Refer to * BA60UD0C.SCNFLEX for a complete listing of * dependencies. * Reference: WO #080102-02 * 17OCT2008 BartonD * Symptom: Obsolete screen included in screen access table. * Problem: Same. * Fix: Deleted entry from the section PROD-SCRN-ACCESS- * TABLE-DATA for the old IDF screen#20. Decrement * the "occurs" clause for PROD-SCRN-ACC-TABL by 1. * Decrement the value of PROD-MAX-TABL-ENTRIES by 1. * Modified Section: * PROD-SCRN-ACCESS-TABLE-DATA * Dependency: Apply fix to SECTBL and run Make. * Reference: Case #448217. #ADD 00415 05 CPF12 PIC X(35) VALUE "CPF 120900EMV ATM ". #DELETE 00580 #ADD 00893c00 05 PROD-SCRN-ACC-TABL OCCURS 620 TIMES. #DELETE 00893c01 #ADD 00906c00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 620. #DELETE 00906c01 #ENDSCN = BA0C331 !#CMP2.28 10/25/08 SVCAFS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6044 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6044 * ******************************************************************************** #SCN = BA0C332 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00013r0F * 17OCT2008 HazraR * Symptom: Support Additional Flexibility in EMV Processing. * Problem: None. * Fix: Added logic in the paragraph 480-DATA-CHECK- * SCREEN13 to validate the two new fields SCRIPT * TEMPLATE TAG and SCRIPT MAC LENGTH on the CAF * screen 13. * Modified paragraphs: * 480-DATA-CHECK-SCREEN13 * Dependency: Apply fix to SVCAFS and Run Make. Refer to * BA60UD0C.SCNFLEX for a complete listing of * dependencies. * Reference: WO #080102-02 #REPLACE 00511k0X DATA DIVISION "STATUS CHECKING ACTION INDEX MUST BE 1, 2, 3 OR 4". #REPLACE 00511m01 DATA DIVISION "EMV IAD FORMAT MUST BE 0, 1, 2 OR 3". #ADD 00972e9b 480-DATA-CHECK-SCREEN13 IF BAD-CAP-TKN-OVRRD-FLG OF CAP-DATA OF SEG9 NOT = "N" AND BAD-CAP-TKN-OVRRD-FLG OF CAP-DATA OF SEG9 NOT = "Y" ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "BAD CAP TOKEN OVERRIDE FLAG MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE ISS-APPL-DATA-FRMT OF SEG9 TO WS-ISS-APPL-DATA-FRMT. IF NOT VALID-ISS-APPL-DATA-FRMT ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-ISS-APPL-DATA-FRMT-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. MOVE ACTION-TABLE-INDEX OF SEG9 TO WS-ACTION-TABLE-INDEX. IF NOT VALID-ACTION-TABLE-INDEX ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-ACTION-TABLE-INDEX-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE END-IF END-IF. IF NOT (SCRIPT-TPLT-TAG OF SEG9 = "0" OR "1" OR "2") ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SCRIPT TEMPLATE TAG MUST BE 0, 1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF NOT (SCRIPT-MAC-LGTH OF SEG9 = "0" OR "4" OR "6" OR "8") ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SCRIPT MAC LENGTH MUST BE 0, 4, 6 OR 8" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00972k1L/00972k1e 480-DATA-CHECK-SCREEN13 #DELETE 00972n09/00972n0G 480-DATA-CHECK-SCREEN13 #ENDSCN = BA0C332 !#CMP2.28 11/12/08 SVCPFS 6039 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6039 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6039 * ******************************************************************************** #SCN = BA0C333 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6039 #NEWVERSION = 6040 #ADD 00017m0V * 17OCT2008 FunteR * Symptom: Amex PIN Change is declined. * Problem: Amex card IAD format is not supported. * Fix: Add Amex as an IAD scheme in the CPF. * Dependency: Apply fixes to DDLFCPF and SVCPFS. Run Make. * Refer to BA60UD0C.SCNEAID for a complete * listing of dependencies. * Reference: Case #471302 * 17OCT2008 HazraR * Symptom: Visa Contactless MSD with CVN 17. * Problem: None. * Fix: Added support to validate a new value in the * ATC CHECK TYPE field on screen 11 of CPF. * Working-Storage Section: INVALID-EMV-ATC-CHK * Modified Proc: 480-DATA-CHECK-SCREEN11. * Dependency: Apply fixes to SVCPFS. Run Make. Refer to * BA60UD0C.SCNCV17 for a complete listing of * dependencies. * Reference: WO #070803-01. * 17OCT2008 BhattaD * Symptom: Support Additional Flexibility in EMV Processing. * Problem: None. * Fix: Added a new paragraph 480-DATA-CHECK-SCREEN12 * for the new screen 12 that invoked from the * paragraph 480-DATA-CHECK-SCREEN and validated * the four fields on this screen that moved from * screen 11.Validated five new fields by modifying * the logic in 480-DATA-CHECK-SCREEN11.Modified the * logic for the newly added field and the field * moved from the screen 11 in the 480-DATA-CHECK- * SCREEN13.Enhanced the logic in paragraph 620- * CLEAR-SEG9 to set the new 6 fields to their * default values. * Validated New Fields: * SCRIPT TEMPLATE TAG * SCRIPT MAC LENGTH * DECLINED TRANSACTION * APPROVED FINANCIAL TRANSACTION * APPROVED NON-FINANCIAL TRANSACTION * DELAYED AUTH SUPPORT * Validated Moved Fields: * FALLBACK ACTION-ATM * BAD OFFLINE PIN ACTION * OFFLINE PIN MANAGEMENT ACTION * NEW PIN TRANSPORT KEY LOCATOR * FALLBACK ACTION-POS * Added paragraphs: * 480-DATA-CHECK-SCREEN12 * Modified paragraphs: * 480-DATA-CHECK-SCREEN * 480-DATA-CHECK-SCREEN11 * 480-DATA-CHECK-SCREEN13 * 620-CLEAR-SEG9 * Dependency: Apply fixes to SVCPFS. Run Make. Refer to * BA60UD0C.SCNFLEX for a complete listing of * dependencies. * Reference: WO #080102-02 #ADD 00387k0J DATA DIVISION "ATC CHECK MUST BE 0, 1, 8 OR 9". #DELETE 00387k0K DATA DIVISION #REPLACE 00399k07 DATA DIVISION 88 VALID-ISS-APPL-DATA VALUE "0" THRU "5". #REPLACE 00399k0E DATA DIVISION 88 VALID-ISS-APPL-DATA-ALT VALUE "0" THRU "5". #ADD 00399k0F DATA DIVISION 01 WS-SCRIPT-TPLT-TAG PIC X. 88 VALID-SCRIPT-TPLT-TAG VALUE "0" THRU "2". 01 WS-SCRIPT-MAC-LGTH PIC X. 88 VALID-SCRIPT-MAC-LGTH VALUE "0" , "4", "6", "8". 01 WS-APPRV-FNCL-TXN PIC X. 88 VALID-APPRV-FNCL-TXN VALUE "0" THRU "3". 01 WS-APPRV-NON-FNCL-TXN PIC X. 88 VALID-APPRV-NON-FNCL-TXN VALUE "0" THRU "3". 01 WS-DCLN-TXN PIC X. 88 VALID-DCLN-TXN VALUE "0" THRU "3". #ADD 00749X0X 480-DATA-CHECK-SCREEN ELSE IF OVERLAY-NUM = 12 PERFORM 480-DATA-CHECK-SCREEN12 #ADD 00749k5g 480-DATA-CHECK-SCREEN11 ATC-CHK OF SEG9 OF CPF NOT = "8" AND #ADD 00749k5t 480-DATA-CHECK-SCREEN11 MOVE "ISSUER APPL DATA FORMAT MUST BE 0, 1, 2, 3, 4 OR - " 5" TO WS-ERR-TXT #DELETE 00749k5u/00749k5v 480-DATA-CHECK-SCREEN11 #REPLACE 00749k64 480-DATA-CHECK-SCREEN11 MOVE "STATUS CHECK ACTION INDEX MUST BE 1, 2, 3, 4, 5 #REPLACE 00749k6E/00749k6F 480-DATA-CHECK-SCREEN11 MOVE "ALTERNATE ISSUER APPL DATA FORMAT MUST BE 0, 1, - "2, 3, 4 OR 5" TO WS-ERR-TXT #REPLACE 00749k6O/00749k6P 480-DATA-CHECK-SCREEN11 MOVE "ALTERNATE ACTION INDEX MUST BE 1, 2, 3, 4, 5 OR - "6" TO WS-ERR-TXT #ADD 00749k6Q 480-DATA-CHECK-SCREEN11 MOVE SCRIPT-TPLT-TAG OF SEG9 OF CPF TO WS-SCRIPT-TPLT-TAG. IF NOT VALID-SCRIPT-TPLT-TAG ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SCRIPT TEMPLATE TAG MUST BE 0, 1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE SCRIPT-MAC-LGTH OF SEG9 OF CPF TO WS-SCRIPT-MAC-LGTH. IF NOT VALID-SCRIPT-MAC-LGTH ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SCRIPT MAC LENGTH MUST BE 0, 4, 6 OR 8" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749k7O/00749k8J 480-DATA-CHECK-SCREEN11 #ADD 00749k9N 480-DATA-CHECK-SCREEN11 MOVE DCLN-TXN OF SEG9 OF CPF TO WS-DCLN-TXN. IF NOT VALID-DCLN-TXN ADD 1 TO ERR-CNT MOVE 19 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "UPDATE COUNTERS MUST BE 0, 1, 2 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE APPRV-FNCL-TXN OF SEG9 OF CPF TO WS-APPRV-FNCL-TXN. IF NOT VALID-APPRV-FNCL-TXN ADD 1 TO ERR-CNT MOVE 20 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "UPDATE COUNTERS MUST BE 0, 1, 2 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE APPRV-NON-FNCL-TXN OF SEG9 OF CPF TO WS-APPRV-NON-FNCL-TXN. IF NOT VALID-APPRV-NON-FNCL-TXN ADD 1 TO ERR-CNT MOVE 21 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "UPDATE COUNTERS MUST BE 0, 1, 2 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. 480-DATA-CHECK-SCREEN12. IF FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-ATM OF SEG9 OF CPF NOT = "1" ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION ATM MUST BE 0 OR 1" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-BAD-EXCD-ACT OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE WS-BAD-OFFL-PIN-ERR-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "0" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "1" AND OFFL-PIN-MGMT-ACT OF SEG9 OF CPF NOT = "2" ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE PIN MANAGEMENT ACTION MUST BE 0, 1 OR 2" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. MOVE WS-TRANSPORT-KEY TO WS-TRANSPORT-KEY-X. PERFORM 970-TRANSPORT-HEX VARYING Q FROM 1 BY 1 UNTIL Q > 16. #DELETE 00749k9O/00749XMZ 480-DATA-CHECK-SCREEN11 #ADD 00749m0J 480-DATA-CHECK-SCREEN13 IF FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "1" AND FALLBACK-ACT-POS OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "FALLBACK ACTION POS MUST BE 0, 1 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749m0Z 480-DATA-CHECK-SCREEN13 IF DELAYED-AUTH-SPPT OF SEG9 OF CPF NOT = "N" AND DELAYED-AUTH-SPPT OF SEG9 OF CPF NOT = "Y" ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DELAYED AUTH SUPPORT MUST BE 'Y' OR 'N'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00876W0L 620-CLEAR-SEG9 MOVE "0" TO SCRIPT-TPLT-TAG OF SEG9. MOVE "0" TO SCRIPT-MAC-LGTH OF SEG9. MOVE "0" TO APPRV-FNCL-TXN OF SEG9. MOVE "0" TO APPRV-NON-FNCL-TXN OF SEG9. MOVE "0" TO DCLN-TXN OF SEG9. MOVE "N" TO DELAYED-AUTH-SPPT OF SEG9. #ADD 01506k00 970-TRANSPORT-HEX MOVE 4 TO FLD-ID-NUM(ERR-CNT) #DELETE 01506k01 970-TRANSPORT-HEX #ENDSCN = BA0C333 !#CMP2.28 10/29/08 SVISECS 6034 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6034 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6034 * ******************************************************************************** #SCN = BA0C334 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6034 #NEWVERSION = 6035 #ADD 01101h0B * 17OCT2008 UrbaneJ FuhsC * Symptom: SVISECS would not compile with the HIGHPIN and * HIGHREQUESTERS compiler directives. * Problem: The code space limit was exceeded when compiling * with the ENV COMMON;HIGHPIN; HIGHREQUESTERS; * SYMBOLS; SAVEABEND compiler directives. * Fix: Created a nested subprogram and moved paragraphs * from the main program to the nested subprogram to * alleviate the code space problem. Changed all * identifiers common to both the nested subprogram * and the main program to GLOBAL. * Added paragraph: * 100-SEC-ERROR-TEXT-PRE-FILL * Modified paragraphs: * 100-INIT-REPLY * 210-CONVERT-PASSWORD * 210-LOGON * 240-CHANGE-PASSWORD * 240-UPDATE-LAST-LOGON-TIME * 240-UPDATE-CUR-LOGON-ATTEMPTS * 540-ADD-SEC-RCD * 600-ADD-LIKE-SEC-RCD * 930-CHECK-SERVER-MSG * 950-SERVER-REPLY * 1020-AUDIT-WRITE * New subprogram: * MOVES-PGM * Dependency: Apply fix to SVISECS and run Make. * Reference: Case #456885 #REPLACE 01357 FD MESSAGE-IN GLOBAL #REPLACE 01371 FD MESSAGE-OUT GLOBAL #REPLACE 01756 FD OMF-REC GLOBAL #REPLACE 01785F01/01785F02 COPY SEC OF "=BASRC_BADDLCOB" REPLACING ==01 SEC.== BY ==01 SEC GLOBAL.==. #REPLACE 02401 01 WS-LAST-FM GLOBAL. #DELETE 02483 /02484 #DELETE 02490O00/02493O02 #ADD 02507 01 SWITCH-AREAS GLOBAL. 05 MOVES-IND PIC 9 VALUE 0. 88 NO-MOVES VALUE 0. 88 ADD-SEC-REC-MOVES VALUE 1. 88 LOCKOUT-ERROR-MOVES VALUE 2. 88 OMF-WRITE-4096-EXT-MOVES VALUE 3. 88 SUPER-PSWD-ZEROES-MOVES VALUE 4. 88 SUPER-PSWD-NONZEROES-MOVES VALUE 5. 88 CHECK-SERVER-MSG-MOVES VALUE 6. 88 SERVER-REPLY-MOVES VALUE 7. #REPLACE 02621 /02622 01 WS-ERR-TXT PIC X(70) GLOBAL. 01 WS-ERR-TXT-R REDEFINES WS-ERR-TXT GLOBAL. #REPLACE 02625W01 01 WS-MSG-HEADER GLOBAL. #REPLACE 02625W0O 01 WS-MSG-HEADER-EXT GLOBAL. #REPLACE 02625W1B 01 WS-LAST-FM-EXT GLOBAL. #REPLACE 02625W1I 01 WS-REC-IMAGE PIC X(4096) GLOBAL. #REPLACE 02632F01/02632F02 COPY FILE-ERRORS OF "=BASRC_BACOUTLS" REPLACING ==FILE-DATA== BY ==FILE-DATA GLOBAL==. #DELETE 03139 #ADD 03154W04 100-SEC-ERROR-TEXT-PRE-FILL. MOVE GUARDIAN-ERR TO WS-GUAR-ERR. MOVE WS-GUAR-ERR TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. #ADD 03348W08 SET LOCKOUT-ERROR-MOVES TO TRUE CALL MOVES-PGM #DELETE 03348W09/03348W0N #DELETE 03437W01/03437W02 #REPLACE 03439 /03439 OFFSET 0 SET SUPER-PSWD-ZEROES-MOVES TO TRUE CALL MOVES-PGM #DELETE 03440 /03450W02 #ADD 03459 SET SUPER-PSWD-NONZEROES-MOVES TO TRUE CALL MOVES-PGM #DELETE 03460W00/03472W02 #REPLACE 03489a1G PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03489a1H/03489a1I #REPLACE 03489a1P PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03489a1Q/03489a1R #REPLACE 03849W06 PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03849W07/03849W08 #REPLACE 03866 PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03867W00/03868 #REPLACE 03946 PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03947W00/03948 #REPLACE 03954 PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03955W00/03956 #DELETE 03957A0L #REPLACE 03957W03/03957W04 PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03957A0N #DELETE 03957A0T #REPLACE 03957W09/03957W0A PERFORM 100-SEC-ERROR-TEXT-PRE-FILL #DELETE 03957A0V #ADD 04823 SET ADD-SEC-REC-MOVES TO TRUE CALL MOVES-PGM #DELETE 04823W00/04829 #ADD 06010 SET ADD-SEC-REC-MOVES TO TRUE CALL MOVES-PGM #DELETE 06010W00/06016 #ADD 08122W08 SET CHECK-SERVER-MSG-MOVES TO TRUE CALL MOVES-PGM. #DELETE 08122W09/08122W0O #ADD 08130W06 SET SERVER-REPLY-MOVES TO TRUE CALL MOVES-PGM #DELETE 08130W07/08134 #ADD 08156 SET OMF-WRITE-4096-EXT-MOVES TO TRUE CALL MOVES-PGM #DELETE 08157 /08172 #ADD 08223 SET OMF-WRITE-4096-EXT-MOVES TO TRUE CALL MOVES-PGM #DELETE 08224 /08236W06 #ADD 08292 IDENTIFICATION DIVISION. PROGRAM-ID. MOVES-PGM. DATA DIVISION. WORKING-STORAGE SECTION. PROCEDURE DIVISION. 0000-MAIN. EVALUATE TRUE WHEN ADD-SEC-REC-MOVES PERFORM 999-ADD-SEC-REC-MOVES WHEN LOCKOUT-ERROR-MOVES PERFORM 999-LOCKOUT-ERROR-MOVES WHEN OMF-WRITE-4096-EXT-MOVES PERFORM 999-OMF-WRITE-4096-EXT-MOVES WHEN SUPER-PSWD-ZEROES-MOVES PERFORM 999-SUPER-PSWD-ZEROES-MOVES WHEN SUPER-PSWD-NONZEROES-MOVES PERFORM 999-SUPER-PSWD-NONZEROES-MOVES WHEN CHECK-SERVER-MSG-MOVES PERFORM 999-CHECK-SERVER-MSG-MOVES WHEN SERVER-REPLY-MOVES PERFORM 999-SERVER-REPLY-MOVES WHEN OTHER CONTINUE END-EVALUATE. SET NO-MOVES TO TRUE. EXIT PROGRAM. 999-ADD-SEC-REC-MOVES. MOVE USER-GRP OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO WS-FM-GROUP-NUMBER. MOVE USER-GRP OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO FM-USER-GRP OF SEC. MOVE USER-NUM OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO WS-FM-USER-NUMBER. MOVE USER-NUM OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO FM-USER-NUM OF SEC. MOVE "A" TO WS-FM-TYPE. MOVE WS-FM-TYPE TO UPDT-TYP OF SEC. 999-LOCKOUT-ERROR-MOVES. MOVE SPACES TO PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE USER-GRP OF SEC TO USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE USER-NUM OF SEC TO USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE SITE-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-IN TO USER-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE ZEROES TO END-TIM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE "****************" TO RESOURCE-NODE OF MSG-SECURITY-EXT OF MESSAGE-OUT(1). 999-OMF-WRITE-4096-EXT-MOVES. MOVE WS-FM-TYPE TO FM-TYP OF OMF. MOVE WS-FM-DATE TO FM-DAT OF OMF. MOVE LN OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO LNET OF OMF. MOVE FIID OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO FIID OF OMF. MOVE REGN OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO REGN OF OMF. MOVE BRCH OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO BRCH OF OMF. MOVE TERM-ID OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO TERM-ID OF OMF. MOVE USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT TO USER-GRP OF OMF. MOVE USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT TO USER-NUM OF OMF. 999-SUPER-PSWD-ZEROES-MOVES. MOVE 0 TO ERR-CDE OF MSG-ERR-EXT. MOVE SPACES TO WS-ERR-TXT. MOVE 0 TO FILE-STAT-ELEMENT. MOVE 0 TO WS-GUAR-ERR. MOVE 255 TO USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE 255 TO USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE SITE-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-IN TO USER-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE ZEROES TO END-TIM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE "N" TO MASKING-FLG OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE "****************" TO RESOURCE-NODE OF MSG-SECURITY-EXT OF MESSAGE-OUT(1). 999-SUPER-PSWD-NONZEROES-MOVES. MOVE 3 TO ERR-CDE OF MSG-ERR-EXT. MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT. MOVE ERR-NUM OF MSG-ERR-EXT TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE "PASSWORD NOT VALID, REENTER ALL PASSWORD DATA " TO WS-ERR-TXT. MOVE WS-ERR-TXT TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE SITE-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-IN TO USER-PROD-IND OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE ZEROES TO END-TIM OF MSG-SECURITY-EXT OF MESSAGE-OUT. MOVE "****************" TO RESOURCE-NODE OF MSG-SECURITY-EXT OF MESSAGE-OUT(1). 999-CHECK-SERVER-MSG-MOVES. MOVE CORRESPONDING MSG-HEADER OF MSG-FILE-MAINT-1024 OF MESSAGE-IN TO WS-MSG-HEADER-EXT. MOVE CORRESPONDING LAST-FM OF MSG-FILE-MAINT-1024 OF MESSAGE-IN TO WS-LAST-FM-EXT. MOVE REC-IMAGE OF MSG-FILE-MAINT-1024 OF MESSAGE-IN TO WS-REC-IMAGE. MOVE CORRESPONDING WS-MSG-HEADER-EXT TO MSG-HEADER OF MSG-FILE-MAINT-1024-EXT OF MESSAGE-IN. MOVE CORRESPONDING WS-LAST-FM-EXT TO LAST-FM OF MSG-FILE-MAINT-1024-EXT OF MESSAGE-IN. MOVE WS-REC-IMAGE TO REC-IMAGE OF MSG-FILE-MAINT-1024-EXT OF MESSAGE-IN. 999-SERVER-REPLY-MOVES. MOVE CORRESPONDING MSG-HEADER OF MSG-FILE-MAINT-1024-EXT OF MESSAGE-OUT TO WS-MSG-HEADER. MOVE REC-IMAGE OF MSG-FILE-MAINT-1024-EXT OF MESSAGE-OUT TO WS-REC-IMAGE. MOVE CORRESPONDING WS-MSG-HEADER TO MSG-HEADER OF MSG-FILE-MAINT-1024 OF MESSAGE-OUT. MOVE WS-ERR-TXT TO ERR-TXT OF MSG-ERR. MOVE WS-LAST-FM TO LAST-FM OF MSG-FILE-MAINT-1024 OF MESSAGE-OUT. MOVE WS-REC-IMAGE TO REC-IMAGE OF MSG-FILE-MAINT-1024 OF MESSAGE-OUT. WRITE MSG-FILE-MAINT-1024 OF MESSAGE-OUT. END PROGRAM MOVES-PGM. END PROGRAM SVISECS-60-34. #ENDSCN = BA0C334 !#CMP2.28 11/24/08 SECTBL 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6030 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6030 * ******************************************************************************** #SCN = BA0C367 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6030 #NEWVERSION = 6031 #ADD 00268d0Q * * 11NOV2008 ACI * Symptom: Refunds 4.0 Version 8. * Problem: None. * Fix: Changes to support new Non-receipted Exception * limit processing. Modifications were made to * support a new RLCT screen 5 to contain limits * to be used in processing of non-receipted * exception transactions. Added entry RLCT5 to * PROD-SCRN-ACCESS-TABLE-DATA table and increased * PROD-SCRN-ACC-TABL and PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fixes to SECTBL and re-make SVISECS. * Reference: W0 080929-40 Exception Processing for WO Rcpt Rtrn #ADD 00740S01 05 RLCT5 PIC X(35) VALUE "RLCT050019LIMITS CONFIG SCREEN ". #ADD 00893d00 05 PROD-SCRN-ACC-TABL OCCURS 621 TIMES. #DELETE 00893d01 #ADD 00906d00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 621. #DELETE 00906d01 #ENDSCN = BA0C367 !#CMP2.28 12/02/08 SVDCCDS 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6004 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6004 * ******************************************************************************** #SCN = BA0C374 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00034D0a * 02DEC2008 eschlis * Symptom: 1. When updating the last BIN Currency record, * the screen reports "ENDING BIN OVERLAPS NEXT * RECORD" and does not update the record. * 2. When a BIN being read does not correspond * to an existing record, the screen reports * "ERROR DURING RECORD READ" with the error * code 0000 instead of reporting the record * was not found. * 3. When an F2 is performed on a partial BIN * that is equivalent to the starting BIN * of an existing record (e.g., 400000 to match * 400000000000), the server reports "RECORD NOT * FOUND" instead of retrieving the record. * Problem: 1. When checking the next record for a BIN range * overlap on an update, if there is not a * subsequent BIN Currency record, the server * makes an invalid comparison with the first * Currency Data record. * 2. When a previous record exists but the range * does not include the target BIN, the server * sets the flag to indicate the error occurred, * but the flag that was set on the read attempt * still says no error, causing the relevant * logic not to recognize it as a record not * found. * 3. The server has no logic to fill in the * starting BIN with zeroes on a read, as it * does when a record is validated or updated. * Fix: 1. Modified the logic to check the type of the * next record on an update before comparing the * BIN ranges. * 2. Added a step that specifically checks for * a nonzero error flag with a zero Guardian * error, as indicating the record was not found. * 3. Added a step to zero-fill the starting BIN * on an F2 read. * Modified paragraphs: 801-UPDATE-CHCK-BIN-RANGE * 910-RCD-READING * Added paragraph: 801-FILL-STRT-BIN * Dependency: Apply fix to SVDCCDS and run Make. * Replace BA60UD0B.SCNDCC. * Reference: Case #482810 #ADD 01164B0e 801-FILL-BINS 801-FILL-STRT-BIN. * * This paragraph will left-justify the starting BINs in the * BIN currency record and fill with zeroes, similar to * 801-FILL-BINS but for the starting BIN only. * MOVE STRT-BIN OF BIN-CRNCY-KEY OF DCCD TO WS-BIN. MOVE "0" TO WS-BIN-FILL-DIGIT. PERFORM 801-FILL-ONE-BIN. IF WS-BIN-OK NOT = "Y" MOVE "Y" TO ERR-STRT-BIN MOVE "Y" TO ERROR-FLAG MOVE STRT-BIN-ERR TO ERR-CDE OF MSG-ERR-EXT MOVE "STARTING BIN MUST BE ALL NUMERIC, NO EMBEDDED SPACES" TO WS-ERR-TXT ELSE MOVE WS-BIN TO STRT-BIN OF BIN-CRNCY-KEY OF DCCD. #ADD 01193 801-UPDATE-CHCK-BIN-RANGE IF REC-TYP OF PRIKEY OF DCCD = "BC" AND NOT WS-END-BIN < #DELETE 01194 801-UPDATE-CHCK-BIN-RANGE #ADD 01495 910-RCD-READING PERFORM 801-FILL-STRT-BIN. IF NO-ERROR #ADD 01553 910-RCD-READING * * If the Guardian error is 0, it means a previous record was * found but its ending BIN was less than the BIN we're * looking for. We'll set the error on the screen to indicate * record not found. * IF GUARDIAN-ERR = 0 MOVE NO-RECORD-MSG TO WS-ERR-TXT MOVE 11 TO WS-GUAR-ERR MOVE "Y" TO ERROR-FLAG ELSE #ENDSCN = BA0C374 !#CMP2.28 02/18/09 COBTKN 6020 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6020 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6020 * ******************************************************************************** #SCN = BA0D027 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6020 #NEWVERSION = 6021 #ADD 00057T0C * 18FEB2009 bensone * Symptom: Banknet Release 09.1 Mandates. * Problem: None. * Fix: Add entry to PROD-TKN-TABLE for new E-Commerce * Additional Data Token (Token ID = "F1"). Update * table index WS-PROD-TKN-TBL by 1. * Dependency: Apply fixes to COBTKN, DDLPSTKN, PSTKNCVS, and * PSTKNID. Run Make. * Reference: WO #081007-04 #ADD 00195T02 05 POS89 PIC X(29) VALUE "F102POS E-COMMERCE ADDL DATA ". #REPLACE 00197T01 02 WS-PROD-TKN-TBL OCCURS 193 TIMES. #REPLACE 00201T01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 193. #ENDSCN = BA0D027 !#CMP2.28 06/22/09 SVISECS 6035 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6035 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6035 * ******************************************************************************** #SCN = BA0D043 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6035 #NEWVERSION = 6036 #ADD 01101i0U * 22JUN2009 ArumugP * Symptom: OMF extract aborted during extract of file * operation security error record. * Problem: When a file operation security error occurs, * security server will log file maintenance type * (FM-TYP) as "J" in the OMF. For this type of * record, the record image field in the OMF should * be spaces and also the record image length * should contain zero to perform smooth extract. * At present security server populating actual * record image and record length in the OMF * when file operation security error occurs. * Fix: Modified the security server to populate the * record image if the the file maintenance type is * not "J". This will set the record image length * as zero in the OMF to perform smooth extract * of file operation security error record. * Modified Paragraphs: * 1020-AUDIT-WRITE * Dependency: Apply fix to SVISECS and run Make. * Reference: Case #495048 #ADD 08205W00 * * OMF record length should be zero for file operation * security error record. Move the security message * to OMF-LEN-HOLD for message length calculation if the * security server not encounters file operation security * error. * IF FM-TYP OF OMF NOT = "J" MOVE MSG-SECURITY-EXT OF MESSAGE-OUT TO OMF-LEN-HOLD END-IF #DELETE 08205W01/08205W02 #ADD 08211W00 * * OMF record image should contain spaces for file operation * security error record. Move the security message to OMF * record image if the security server not encounters file * operation security error. * IF FM-TYP OF OMF NOT = "J" MOVE MSG-SECURITY-EXT OF MESSAGE-OUT TO REC-IMAGE OF OMF END-IF #DELETE 08211W01/08212 #ENDSCN = BA0D043 !#CMP2.28 09/15/09 RQECFS 6038 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQECFS RQECFS 6038 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQECFS RQECFS 6038 * ******************************************************************************** #SCN = BA0D052 , FILEID = RQECFS #VOLUME = $ROOK.BA60AFT #FILE = RQECFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6038 #NEWVERSION = 6039 #ADD 00019l0G * 14SEP2009 FunteR * Symptom: AFT screen will not go past overlay screen 7 * without requiring the user to update the SVHF * extract indicator field. * Problem: The SVHF extract indicator field is spaces as * the initialization of this field was not included * in the conversion program when it was added. * Fix: The SVHF extract indicator field should be * considered to have a value of "N" (the default) * when it is spaces. * Modified proc: 480-DATA-CHECK * Dependency: Apply fix to RQECFS and run Make. * Reference: Case #924451 #ADD 00654h02 480-DATA-CHECK IF SVHF OF FILE-MAP = " " MOVE "N" TO SVHF OF FILE-MAP ELSE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN ECF-SVHF-FILE-MAP IF MOVE-MESSAGE MOVE "SVHF MUST BE 'Y' OR 'N'" TO ERR-TXT SET NEW-CURSOR AT ECF-SVHF-FILE-MAP MOVE "N" TO FLAG-MOVE. #DELETE 00654h03/00654h09 480-DATA-CHECK #ENDSCN = BA0D052 !#CMP2.28 09/28/09 SVIDFS 6051 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIDFS SVIDFS 6051 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIDFS SVIDFS 6051 * ******************************************************************************** #SCN = BA0D056 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6051 #NEWVERSION = 6052 #ADD 00043x0H * 28SEP2009 FunteR * Symptom: BNET transactions are mandated to include * withdrawal from default transactions. These must * be distinguishable from fast cash transactions. * Problem: Base24 does not support withdrawal from default * account. * Fix: Add fast cash code 99 to indicate to Base24 * processes that fast cash transactions received * are to be processed as withdrawal from default * and account type 00 should be sent on to the host. * Modified proc: 480-atm-data-check * Dependency: Restore SCRNIDF. Apply fix to SVIDFS. Run Make. * Apply corresponding fixes to N50 and C1000 * device handlers and AUTH to support functionality * Withdrawal from Default. * Reference: Case #925810 #REPLACE 01122w01 480-ATM-DATA-CHECK - "'31', '60' OR '99'" TO WS-ERR-TXT #ADD 02528w0D 550-TBL-LOOKUP ELSE IF FAST-CASH-ACCT = "99" MOVE "(DEFAULT)" TO FAST-CASH-DESC #ENDSCN = BA0D056 !#CMP2.28 10/20/09 COBTKN 6021 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6021 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6021 * ******************************************************************************** #SCN = BA0D063 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6021 #NEWVERSION = 6022 #ADD 00057U0A * 19OCT2009 Robinsb * Symptom: Banknet Release 09.2 Mandates. * Problem: None. * Fix: Add entry to PROD-TKN-TABLE for POS Surcharge * Token ID 25, Product ID 02. Updated * PROD-TKN-TABLE-CNT and WS-PROD-TKN-TBL occurs * by 1. * Dependency: Apply fixes to COBTKN. Run Make. * Reference: Case #01012369 #ADD 00195U01 05 POS90 PIC X(29) VALUE "2502POS SURCHARGE TOKEN ". #ADD 00197U00 02 WS-PROD-TKN-TBL OCCURS 194 TIMES. #DELETE 00197U01 #REPLACE 00201U01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 194. #ENDSCN = BA0D063 !#CMP2.28 11/06/09 COBTKN 6022 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6022 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6022 * ******************************************************************************** #SCN = BA0D316 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6022 #NEWVERSION = 6023 #ADD 00000 OFFSET 23 *############################################################### *# # *# BASE24 # *# ------ # *# # *# COBOL Token file # *# # *# Proprietary Software Product # *# # *# ACI Worldwide, Inc. # *# 6060 Coventry Drive # *# Elkhorn, Nebraska 68022-6482 # *# (402) 390-7600 # *# # *# Copyright by ACI Worldwide, Inc. 2009 # *# # *# All Rights Reserved. # !# # *############################################################### #DELETE 00001 /00019 #ADD 00057V0A * 06NOV2009 BhattaD * Symptom: ATM Bulk Check Infrastructure Support. * Problem: None. * Fix: Added entries to the PROD-TKN-TABLE for the * Bulk Check MICR Token (AV), Bulk Check Amount * Token (AW), Bulk Check SSBC Token (AX) and Bulk * Check Disposition Token (AY). * Incremented the table WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT by 4 for the new entries. * Dependency: Apply fix to COBTKN and run Make. * Refer to BA60UD0D.SCNBCA for a complete listing * of dependencies. * Reference: WO #090227-01 #ADD 00195U02 05 ATM87 PIC X(29) VALUE "AV01BULK CHECK MICR TOKEN ". 05 ATM88 PIC X(29) VALUE "AW01BULK CHECK AMOUNT TOKEN ". 05 ATM89 PIC X(29) VALUE "AX01BULK CHECK SSBC TOKEN ". 05 ATM90 PIC X(29) VALUE "AY01BULK CHECK DISP TOKEN ". #REPLACE 00197V01 02 WS-PROD-TKN-TBL OCCURS 198 TIMES. #REPLACE 00201V01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 198. #ENDSCN = BA0D316 !#CMP2.28 11/06/09 RQCPFS 6062 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6062 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6062 * ******************************************************************************** #SCN = BA0D317 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6062 #NEWVERSION = 6063 #ADD 00000s00 *############################################################### *# # *# BASE24 # *# ------ # *# # *# Card Prefix File Requester Source file # *# # *# Proprietary Software Product # *# # *# ACI Worldwide, Inc. # *# 6060 Coventry Drive # *# Elkhorn, Nebraska 68022-6482 # *# (402) 390-7600 # *# # *# Copyright by ACI Worldwide, Inc. 2009 # *# # *# All Rights Reserved. # *# # *############################################################### #DELETE 00000s01/00000s0R #ADD 00022<11 * 06NOV2009 PrasadSu * Symptom: Increase Size of Segments in the CPF. * Problem: None. * Fix: Added support for the change in the segment sizes * in the DDL for CPF by redefining two * working storage variables LEFTOVER and * REC-IMAGE-REST. * Dependency: Apply fixes to DDLFCPF, SVCPFS and RQCPFS. * Run Make. Refer to BA60UD0D.SCNCPFI for a * complete listing of dependencies. * Reference: WO #090220-01 * 06NOV2009 PrasadSu * Symptom: Network 2008 Mandates for POS Acquiring. * Problem: None. * Fix: Added support for the screen #8 since three new * fields PARTIAL AMOUNT SUPPORT, PARTIAL AUTH * ROUTING and PARTIAL AUTH LIMIT are added to this * screen. * REC-IMAGE-REST. * Modified paragraphs: * 400-MOVE-RECORD * 480-ERR-FLAG-OV-8 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Added paragraphs: * 480-FLAG-OV-8-FIELD-8 * 480-FLAG-OV-8-FIELD-9 * Dependency: Apply fixes to DDLFCPF, SVCPFS, SCRNCPF and * RQCPFS. Run Make. Refer to BA60UD0D.SCNNETM * for a complete listing of dependencies. * Reference: WO #080605-01 * 06NOV2009 BhattaD * Symptom: Contactless from Unattended PIN Required * Terminals. * Problem: None. * Fix: Added support for the Screen #7 to accept two new * values "3" and "4" of the field PIN PROCESSING * FLAG. Increased the length of the variable * WS-PIN-REQ-DESC to support the enhanced * description. * Modified paragraphs: * 400-MOVE-RECORD * 550-FILL-DFLT-ACCT-TABLE * Dependency: Apply fix to DDLFCPF, SVCPFS, SCRNCPF and RQCPFS. * Run Make. Refer to BA60UD0D.SCNCUT for a complete * listing of dependencies. * Reference: WO #071024-01 * 06NOV2009 HazraR * Symptom: Inhibit CVD Validation for EMV Transactions * Problem: None. * Fix: Added support to validate new values in the * EMV CV CHECK METHOD field on screen 11 of CPF. * Modified Paragraph: 550-TABLE-LOOK-UP * Dependency: Apply fix to RQCPFS, SCRNCPF and SVCPFS. Run * Make. * Refer to BA60UD0D.SCNCVDI for a complete listing * of dependencies. * Reference: Case #485844 #ADD 00060&03 DATA DIVISION 05 WS-EMV-CV-MTH-DESC PIC X(22). #DELETE 00060&04 DATA DIVISION #ADD 00060z08 DATA DIVISION 05 WS-PIN-REQ-DESC PIC X(34). #DELETE 00060d01 DATA DIVISION #ADD 00074;03 DATA DIVISION 05 WS-PARTIAL-AUTH-SPPT-DESC PIC X(17). 05 WS-PARTIAL-AUTH-RTE-DESC PIC X(17). #ADD 00115%05 DATA DIVISION 10 REC-IMAGE-REST PIC X(1519). #DELETE 00115%06 DATA DIVISION #ADD 00115&03 DATA DIVISION 05 LEFTOVER PIC X(2328). #DELETE 00115&04 DATA DIVISION #ADD 00475d01 400-MOVE-RECORD IF PIN-REQ OF SEG2 = 4 MOVE "(PIN NOT REQD IN CONTACTLESS TXNS)" TO WS-PIN-REQ-DESC ELSE IF PIN-REQ OF SEG2 = 3 MOVE "(PIN REQD FROM PIN CAPABLE TERM) " TO WS-PIN-REQ-DESC ELSE IF PIN-REQ OF SEG2 = 2 MOVE "(PIN NOT REQD FROM ATTENDED TERM) " TO WS-PIN-REQ-DESC #DELETE 00475d02/00475d03 400-MOVE-RECORD #ADD 00475%0E 400-MOVE-RECORD IF PARTIAL-AUTH-SPPT OF SEG2 = SPACES MOVE "2" TO PARTIAL-AUTH-SPPT OF SEG2. IF PARTIAL-AUTH-RTE OF SEG2 = SPACES MOVE "0" TO PARTIAL-AUTH-RTE OF SEG2. #ADD 00670*02 480-ERR-FLAG-OV-8 480-FLAG-OV-8-FIELD-8, 480-FLAG-OV-8-FIELD-9, #ADD 00670%1Q 480-FLAG-OV-8-FIELD-7 480-FLAG-OV-8-FIELD-8. TURN TEMP SERROR IN P-PARTIAL-AUTH-SPPT. SET NEW-CURSOR AT P-PARTIAL-AUTH-SPPT. 480-FLAG-OV-8-FIELD-9. TURN TEMP SERROR IN P-PARTIAL-AUTH-RTE. SET NEW-CURSOR AT P-PARTIAL-AUTH-RTE. #ADD 01399*0R 550-TABLE-LOOK-UP IF PARTIAL-AUTH-SPPT OF SEG2 = " " MOVE "2" TO PARTIAL-AUTH-SPPT OF SEG2. IF PARTIAL-AUTH-SPPT OF SEG2 = 0 MOVE "(NOT ALLOWED)" TO WS-PARTIAL-AUTH-SPPT-DESC ELSE IF PARTIAL-AUTH-SPPT OF SEG2 = 1 MOVE "(ALLOWED)" TO WS-PARTIAL-AUTH-SPPT-DESC ELSE IF PARTIAL-AUTH-SPPT OF SEG2 = 2 MOVE "(LESSER ALLOWED)" TO WS-PARTIAL-AUTH-SPPT-DESC ELSE MOVE "(***************)" TO WS-PARTIAL-AUTH-SPPT-DESC. IF PARTIAL-AUTH-RTE OF SEG2 = " " MOVE "0" TO PARTIAL-AUTH-RTE OF SEG2. IF PARTIAL-AUTH-RTE OF SEG2 = 0 MOVE "(STANDARD)" TO WS-PARTIAL-AUTH-RTE-DESC ELSE IF PARTIAL-AUTH-RTE OF SEG2 = 1 MOVE "(AUTH LIMIT)" TO WS-PARTIAL-AUTH-RTE-DESC ELSE IF PARTIAL-AUTH-RTE OF SEG2 = 2 MOVE "(UNDER FLOOR)" TO WS-PARTIAL-AUTH-RTE-DESC ELSE MOVE "(***************)" TO WS-PARTIAL-AUTH-RTE-DESC. #ADD 01416&0G 550-TABLE-LOOK-UP MOVE "(STANDARD/STANDARD)" TO WS-EMV-CV-MTH-DESC #DELETE 01416&0H 550-TABLE-LOOK-UP #ADD 01416&0J 550-TABLE-LOOK-UP MOVE "(NO SRV CODE/STANDARD)" TO WS-EMV-CV-MTH-DESC #DELETE 01416&0K 550-TABLE-LOOK-UP #ADD 01416&0L 550-TABLE-LOOK-UP IF WS-EMV-CV-CHK-MTHD = "2" MOVE "(STANDARD/NONE)" TO WS-EMV-CV-MTH-DESC ELSE IF WS-EMV-CV-CHK-MTHD = "3" MOVE "(NO SERVICE CODE/NONE)" TO WS-EMV-CV-MTH-DESC ELSE #ADD 01436d01 550-FILL-DFLT-ACCT-TABLE IF PIN-REQ OF SEG2 = 4 MOVE "(PIN NOT REQD IN CONTACTLESS TXNS)" TO WS-PIN-REQ-DESC ELSE IF PIN-REQ OF SEG2 = 3 MOVE "(PIN REQD FROM PIN CAPABLE TERM) " TO WS-PIN-REQ-DESC ELSE IF PIN-REQ OF SEG2 = 2 MOVE "(PIN NOT REQD FROM ATTENDED TERM) " TO WS-PIN-REQ-DESC #DELETE 01436d02/01436d03 550-FILL-DFLT-ACCT-TABLE #ADD 01584<07 595-CLEAR-DATA MOVE "2" TO PARTIAL-AUTH-SPPT OF SEG2. MOVE "0" TO PARTIAL-AUTH-RTE OF SEG2. MOVE ZERO TO PARTIAL-AUTH-LMT OF SEG2. #ENDSCN = BA0D317 !#CMP2.28 11/06/09 SVCPFS 6040 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6040 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6040 * ******************************************************************************** #SCN = BA0D319 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6040 #NEWVERSION = 6041 #ADD 00000S00 *############################################################### *# # *# BASE24 # *# ------ # *# # *# CPF SERVER # *# # *# Proprietary Software Product # *# # *# ACI Worldwide, Inc. # *# 6060 Coventry Drive # *# Elkhorn, Nebraska 68022-6482 # *# (402) 390-7600 # *# # *# Copyright by ACI Worldwide, Inc. 2009 # *# # *# All Rights Reserved. # *# # *############################################################### #DELETE 00000S01/00001S02 #ADD 00017n0y * 06NOV2009 PrasadSu * Symptom: Increase Size of Segments in the CPF. * Problem: None. * Fix: Added support for the change in the segment sizes * in the DDL for CPF by redefining the following * working storage variables: * ATM-SEG-LGTH * EMV-SEG-LGTH * LEFTOVER * POS-SEG-LGTH * REC-IMAGE-REST * WS-RECORD-HOLD * Dependency: Apply fixes to DDLFCPF, SVCPFS and RQCPFS. * Run Make. Refer to BA60UD0D.SCNCPFI for a * complete listing of dependencies. * Reference: WO #090220-01 * 06NOV2009 PrasadSu * Symptom: Network 2008 Mandates for POS Acquiring. * Problem: None. * Fix: Added support for the screen #8 since three new * fields PARTIAL AMOUNT SUPPORT, PARTIAL AUTH * ROUTING and PARTIAL AUTH LIMIT are added to * this screen. * Modified paragraph: * 480-DATA-CHECK-SCREEN8 * Dependency: Apply fixes to DDLFCPF, SVCPFS, SCRNCPF and * RQCPFS. Run Make. Refer to BA60UD0D.SCNNETM * for a complete listing of dependencies. * Reference: WO #080605-01 * 06NOV2009 BhattaD * Symptom: Contactless from Unattended PIN Required * Terminals. * Problem: None. * Fix: Added support for screen #7 to validate the new * values "3" and "4" for the existing field * PIN-REQ OF SEG2 and update the error message. * Modified paragraph: * 480-DATA-CHECK-SCREEN7 * Dependency: Apply fix to DDLFCPF, SVCPFS, SCRNCPF and RQCPFS. * Run Make. * Refer to BA60UD0D.SCNCUT for a complete * listing of dependencies. * Reference: WO #071024-01 * 06NOV2009 HazraR * Symptom: Inhibit CVD Validation for EMV Transactions * Problem: None. * Fix: Added support to validate new values in the * EMV CV CHECK METHOD field on screen 11 of CPF. * Modified Paragraph: 480-DATA-CHECK-SCREEN11 * Dependency: Apply fix to RQCPFS, SCRNCPF and SVCPFS. * Run Make. * Refer to BA60UD0D.SCNCVDI for a complete * listing of dependencies. * Reference: Case #485844 #ADD 00225e00 DATA DIVISION 10 REC-IMAGE-REST PIC X(1519). #DELETE 00225e01 DATA DIVISION #ADD 00225f03 DATA DIVISION 05 LEFTOVER PIC X(2328). #DELETE 00225f04 DATA DIVISION #ADD 00245X00 DATA DIVISION 01 WS-RECORD-HOLD PIC X(1522). #DELETE 00245X01 DATA DIVISION #ADD 00288e01 DATA DIVISION 05 ATM-SEG-LGTH PIC S9(4) COMP VALUE 110. 05 POS-SEG-LGTH PIC S9(4) COMP VALUE 220. 05 EMV-SEG-LGTH PIC S9(4) COMP VALUE 116. #DELETE 00288e02/00288e04 DATA DIVISION #ADD 00387e0L DATA DIVISION 05 INVALID-PARTIAL-AUTH-SPPT PIC X(65) VALUE "PARTIAL AMOUNT SUPPORT MUST BE 0, 1 OR 2". 05 INVALID-PARTIAL-AUTH-RTE PIC X(65) VALUE "PARTIAL AUTH ROUTING MUST BE 0, 1 OR 2". #ADD 00749XIP 480-DATA-CHECK-SCREEN7 PIN-REQ OF SEG2 OF CPF NOT = 2 AND PIN-REQ OF SEG2 OF CPF NOT = 3 AND PIN-REQ OF SEG2 OF CPF NOT = 4 ) #DELETE 00749XIQ 480-DATA-CHECK-SCREEN7 #ADD 00749XIT 480-DATA-CHECK-SCREEN7 MOVE "PIN REQUIRED MUST BE '0', '1', '2', '3' OR '4'" #DELETE 00749XIU 480-DATA-CHECK-SCREEN7 #ADD 00749e2H 480-DATA-CHECK-SCREEN10 IF ( PARTIAL-AUTH-SPPT OF SEG2 OF CPF NOT = "0" AND PARTIAL-AUTH-SPPT OF SEG2 OF CPF NOT = "1" AND PARTIAL-AUTH-SPPT OF SEG2 OF CPF NOT = "2" ) THEN ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-PARTIAL-AUTH-SPPT TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( PARTIAL-AUTH-RTE OF SEG2 OF CPF NOT = "0" AND PARTIAL-AUTH-RTE OF SEG2 OF CPF NOT = "1" AND PARTIAL-AUTH-RTE OF SEG2 OF CPF NOT = "2" ) THEN ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-PARTIAL-AUTH-RTE TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749k94 480-DATA-CHECK-SCREEN11 EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "1" AND EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "2" AND EMV-CV-CHK-MTHD OF SEG9 OF CPF NOT = "3" #DELETE 00749k95 480-DATA-CHECK-SCREEN11 #ADD 00749k98 480-DATA-CHECK-SCREEN11 MOVE "EMV CV CHECK METHOD MUST BE '0' TO '3'" #DELETE 00749k99 480-DATA-CHECK-SCREEN11 #ENDSCN = BA0D319 !#CMP2.28 03/17/10 SVTKNS 6004 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVTKNS SVTKNS 6004 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVTKNS SVTKNS 6004 * ******************************************************************************** #SCN = BA0E013 , FILEID = SVTKNS #VOLUME = $ROOK.BA60AFT #FILE = SVTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6004 #NEWVERSION = 6005 #ADD 00011D14 * 17MAR2010 saderc * Symptom: The screen is experiencing an error message #0033 * (NO GAPS MAY EXIST IN THE TOKEN ORDER) during an * UPDATE of a record on screen 3. * Problem: If the user performs an update on a record that * that has be updated by another user, the table in * the interprocess message is being updated as if * the update was successful even though the record * was not updated. The problem is that the first * position has the value of the EXTR ORDER field for * the token being updated. However, the table has * not been sorted so there are two tokens with the * with the same value in the EXTR ORDER field. As a * result, any subsequent update is going to fail * with an error message #0033. * Fix: Modified server to reset the EXTR ORDER field * to zero in the table, if the ORDER FLAG is set to * "Y" when an update fails because the record has * already been updated by another user. Also, * modified the server to reset the EXTR ORDER field * to zero in the table, if the ORDER FLAG is set to * "Y" when an update fails because the record does * not exist. * Modified Paragraphs: 310-UPDATE-REC * 999-CHECK-LAST-UPDATE * Dependency: Apply fix to SVTKNS. Run Make. * Reference: Case #1020992 #ADD 00482 310-UPDATE-REC IF WS-ORDR-FLG = "Y" PERFORM 480-NO-ORDR VARYING I FROM 1 BY 1 UNTIL I > WS-TTL-TKN-CNT #ADD 01423 999-CHECK-LAST-UPDATE IF WS-ORDR-FLG = "Y" PERFORM 480-NO-ORDR VARYING I FROM 1 BY 1 UNTIL I > WS-TTL-TKN-CNT #ENDSCN = BA0E013 !#CMP2.28 04/15/10 SVCPFS 6041 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6041 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6041 * ******************************************************************************** #SCN = BA0E019 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6041 #NEWVERSION = 6042 #ADD 00017o0w * 15APR2010 RobinsB * Symptom: If records are added, deleted or read next for up * to ten different logical nets then "record added/ * updated to an incorrect LN" error advisory is * is returned when adding or deleting a record and * "file indicator is invalid" error advisory is * returned on a read next. * Problem: LN entries are held internally in a five element * array however processing is coded for a ten * element array. * Fix: Modified the code so that processing is coded for * a five element array. * Modified Paragraphs: * 200-READ-RCD * 909-LNET-TBL-MAINT * Dependency: Apply fix to SVCPFS. Run Make. * Reference: Case #01018860 #ADD 00505 200-READ-RCD IF NO-ERROR PERFORM 908-DETERMINE-LNET VARYING J FROM 1 BY 1 UNTIL J > MAX-L-NETS. #ADD 01194V1C 909-LNET-TBL-MAINT IF L > 4 #DELETE 01194V1D 909-LNET-TBL-MAINT #ENDSCN = BA0E019 !#CMP2.28 04/30/10 SVISECS 6036 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6036 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6036 * ******************************************************************************** #SCN = BA0E031 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6036 #NEWVERSION = 6037 #ADD 01101j0M * 27APR2010 MeyersC * Symptom: Terminal ID, User Group and User Number were * missing in the OMF record for File Maintenance * Type "J" records (file operation security error). * Problem: When a user attempts to access a screen they do * not have access to, The OMF record doesn't contain * the Terminal ID, User Group and User Number. * Fix: Modified the code to fill in the Terminal ID, * User Group and User Number for File Maintenance * Type "J" records. * Modified paragraph: 260-GET-FILE-ACCESS-INFO * Dependency: Apply fix to SVISECS and RQMEGAS. Run Make. * Reference: Case #1073215 #ADD 04066 MOVE USER-GRP OF SEC TO USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE USER-NUM OF SEC TO USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT #ADD 04072W02 MOVE USER-GRP OF SEC TO USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE USER-NUM OF SEC TO USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT #ADD 04079W02 MOVE USER-GRP OF SEC TO USER-GRP OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE USER-NUM OF SEC TO USER-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT #ENDSCN = BA0E031 !#CMP2.28 04/30/10 RQMEGAS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6048 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQMEGAS RQMEGAS 6048 * ******************************************************************************** #SCN = BA0E032 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00020v0V * 27APR2010 MeyersC * Symptom: Terminal ID, User Group and User Number were * missing in the OMF record for File Maintenance * Type "J" records (file operation security error). * Problem: When a user attempts to access a screen they do * not have access to, The OMF record doesn't contain * the Terminal ID, User Group and User Number. * Fix: Modified the code to fill in the Terminal ID, * User Group and User Number for File Maintenance * Type "J" records. * Modified paragraph: 315-CALL-SEC-FOR-ACCESS * Dependency: Apply fix to RQMEGAS and SVISECS. Run Make. * Reference: Case #1073215 #ADD 00970m06 315-CALL-SEC-FOR-ACCESS MOVE TERMINAL-FILENAME TO TERM-ID OF MSG-FILE-MAINT-1024-EXT. MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF SEC. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF SEC. #ENDSCN = BA0E032 !#CMP2.28 06/04/10 COBTKN 6023 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6023 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6023 * ******************************************************************************** #SCN = BA0E042 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6023 #NEWVERSION = 6024 #ADD 00057W0E * 03JUN2010 WisharJ * Symptom: BASE24 Networks First Testing * Problem: Fields stm.term^capture^flag and pstm.term^typ * are not passed to BASE24-eps in the Standard * External Message, by the Migration HISO 'bridge' * process. These fields are required for processing * on BASE24-eps. * Fix: Added entries to the PROD-TKN-TABLE for the * MIGR ATM DATA1 Token (M1) and MIGR POS DATA1 Token * (M2). These tokens will be used to pass data to * BASE24-eps during the migration of BASE24 to * BASE24-eps. * Dependency: Apply fixes to BATKNID, DDLBATKN and BATKNCVS. * Apply fix to COBTKN. * Apply fixes to AUTHG, AUTHS and AUTHM. Run Make. * Refer to BA60UD0E.SCNMIGR1 for a complete listing * of dependencies. * Reference: Case #01071731, #01062163 #ADD 00195W04 05 ATM91 PIC X(29) VALUE "M101MIGR ATM DATA1 TOKEN ". 05 POS91 PIC X(29) VALUE "M202MIGR POS DATA1 TOKEN ". #REPLACE 00197W01 02 WS-PROD-TKN-TBL OCCURS 200 TIMES. #REPLACE 00201W01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 200. #ENDSCN = BA0E042 !#CMP2.28 06/14/10 RQCAFS 6066 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6066 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6066 * ******************************************************************************** #SCN = BA0E049 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6066 #NEWVERSION = 6067 #ADD 00023@0J * 15JUN2010 saderc * Symptom: An OMF record is being written with zeroes in the * user group and user number fields. * Problem: The requester uses the MSG-FILE-MAINT-1024-EXT * record to call the security server for the purpose * of writing an OMF record because of a file access * error. However, the user-grp and user-num fields * are not being formatted with the values in the * user context record. * Fix: Added code to move the values in the user-grp and * user-num of the USER-CONTEXT-EXT record to * user-grp and user-num fields in the * MSG-FILE-MAINT-1024-EXT record. In addition, the * value moved to the appl-cde field in the * MSG-FILE-MAINT-1024-EXT record was changed from * "00" (LOGON) to "70" (CAF). Also, the field moved * to the term-id field of the * MSG-FILE-MAINT-1024-EXT record was changed from * logical-terminal-file to the terminal-filename. * Modified Paragraphs: 401-CHECK-FIID-ACCESS * 401-FILE-ACCESS-ERROR * Dependency: Apply fix to RQCAFS. Run Make. * Reference: Case #1080118 #ADD 00738y07 401-CHECK-FIID-ACCESS MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738y0B 401-CHECK-FIID-ACCESS MOVE "70" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738n0C 401-CHECK-FIID-ACCESS MOVE TERMINAL-FILENAME TO #ADD 00769=0B 401-FILE-ACCESS-ERROR MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #ADD 00769=0D 401-FILE-ACCESS-ERROR MOVE "70" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO #DELETE 00769=0E/00769=0F 401-FILE-ACCESS-ERROR #ENDSCN = BA0E049 !#CMP2.28 06/15/10 RQSECS 6023 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQSECS RQSECS 6023 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQSECS RQSECS 6023 * ******************************************************************************** #SCN = BA0E050 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6023 #NEWVERSION = 6024 #REPLACE 00019W0c/00019W0c OFFSET 0 * * 16JUN2010 FunteR * Symptom: Following a read beyond the END OF FILE, the * Access screen still displays the last page of * data and subsequent changes to that data cause * display errors. * Problem: The server clears the access buffers when there is * a file error, but the Working Storage access * buffers are not updated to reflect the data. * Fix: When there is a file error on screen access next * page reads, clear the working storage buffers. * Modified procs: 320-NEXT-VIRTUAL-SCREEN * Dependency: Apply fix to RQSECS and run Make. * Reference: Case #1076305 #ADD 00524 320-NEXT-VIRTUAL-SCREEN PERFORM 595-CLEAR-ACCESS-INFO VARYING I FROM 1 BY 1 UNTIL I > 12 PERFORM 990-DISPLAY-RECORD #ENDSCN = BA0E050 !#CMP2.28 06/22/10 RQNEGS 6018 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQNEGS RQNEGS 6018 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQNEGS RQNEGS 6018 * ******************************************************************************** #SCN = BA0E051 , FILEID = RQNEGS #VOLUME = $ROOK.BA60AFT #FILE = RQNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6018 #NEWVERSION = 6019 #ADD 00023R0x * 22JUN2010 saderc * Symptom: An OMF record is being written with zeroes in the * user group and user number fields. * Problem: This problem was originally reported by a * customer in case #1080118 for the CAF file. The * problem is that the requester uses the * MSG-FILE-MAINT-1024-EXT record to call the * security server for the purpose of writing an OMF * record because of a file access error. However, * the user-grp and user-num fields are not being * formatted with the values in the user context * record. * Fix: Added code to move the values in the user-grp and * user-num of the USER-CONTEXT-EXT record to * user-grp and user-num fields in the * MSG-FILE-MAINT-1024-EXT record. In addition, the * value moved to the appl-cde field in the * MSG-FILE-MAINT-1024-EXT record was changed from * "00" (LOGON) to "50" (NEG). Also, the field moved * to the term-id field of the * MSG-FILE-MAINT-1024-EXT record was changed from * logical-terminal-file to the terminal-filename. * Modified Paragraphs: 401-CHECK-FIID-ACCESS * 401-FILE-ACCESS-ERROR * Dependency: Apply fixes to RQNEGS, RQCHFS, RQNNFS and RQUAFS. * Run Make. * Reference: Case #1080448 #ADD 00191Q05 401-CHECK-FIID-ACCESS MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #ADD 00191Q07 401-CHECK-FIID-ACCESS MOVE "50" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO #DELETE 00191Q08/00191Q09 401-CHECK-FIID-ACCESS #ADD 00220R09 401-FILE-ACCESS-ERROR MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #ADD 00220R0B 401-FILE-ACCESS-ERROR MOVE "50" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO #DELETE 00220R0C/00220R0D 401-FILE-ACCESS-ERROR #ENDSCN = BA0E051 !#CMP2.28 06/22/10 RQUAFS 6017 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQUAFS RQUAFS 6017 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQUAFS RQUAFS 6017 * ******************************************************************************** #SCN = BA0E052 , FILEID = RQUAFS #VOLUME = $ROOK.BA60AFT #FILE = RQUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6017 #NEWVERSION = 6018 #ADD 00023Q0i * 22JUN2010 saderc * Symptom: An OMF record is being written with zeroes in the * user group and user number fields. * Problem: This problem was originally reported by a * customer in case #1080118 for the CAF file. The * problem is that the requester uses the * MSG-FILE-MAINT-1024-EXT record to call the * security server for the purpose of writing an OMF * record because of a file access error. However, * the user-grp and user-num fields are not being * formatted with the values in the user context * record. * Fix: Added code to move the values in the user-grp and * user-num of the USER-CONTEXT-EXT record to * user-grp and user-num fields in the * MSG-FILE-MAINT-1024-EXT record. In addition, the * value moved to the appl-cde field in the * MSG-FILE-MAINT-1024-EXT record was changed from * "00" (LOGON) to "55" (UAF). Also, the field moved * to the term-id field of the * MSG-FILE-MAINT-1024-EXT record was changed from * logical-terminal-file to the terminal-filename. * Modified Paragraphs: 401-CHECK-FIID-ACCESS * 401-FILE-ACCESS-ERROR * Dependency: Apply fixes to RQUAFS, RQCHFS, RQNEGS and RQNNFS. * Run Make. * Reference: Case #1080448 #ADD 00713O04 401-CHECK-FIID-ACCESS MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #ADD 00713O06 401-CHECK-FIID-ACCESS MOVE "55" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO #DELETE 00713O07/00713O08 401-CHECK-FIID-ACCESS #ADD 00740Q09 401-FILE-ACCESS-ERROR MOVE USER-GRP OF USER-CONTEXT-EXT TO USER-GRP OF MSG-FILE-MAINT-1024-EXT. MOVE USER-NUM OF USER-CONTEXT-EXT TO USER-NUM OF MSG-FILE-MAINT-1024-EXT. #ADD 00740Q0B 401-FILE-ACCESS-ERROR MOVE "55" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. MOVE TERMINAL-FILENAME TO #DELETE 00740Q0C/00740Q0D 401-FILE-ACCESS-ERROR #ENDSCN = BA0E052 !#CMP2.28 08/02/10 SVCAFS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6045 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6045 * ******************************************************************************** #SCN = BA0E055 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00013s0E * 26JUL2010 RobinsB * Symptom: When multiple users are simultaneously trying to * read data from different CAF files one is able to * read the data and the others are experiencing * SEND/REPLY ERROR's. * Problem: When more than one Institution's CAF records are * are being simultaneously accessed and there is * more than one CAFD file to be simultaneously * accessed then the server is unable to open the * second CAFD file and a SEND/REPLY ERROR results. * Fix: Modified all the CAFD file IO to comply with the * design specification, i.e. to, where applicable, * mimic existing CAF file IO and use TAL IO and not * COBOL IO, for server IO of multiple CAFD files. * Modified Paragraphs: * 200-READ-RCD * 600-READ-NEXT-RCD * 905-CLOSE-FILES * 907-OPEN-MULT-FILES * 907-OPEN-MULT-CAFDS * 909-TABL-MAINT * 911-READ-CAFD * 914-CLOSE-MULT-FILES * Dependency: Apply fix to SVCAFS and Run Make. * Reference: Case #01073600 #DELETE 00083n01 ENVIRONMENT DIVISION #DELETE 00097n01/00097n04 DATA DIVISION #ADD 00292O01 DATA DIVISION COPY CAFD OF "=BASRC_BADDLCOB". #ADD 00409L01 DATA DIVISION 01 F-NAME-CAFD-I-GRP. 05 F-NAME-CAFD-I PIC X(24) OCCURS 10 TIMES. #DELETE 00409L02/00409L03 DATA DIVISION #ADD 00415L01 DATA DIVISION 01 F-NAME-CAFD-E-GRP. 05 F-NAME-CAFD-E PIC X(35) OCCURS 10 TIMES. #DELETE 00415L02/00415L03 DATA DIVISION #ADD 00422L01 DATA DIVISION 01 F-NUM-CAFD-GRP. 05 F-NUM-CAFD PIC S9(4) COMP OCCURS 10 TIMES. 01 POS-MODE PIC 9(1) VALUE 2. #DELETE 00422L02/00422L04 DATA DIVISION #ADD 00646L03 200-READ-RCD * THERE MAY NOT BE A CAFD, IF THERE IS THEN THE CORRESPONDING * F-NUM-CAFD ENTRY WILL BE POSITIVE OTHERWISE ZERO * IF NO-ERROR AND ( F-NUM-CAFD ( FILE-INDICATOR ) > 0 ) PERFORM 911-READ-CAFD ELSE INITIALIZE CAFD END-IF #DELETE 00646n00/00646n02 200-READ-RCD #ADD 01099 600-READ-NEXT-RCD * * THERE MAY NOT BE A CAFD, IF THERE IS THEN THE CORRESPONDING * F-NUM-CAFD ENTRY WILL BE POSITIVE OTHERWISE ZERO * IF ( F-NUM-CAFD ( FILE-INDICATOR ) > 0 ) PERFORM 911-READ-CAFD ELSE INITIALIZE CAFD END-IF PERFORM 204-CONVERT-NUM-TO-28 MOVE FM-USER-GRP OF CAF TO WS-FM-GRP-NUM MOVE FM-USER-NUM OF CAF TO WS-FM-USER-NUM MOVE UPDT-TYP OF CAF TO WS-FM-TYPE PERFORM 915-FETCH-TIME-STAMP VARYING I FROM 1 BY 1 UNTIL I > 3 PERFORM 50-FORMAT-TIMESTAMP PERFORM 207-FETCH-PRESENT-TIME PERFORM 700-TIMESTAMP-COMPARISON-LOOP PERFORM 315-DETER-PR-SEG22-LENGTH MOVE CALCULATED-SEG22-LGTH TO LGTH OF SEG-LGTH OF SEG22 OF CAF MOVE SEG-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG22 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG22 OF CAF PERFORM 315-CHECK-PRE-AUTH PERFORM 700-TIMESTAMP-COMPARISON-EPA PERFORM 315-DETER-PR-SEG25-LENGTH MOVE CALCULATED-SEG25-LGTH TO LGTH OF SEG-LGTH OF SEG25 OF CAF MOVE SEG-ENHNC-PRE-AUTH-HLD-C TO ID OF SEG-DATA OF SEG-LGTH OF SEG25 OF CAF MOVE B24-RSRVD-C TO B24-RSRVD OF SEG25 OF CAF PERFORM 315-CHECK-ENHNC-PRE-AUTH MOVE 1 TO REPL-CDE OF MSG-ERR-EXT MOVE 0 TO ERR-CDE OF MSG-ERR-EXT MOVE F-NAME (FILE-INDICATOR) TO RETRIEVE-FILENAME IF WS-ERR-TXT-ADDL = SPACES MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT ELSE MOVE RETRIEVAL-OK-MSG TO WS-ERR-TXT-MSG OF WS-ERR-TXT-R2 END-IF MOVE WS-FM-DATE TO WS-FM-DATE-SAVE PERFORM 99-FETCH-PRESENT-TIME MOVE 32 TO IOBUFLEN MOVE IOBUFLEN TO REC-IMAGE-LEN OF OMF MOVE "F" TO WS-FM-TYPE MOVE LN OF MSG-ERR-EXT TO LN OF CRD-KEY MOVE FIID OF CAF TO FIID OF CRD-KEY MOVE PAN OF CAF TO PAN OF CRD-KEY MOVE MBR-NUM OF CAF TO MBR-NUM OF CRD-KEY MOVE "00" TO ACCT-TYP OF CRD-KEY MOVE CRD-KEY TO WS-AUDIT-HOLD MOVE SPACES TO CRD-KEY PERFORM 1000-CALL-AUDIT MOVE WS-FM-DATE-SAVE TO WS-FM-DATE MOVE UPDT-TYP OF CAF TO WS-FM-TYPE PERFORM 205-DO-MOVES-TO-REC-IMAGE MOVE CAF TO RECORD-IMAGE-CAF END-IF. #DELETE 01099n00/01116 600-READ-NEXT-RCD #DELETE 01463n00/01464 907-OPEN-MULT-FILES #ADD 01466L0L 907-OPEN-MULT-FILES MOVE ZERO TO F-NUM-CAFD ( J ) IF NOT NO-ERROR MOVE SPACES TO F-NAME (J) MOVE SPACES TO F-NAME-I(J) MOVE SPACES TO TABLE-NET(J) MOVE SPACES TO TABLE-FIID(J) PERFORM 100-CAF-ERROR-TEXT-FILL ELSE IF CAFD-NAME OF IDF NOT = SPACES MOVE CAFD-NAME OF IDF TO F-NAME-CAFD-E (J) PERFORM 907-OPEN-MULT-CAFDS END-IF END-IF. #DELETE 01466L0M/01493 907-DETERMINE-EXPAND-ACCESS #ADD 01506n01 907-OPEN-MULT-CAFDS * * NO ERROR CONDITION SHOULD BE RAISED IF THE CAFD DOESN'T EXIST * AS THIS IS A VALID CONDITION FOR THE CAFD * * BOTH THE CAF AND CAFD FILES SHARE THE SAME INDEX TO THEIR * RESPECTIVE FILE NUMBER TABLES - IF THERE IS NO CAFD PAIRED * WITH A CAF THEN THE CORRESPONDING CAFD FILE NUMBER TABLE ENTRY * WILL BE SET TO ZERO * MOVE "N" TO ERROR-FLAG MOVE SPACES TO DEFAULT-NAMES. ENTER TAL "FNAMEEXPAND" USING F-NAME-CAFD-E ( J ), F-NAME-CAFD-I ( J ), DEFAULT-NAMES. ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, F-NAME-CAFD-I ( J ). IF WS-GUAR-ERR = 0 ENTER TAL "OPEN" USING F-NAME-CAFD-I ( J ), F-NUM-CAFD ( J ), OMITTED, 1 ENTER TAL "FILEINFO" USING F-NUM-CAFD(J), WS-GUAR-ERR, F-NAME-CAFD-I(J) IF WS-GUAR-ERR = 0 MOVE F-NAME-CAFD-E ( J ) TO F-NAME-CHAR PERFORM 907-DETERMINE-EXPAND-ACCESS END-IF END-IF. #DELETE 01506n02/01506n0L 907-GET-FILE-SYSTEM-NAME #DELETE 01601n00/01601n06 909-TABL-MAINT #DELETE 01632T00/01632n04 909-TABL-MAINT #DELETE 01632n05/01632n0B 909-TABL-MAINT #ADD 01716n01 911-READ-CAFD * * DO NOT RAISE ANY EXCEPTION FOR A NO CAFD RECORD - SUBSEQUENT * CAFD DEPENDENT PROCESSING WILL WORK OFF INITIALIZED VALUES * ENTER TAL "KEYPOSITION" USING F-NUM-CAFD ( FILE-INDICATOR ), PRIKEY OF CAF, OMITTED, OMITTED, POS-MODE. ENTER TAL "FILEINFO" USING F-NUM-CAFD ( FILE-INDICATOR ), WS-GUAR-ERR. IF WS-GUAR-ERR = 0 ENTER TAL "READUPDATE" USING F-NUM-CAFD ( FILE-INDICATOR ), CAFD, FUNCTION LENGTH ( CAFD ) ENTER TAL "FILEINFO" USING F-NUM-CAFD ( FILE-INDICATOR ), WS-GUAR-ERR END-IF IF WS-GUAR-ERR NOT = 0 INITIALIZE CAFD END-IF. #DELETE 01716n02/01716n0R 911-FIID-CHECK #ADD 01812 914-CLOSE-MULT-FILES ENTER TAL "CLOSE" USING F-NUM ( J ) IF ( F-NUM-CAFD ( J ) > 0 ) ENTER TAL "CLOSE" USING F-NUM-CAFD ( J ) END-IF END-IF. #DELETE 01813 /01814n04 915-FETCH-TIME-STAMP #ENDSCN = BA0E055 !#CMP2.28 08/30/10 RQAPCFXS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQAPCFXS RQAPCFXS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQAPCFXS RQAPCFXS 6000 * ******************************************************************************** #SCN = BA0E069 , FILEID = RQAPCFXS #VOLUME = $ROOK.BA60AFT #FILE = RQAPCFXS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00053 * 30AUG2010 FunteR * Symptom: The first record does not appear on the summary * list when a new record is added that affects * the first page. * Problem: When record is inserted, we are not reading past * the previous number of records when scrolling up. * Fix: When we are on the first page, read from the * beginning of the list regardless of whether we * are scrolling up. * Modified paragraph: 335-SCROLL-UP * Dependency: Apply fix to RQAPCFXS and run Make. * Reference: Case #1082132 #ADD 00944 335-SCROLL-UP PERFORM 595-INIT-PROC-CDE-LIST VARYING I FROM 1 BY 1 UNTIL I > 12 PERFORM 230-FETCH-SUMMARY #ENDSCN = BA0E069 !#CMP2.28 01/04/11 SVAPCFTS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVAPCFTS SVAPCFTS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVAPCFTS SVAPCFTS 6000 * ******************************************************************************** #SCN = BA0F001 , FILEID = SVAPCFTS #VOLUME = $ROOK.BA60AFT #FILE = SVAPCFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00043 ! 04JAN2011 saderc ! Symptom: When the user presses SF3 (Scroll Up) on page 2 there ! is a record omitted from page 1 when another user has ! added a new record during this process. ! Problem: When the user presses SF3, the requester sends a request ! to the server to perform the scroll up logic. During ! this process, the server will decrement the page number ! by 1 and return previous 12 records to be displayed on ! the screen. When the requester receives the response ! from the server, it will check to see if the page number ! is equal to 1. If so, then the requester sends another ! request to read the records in the APCF using low values ! as the key. This works fine as long as another user ! hasn't added a new record(s). The problem is that if ! another user has added a new record(s), then there will ! be more records to read when arriving at page number 1 ! while scrolling up through the records in the APCF. To ! correct the problem, the page number should be ! incremented from 1 to 2 when there are additional ! records to read after the scroll up logic has been ! performed. ! Fix: The SF3 (Scroll Up) logic was modified to increment the ! page number by 1, if there are more records to read and ! the page number equals 1. ! Proc Modified: apcf_util_read_summary_rec ! Dependency: Apply fix to SVAPCFTS. Run Make. ! Reference: Case #1106403 #ADD 06022 APCF_UTIL_READ_SUMMARY_REC if apcf_rqst.overlay_1_flds.page_num = 1 and apcf_rqst.overlay_1_flds.direction = summary_scrn_pg_bkwd_d then begin apcf_rqst.overlay_1_flds.page_num := apcf_rqst.overlay_1_flds.page_num + 1; end; #ENDSCN = BA0F001 !#CMP2.28 02/24/11 COBTKN 6024 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6024 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6024 * ******************************************************************************** #SCN = BA0F008 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6024 #NEWVERSION = 6025 #ADD 00057X0J * 25FEB2011 bensone * Symptom: MDS Release 11.1 * Problem: None. * Fix: Global 511 - Support for MasterCard Transit * Standards. Added entries to the PROD-TKN-TABLE * for the new PAN-MAPPING-TKN (S8). * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. Run Make. * Reference: WO #001165 #ADD 00195X03 05 ATM92 PIC X(29) VALUE "S801ATM PAN MAPPING TOKEN ". 05 POS92 PIC X(29) VALUE "S802POS PAN MAPPING TOKEN ". #REPLACE 00197X01 02 WS-PROD-TKN-TBL OCCURS 202 TIMES. #REPLACE 00201X01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 202. #ENDSCN = BA0F008 !#CMP2.28 03/21/11 RQNEGS 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQNEGS RQNEGS 6019 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQNEGS RQNEGS 6019 * ******************************************************************************** #SCN = BA0F022 , FILEID = RQNEGS #VOLUME = $ROOK.BA60AFT #FILE = RQNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00023S0S * 19MAR2011 gruberg * Symptom: Discover ISO IIN Range Compliance * Problem: None. * Fix: The list of card types in the delcaration for * C-FLAG is incomplete, but unused. Delete unused * declaration for C-FLAG. * Dependency: Apply fix to RQNEGS. Run Make. * Reference: WO #PR001966 #DELETE 00072 /00074 DATA DIVISION #ENDSCN = BA0F022 !#CMP2.28 04/20/11 COBTKN 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6025 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6025 * ******************************************************************************** #SCN = BA0F026 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00057Y0A * 20APR2011 bensone * Symptom: Banknet Installment Payment Support for Greece * Problem: None * Fix: Add entry to PROD-TKN-TABLE for the new * Installment Payment Data Token (Token ID = "F2"). * Dependency: Apply fixes to COBTKN, DDLPSTKN, PSTKNCVS, and * PSTKNID. Run Make. * Reference: WO #091208-01 #ADD 00195Y02 05 POS93 PIC X(29) VALUE "F202POS INSTALL PAYMENT DATA ". #REPLACE 00197Y01 02 WS-PROD-TKN-TBL OCCURS 203 TIMES. #REPLACE 00201Y01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 203. #ENDSCN = BA0F026 !#CMP2.28 05/13/11 SVTDFLTS6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVTDFLTS SVTDFLTS 6003 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVTDFLTS SVTDFLTS 6003 * ******************************************************************************** #SCN = BA0F031 , FILEID = SVTDFLTS #VOLUME = $ROOK.BA60AFT #FILE = SVTDFLTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6003 #NEWVERSION = 6004 #ADD 00044C0J ! 16MAY2011 RobinsB ! Symptom: The PTD requester does not report a screen error if a ! matching PTDS1 record is not found, displaying instead ! the following PTDS1 record as the matching record. ! Problem: The code reads all records sequentially having first ! logged a F2 READ EXACT or a F6 READ NEXT request from ! the requester in order to subsequently confirm that the ! collated record data to be returned is for an F2 or an ! F6 by comparing the key of the data to be returned ! against the key initially received from the requester. ! However no test is made of the retrieved PTDD1/PTDS1 ! keys to be identical prior to data amalgamation. ! Fix: Modified the code to test that the retrieved PTDD1/PTDS1 ! keys are identical before amalgamating the data to be ! returned to the requester and if not to respond ! appropriately. ! Proc modified: SVTDFL_FILE_READ ! Dependency: Apply fix to SVTDFLTS. Run Make. ! Reference: Case #01124650 #ADD 01246 SVTDFL_FILE_READ string .ext temp2; #DELETE 01247 SVTDFL_FILE_READ #ADD 01570 SVTDFL_FILE_READ ! ! the key of the record just read should equal ! that passed in the call to lib_tdf_read above ! @temp2 := addr.addr_rec[ io.rec_num]; cur_key ':=' temp2 for key_lgth; if cur_key <> temp for key_lgth then begin msg.msg_header.repl_cde := resp_bad_l; msg.msg_header.err_status.err_cde := fe_notfound_l; msg.msg_header.err_txt ':=' "RECORD DOES NOT EXIST IN " & files.files[ i ].nam.fname for $len( files.files.nam.fname ); return false; end; #ENDSCN = BA0F031 !#CMP2.28 08/03/11 SVDCCDS 6005 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVDCCDS SVDCCDS 6005 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVDCCDS SVDCCDS 6005 * ******************************************************************************** #SCN = BA0F045 , FILEID = SVDCCDS #VOLUME = $ROOK.BA60AFT #FILE = SVDCCDS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6005 #NEWVERSION = 6006 #ADD 00034E0i * 03AUG2011 saderc * Symptom: The server is not displaying records that exist * in the database when the user performs an F2-READ * on screen 2 (record type "CD"). The message * "RECORD DOES NOT EXIST PLEASE CHECK INPUT DATA * 0011" is displayed. * Problem: The server is reading the record on screen 2. * However, the server is performing a data check on * a field from screen 1. This causes the read to * fail. * Fix: The server was modified to only perform the data * check on the field from screen 1 if the record * type is "BC", which is associated to screen 1. * Modified paragraphs: 910-RCD-READING * Dependency: Apply fix to SVDCCDS. Run Make. * Reference: Case #1151751 #ADD 01495E00 910-RCD-READING IF REC-TYP OF PRIKEY OF DCCD = "BC" PERFORM 801-FILL-STRT-BIN END-IF END-IF. #DELETE 01495E01 910-RCD-READING #ENDSCN = BA0F045 !#CMP2.28 12/20/11 COBTKN 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6026 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6026 * ******************************************************************************** #SCN = BA0F073 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00057Z09 * 20DEC2011 swiftd * Symptom: BASE24 Migration Enhancements * Problem: None * Fix: Added new token to the table PROD-TKN-TABLE. * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN, and * DDLBATKN. * Refer to BA60UD0F.SCNMIGR2 for a complete listing * of dependencies. * Reference: WO #050513-02 #ADD 00195Z01 05 ATM93 PIC X(29) VALUE "M401MIGR EPS HISO TOKEN ". 05 POS94 PIC X(29) VALUE "M402MIGR EPS HISO TOKEN ". #REPLACE 00197Z01 02 WS-PROD-TKN-TBL OCCURS 205 TIMES. #REPLACE 00201Z01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 205. #ENDSCN = BA0F073 !#CMP2.28 12/22/11 SVCAFS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6046 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6046 * ******************************************************************************** #SCN = BA0F085 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00013t0Q * 22DEC2011 saderc * Symptom: Screen 13 (EMV Information) is displaying invalid * data when a Read is performed for a CAF record * that doesn't have the EMV segment turned on. * Problem: The values in the EMV segment fields were not * being cleared when the EMV segment does not exist * for a FIID. If a read is performed for a CAF * record that does not have Segment 9 configured, * data from a previous read with EMV data is being * displayed. * Fix: Modified the logic to clear Segment 9 data when * the EMV Segment is not present for the FIID. * Modified Paragraph: 911-RCD-RETRIEVE * Added Paragraph: 913-CLEAR-EMV-SEG * Dependency: Apply fix to SVCAFS. Run Make. * Reference: Case #1178429 #ADD 01743R01 911-RCD-RETRIEVE IF BYTE-MAP-R(10) = "1" ENTER TAL "RETRIEVE^SEG^FROM^REC^EXT" OF TALLIB USING PTR-ARRAY, SEG-EMV-C, SEG9 OF CAF, WS-GUAR-ERR IF WS-GUAR-ERR NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE 9 TO RETRIEVE-SEG-NUM MOVE RETRIEVE-SEG-ERR TO WS-ERR-TXT PERFORM 100-CAF-ERROR-TEXT-FILL ELSE * * VALIDATE THE ACTION TABLE INDEX FIELD * MOVE ACTION-TABLE-INDEX OF SEG9 TO WS-ACTION-TABLE-INDEX IF NOT VALID-ACTION-TABLE-INDEX * * SET THE FIELD TO A DEFAULT VALUE, * IF THE ACTION TABLE INDEX ON CAF IS INVALID * MOVE "1" TO ACTION-TABLE-INDEX OF SEG9 END-IF * * VALIDATE THE EMV IAD FORMAT FIELD * MOVE ISS-APPL-DATA-FRMT OF SEG9 TO WS-ISS-APPL-DATA-FRMT IF NOT VALID-ISS-APPL-DATA-FRMT * * SET THE FIELD TO A DEFAULT VALUE, * IF THE EMV IAD FORMAT ON CAF IS INVALID * MOVE "0" TO ISS-APPL-DATA-FRMT OF SEG9 END-IF END-IF ELSE PERFORM 913-CLEAR-EMV-SEG END-IF END-IF. #DELETE 01743R02/01743k0I 911-RCD-RETRIEVE #ADD 01809X0U 913-CLEAR-CMS-SEG 913-CLEAR-EMV-SEG. MOVE ZEROS TO ACCESS-SCRIPT-MGMT-SUB-SYS OF SEG9, ATC OF SEG9, ATC-2 OF SEG9, ISS-APPL-DATA-FRMT OF SEG9, PIN-SYNC-ACT OF SEG9, SEND-PIN-CHNG OF SEG9, SEND-PIN-UNBLK OF SEG9, DATA-TAG OF VLCTY-LMTS OF SEG9, LWR-CONSEC-LMT OF VLCTY-LMTS OF SEG9, CAP-ATC OF CAP-DATA OF SEG9, CAP-ATC OF CAP-DATA-2 OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA OF SEG9, BAD-CAP-TKN-CHK-ACCUM OF CAP-DATA-2 OF SEG9. MOVE "00" TO DKI OF CAP-DATA OF SEG9, DKI OF CAP-DATA-2 OF SEG9. MOVE "N" TO BAD-CAP-TKN-OVRRD-FLG OF SEG9, SEND-CRD-BLK OF SEG9, SEND-PUT-DATA OF SEG9. MOVE "1" TO ACTION-TABLE-INDEX OF SEG9. MOVE 9999 TO ATC-LMT OF SEG9. #ENDSCN = BA0F085 !#CMP2.28 02/15/12 COBTKN 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6027 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6027 * ******************************************************************************** #SCN = BA0G007 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00057a0A * 15FEB2012 bensone * Symptom: Banknet Release 12.Q2 Mandates. * Problem: None. * Fix: Add entry to PROD-TKN-TABLE for new * Transit Transaction Token (Token ID = "F3"). * Update WS-PROD-TKN-TBL to 206. * Update PROD-TKN-TABLE-CNT to 206. * Dependency: Apply fixes to COBTKN, DDLPSTKN, PSTKNCVS, and * PSTKNID. Run Make. * Reference: WO #004134 #ADD 00195a03 05 POS95 PIC X(29) VALUE "F302POS TRANSIT TRANSACTION ". #REPLACE 00197a01 02 WS-PROD-TKN-TBL OCCURS 206 TIMES. #REPLACE 00201a01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 206. #ENDSCN = BA0G007 !#CMP2.28 02/16/12 RQHCFS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQHCFS RQHCFS 6045 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQHCFS RQHCFS 6045 * ******************************************************************************** #SCN = BA0G012 , FILEID = RQHCFS #VOLUME = $ROOK.BA60AFT #FILE = RQHCFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00019s0H * 17FEB2012 gruberg * Symptom: BASE24 MDS Release 12.Q2 Functional Enhancements * Problem: None * Fix: Modified logic to allow values '8' and '9' to be * entered in the PSEM TYPE field on HCF Screen 7. * Paragraphs modified: 480-DATA-CHECK * 550-TABLE-LOOK-UP * Dependency: Apply fix to RQHCFS. Run Make. * Reference: WO #004135 #REPLACE 00365j0Q 480-DATA-CHECK IF PSEM-TYP OF SEG2 > 9 #REPLACE 00365j0W 480-DATA-CHECK MOVE "PSEM TYPE MUST BE '0' - '9'" TO ERR-TXT #ADD 00568i0H 550-DESCR-OVERLAY-7 IF PSEM-TYP OF SEG2 = 6 MOVE "(RESERVED)" TO WS-PSEM-TYP ELSE IF PSEM-TYP OF SEG2 = 7 MOVE "(RESERVED)" TO WS-PSEM-TYP ELSE IF PSEM-TYP OF SEG2 = 8 MOVE "(AUTH ONLY FOR DC FLG OF 2)" TO WS-PSEM-TYP ELSE IF PSEM-TYP OF SEG2 = 9 MOVE "(AUTH ONLY FOR DC FLG OF 0 & 2)" TO WS-PSEM-TYP ELSE #ENDSCN = BA0G012 !#CMP2.28 03/07/12 SECTBL 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SECTBL SECTBL 6031 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SECTBL SECTBL 6031 * ******************************************************************************** #SCN = BA0G020 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 00268e0E * 07MAR2012 Tanseys * Symptom: BASE24 Networks First Enhancement for VISA FRLF. * Problem: None. * Fix: Added entries for VISA screens FRLF1 and FRLF2 * to PROD-SCRN-ACCESS-TABLE-DATA table and increased * PROD-MAX-TABL-ENTRIES by 2. * Dependency: Apply fixes to SECTBL and run Make. * Refer to BA60UD0G.SCNFRLF for a complete listing * of dependencies. * Reference: WO #004405 #ADD 00507 05 FRLF1 PIC X(35) VALUE "FRLF010000FRLF VISA REQUEST FILE ". 05 FRLF2 PIC X(35) VALUE "FRLF020000FRLF VISA REQUEST FILE ". #REPLACE 00893e01 05 PROD-SCRN-ACC-TABL OCCURS 623 TIMES. #REPLACE 00906e01 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 623. #ENDSCN = BA0G020 !#CMP2.28 03/07/12 MEGATBL 6009 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.MEGATBL MEGATBL 6009 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.MEGATBL MEGATBL 6009 * ******************************************************************************** #SCN = BA0G021 , FILEID = MEGATBL #VOLUME = $ROOK.BA60AFT #FILE = MEGATBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6009 #NEWVERSION = 6010 #ADD 00046I0I * 07MAR2012 Tanseys * Symptom: BASE24 Networks First Enhancement for VISA FRLF. * Problem: None. * Fix: Added VISA FRLF to PROD-RQ-EXT-FRMT-TBL-DATA. * Dependency: Apply fixes to MEGATBL, and run Make. * Refer to BA60UD0G.SCNFRLF for a complete listing * of dependencies. * Reference: WO #004405 #ADD 00086 "FRLF", #ENDSCN = BA0G021 !#CMP2.28 03/07/12 SVMHLPS 6013 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVMHLPS SVMHLPS 6013 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVMHLPS SVMHLPS 6013 * ******************************************************************************** #SCN = BA0G022 , FILEID = SVMHLPS #VOLUME = $ROOK.BA60AFT #FILE = SVMHLPS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6013 #NEWVERSION = 6014 #ADD 00101M0T * 07MAR2012 tanseys * Symptom: BASE24 Networks First Enhancement for VISA FRLF. * Problem: None. * Fix: Added FRLF to BASE-TABLE. Incremented BASE-ENTRY * and BASE-ENTRIES-L. * Dependency: Apply fixes to SVMHLPS and run Make. * Refer to BA60UD0G.SCNFRLF for a complete listing * of dependencies. * Reference: WO #004405 #ADD 00158A03 DATA DIVISION 05 FILLER PIC X(31) VALUE "FRLF VISA FILE REQUEST LOG ". #REPLACE 00203M01 DATA DIVISION 05 BASE-ENTRY OCCURS 36 TIMES. #REPLACE 00206M01 DATA DIVISION 01 BASE-ENTRIES-L PIC S9(4) COMP VALUE 36. #ENDSCN = BA0G022 !#CMP2.28 08/15/12 COBTKN 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6028 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6028 * ******************************************************************************** #SCN = BA0G033 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00057b0B * 15AUG2012 bensone * Symptom: Banknet Release 12.Q4 Mandates * Problem: None. * Fix: Add entry to PROD-TKN-TABLE for new * Digital Wallet token (Token ID = "F4"). * Update WS-PROD-TKN-TBL to 207. * Update PROD-TKN-TABLE-CNT to 207. * Dependency: Apply fixes to AUTHLIBS, BAUTILS, BNETDDLS, * BNETG, BNETLIBS, BNETS, COBTKN, DDLFCPF, DDLIDF, * DDLPSTKN, OKLIBTS, PSTKNCVS, PSTKNID, RQCPFS, * RQIDFS, RTAUEMVG, RTAUEMVS, RTAUG, SCRNCPF, * SCRNIDF, SUBTPTBL, SVCPFS AND SVIDFS. * Run Make. * Replace BAMISCTD, LCONFBA, BNETLOGM, BNETMNWD, * and BNETUPDT. * Reference: WO #004536 #ADD 00195b01 05 POS96 PIC X(29) VALUE "F402POS DIGITAL WALLET ". #REPLACE 00197b01 02 WS-PROD-TKN-TBL OCCURS 207 TIMES. #REPLACE 00201b01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 207. #ENDSCN = BA0G033 !#CMP2.28 08/15/12 RQCPFS 6063 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6063 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6063 * ******************************************************************************** #SCN = BA0G034 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6063 #NEWVERSION = 6064 #ADD 00022=10 * 15AUG2012 bensone * Symptom: Banknet Release 12.Q4 Mandates * Problem: None. * Fix: Add support for new field MANUAL FALLBACK ACTION * on screen #13 to specify the authorization * action required when a manually-entered fallback * transaction is processed. * Modified paragraphs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-ERR-FLAG-OV-13 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Added paragraphs: * 480-FLAG-OV-13-FIELD-9 * Dependency: Apply fixes to AUTHLIBS, BAUTILS, BNETDDLS, * BNETG, BNETLIBS, BNETS, COBTKN, DDLFCPF, DDLIDF, * DDLPSTKN, OKLIBTS, PSTKNCVS, PSTKNID, RQCPFS, * RQIDFS, RTAUEMVG, RTAUEMVS, RTAUG, SCRNCPF, * SCRNIDF, SUBTPTBL, SVCPFS AND SVIDFS. * Run Make. * Replace BAMISCTD, LCONFBA, BNETLOGM, BNETMNWD, * and BNETUPDT. * Reference: WO #004536 #ADD 00060u04 DATA DIVISION 05 WS-FALLBACK-ACTN-MANUAL PIC X. 05 WS-FALLBACK-MANUAL-DESC PIC X(15). #ADD 00484u05 400-MOVE-RECORD IF FALLBACK-ACT-MANUAL OF SEG9 = SPACES MOVE "0" TO FALLBACK-ACT-MANUAL OF SEG9. MOVE FALLBACK-ACT-MANUAL TO WS-FALLBACK-ACTN-MANUAL. #ADD 00498u04 400-SAVE-RECORD MOVE WS-FALLBACK-ACTN-MANUAL TO FALLBACK-ACT-MANUAL. #ADD 00670<13 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-8, 480-FLAG-OV-13-FIELD-9 #DELETE 00670<14 480-ERR-FLAG-OV-13 #ADD 00670<1G 480-FLAG-OV-13-FIELD-8 480-FLAG-OV-13-FIELD-9. TURN TEMP SERROR IN P-FALLBACK-ACTN-MANUAL. SET NEW-CURSOR AT P-FALLBACK-ACTN-MANUAL. #ADD 01416u10 550-TABLE-LOOK-UP IF WS-FALLBACK-ACTN-MANUAL = "0" MOVE "(CONTINUE)" TO WS-FALLBACK-MANUAL-DESC ELSE IF WS-FALLBACK-ACTN-MANUAL = "1" MOVE "(DENY & RETURN)" TO WS-FALLBACK-MANUAL-DESC ELSE IF WS-FALLBACK-ACTN-MANUAL = "3" MOVE "(REFER)" TO WS-FALLBACK-MANUAL-DESC ELSE MOVE "(*************)" TO WS-FALLBACK-MANUAL-DESC. #ADD 01570u0K 595-CLEAR-DATA WS-FALLBACK-ACTN-MANUAL, #ENDSCN = BA0G034 !#CMP2.28 08/15/12 SVCPFS 6042 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6042 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6042 * ******************************************************************************** #SCN = BA0G036 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6042 #NEWVERSION = 6043 #ADD 00017p0I * 15AUG2012 bensone * Symptom: Banknet Release 12.Q4 Mandates * Problem: None. * Fix: Add support for new field MANUAL FALLBACK ACTION * on screen #13 to specify the authorization action * required when a manually-entered fallback * transaction is processed. * Modified paragraphs: * 480-DATA-CHECK-SCREEN13 * 620-CLEAR-SEG9 * Dependency: Apply fixes to AUTHLIBS, BAUTILS, BNETDDLS, * BNETG, BNETLIBS, BNETS, COBTKN, DDLFCPF, DDLIDF, * DDLPSTKN, OKLIBTS, PSTKNCVS, PSTKNID, RQCPFS, * RQIDFS, RTAUEMVG, RTAUEMVS, RTAUG, SCRNCPF, * SCRNIDF, SUBTPTBL, SVCPFS AND SVIDFS. * Run Make. * Replace BAMISCTD, LCONFBA, BNETLOGM, BNETMNWD, * and BNETUPDT. * Reference: WO #004536 #ADD 00749n26 480-DATA-CHECK-SCREEN13 IF FALLBACK-ACT-MANUAL OF SEG9 OF CPF NOT = "0" AND FALLBACK-ACT-MANUAL OF SEG9 OF CPF NOT = "1" AND FALLBACK-ACT-MANUAL OF SEG9 OF CPF NOT = "3" ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "MANUAL FALLBACK ACTION MUST BE 0, 1 OR 3" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00876W0C 620-CLEAR-SEG9 FALLBACK-ACT-MANUAL OF SEG9 #ENDSCN = BA0G036 !#CMP2.28 08/15/12 RQIDFS 6058 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQIDFS RQIDFS 6058 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQIDFS RQIDFS 6058 * ******************************************************************************** #SCN = BA0G037 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6058 #NEWVERSION = 6059 #ADD 00115+0o * 15AUG2012 bensone * Symptom: Banknet Release 12.Q4 Mandates * Problem: None. * Fix: Add support for new field MONEY TRANSFER CREDIT * on screen #19 to specify whether Money Transfer * Credit transactions, e.g. MasterCard MoneySend * Payment Transactions, are supported. * Modified paragraphs: * 400-CHANGE-VERIF-GUAR-TO-Y-N * 400-CHANGE-VERIF-GUAR-TO-1-0 * 481-ERR-FLAG-OV-19 * 595-SET-VERIF-GUAR * Added paragraphs: * 481-FLAG-OV-19-FIELD-9 * Dependency: Apply fixes to AUTHLIBS, BAUTILS, BNETDDLS, * BNETG, BNETLIBS, BNETS, COBTKN, DDLFCPF, DDLIDF, * DDLPSTKN, OKLIBTS, PSTKNCVS, PSTKNID, RQCPFS, * RQIDFS, RTAUEMVG, RTAUEMVS, RTAUG, SCRNCPF, * SCRNIDF, SUBTPTBL, SVCPFS AND SVIDFS. * Run Make. * Replace BAMISCTD, LCONFBA, BNETLOGM, BNETMNWD, * and BNETUPDT. * Reference: WO #004536 #ADD 00190g00 DATA DIVISION 05 WS-MONEY-XFER-CR-FLAG PIC X. #DELETE 00190g01 DATA DIVISION #ADD 01052z01 400-CHANGE-VERIF-GUAR-TO-Y-N IF MONEY-XFER-CR-FLG OF SEG2 = "0" MOVE "N" TO WS-MONEY-XFER-CR-FLAG ELSE MOVE "Y" TO WS-MONEY-XFER-CR-FLAG. #ADD 01052z09 400-CHANGE-VERIF-GUAR-TO-1-0 IF WS-MONEY-XFER-CR-FLAG = "N" MOVE "0" TO MONEY-XFER-CR-FLG OF SEG2 ELSE MOVE "1" TO MONEY-XFER-CR-FLG OF SEG2. #ADD 01879z06 481-ERR-FLAG-OV-19 481-FLAG-OV-19-FIELD-8, 481-FLAG-OV-19-FIELD-9 #DELETE 01879z07 481-ERR-FLAG-OV-19 #ADD 01890z0P 481-FLAG-OV-19-FIELD-8 481-FLAG-OV-19-FIELD-9. TURN TEMP SERROR IN I-MONEY-XFER-CR-FLAG. SET NEW-CURSOR AT I-MONEY-XFER-CR-FLAG. #ADD 03265z00 595-SET-VERIF-GUAR MOVE "Y" TO WS-MONEY-XFER-CR-FLAG. #ENDSCN = BA0G037 !#CMP2.28 08/15/12 SVIDFS 6052 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVIDFS SVIDFS 6052 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVIDFS SVIDFS 6052 * ******************************************************************************** #SCN = BA0G039 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6052 #NEWVERSION = 6053 #ADD 00043z0H * 15AUG2012 bensone * Symptom: Banknet Release 12.Q4 Mandates * Problem: None. * Fix: Add support for new field MONEY TRANSFER CREDIT * on screen #19 to specify whether Money Transfer * Credit transactions, e.g. MasterCard MoneySend * Payment Transactions, are supported. * Modified paragraphs: * 480-POS-DATA-CHECK * Dependency: Apply fixes to AUTHLIBS, BAUTILS, BNETDDLS, * BNETG, BNETLIBS, BNETS, COBTKN, DDLFCPF, DDLIDF, * DDLPSTKN, OKLIBTS, PSTKNCVS, PSTKNID, RQCPFS, * RQIDFS, RTAUEMVG, RTAUEMVS, RTAUG, SCRNCPF, * SCRNIDF, SUBTPTBL, SVCPFS AND SVIDFS. * Run Make. * Replace BAMISCTD, LCONFBA, BNETLOGM, BNETMNWD, * and BNETUPDT. * Reference: WO #004536 #ADD 00123q34 DATA DIVISION 09 WS-MONEY-XFER-CR-FLAG PIC X. #DELETE 00123q35 DATA DIVISION #ADD 00167q0J DATA DIVISION 01 WS-INVLD-MONEY-XFER-CR-AMT-MSG PIC X(40) VALUE "MONEY TRANSFER CREDIT MUST BE 'Y' OR 'N'". #ADD 00290 DATA DIVISION 01 MONEY-XFER-CR-AMT-VAL PIC X. 88 VALID-MONEY-XFER-CR-AMT VALUE "Y", "N". #ADD 01241S02 480-POS-DATA-CHECK IF OVERLAY-NUM = 19 MOVE WS-MONEY-XFER-CR-FLAG TO MONEY-XFER-CR-AMT-VAL IF NOT VALID-MONEY-XFER-CR-AMT ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE WS-INVLD-MONEY-XFER-CR-AMT-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0G039 !#CMP2.28 08/15/12 SVNEGS 6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVNEGS SVNEGS 6011 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVNEGS SVNEGS 6011 * ******************************************************************************** #SCN = BA0G049 , FILEID = SVNEGS #VOLUME = $ROOK.BA60AFT #FILE = SVNEGS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00013K0H * 15AUG2012 bensone * Symptom: When a READ NEXT reads 51 records without finding * an FIID match, two OMF "I" records are logged. * When a READ NEXT reads at least 1 record without * an FIID match but subsequently finds a matching * record, two OMF records are logged, an "I" record * and an "F" record. * Problem: An OMF "I" record is logged at the start of the * loop in 911-FIID-CHECK when CTR-READ-NEXT = 0 if * the FIID in the record does not match the FIID in * the request. If a later record matches on FIID an * OMF "F" record is logged in 600-READ-NEXT-RCD. * If no matching record is found, an OMF "I" record * is logged at the end of the loop in * 610-REPOSITION-FILE when CTR-READ-NEXT = 51. * Fix: Modified the READ NEXT logic to start with * CTR-READ-NEXT = 1, to bypass the write to the * OMF in 911-FIID-CHECK when CTR-READ-NEXT = 0. * Modified Paragraphs: * 600-READ-NEXT-RCD * Dependency: Apply fix to SVNEGS and SVUAFS. Run Make. * Reference: Case #1213032 #REPLACE 00958 600-READ-NEXT-RCD MOVE 1 TO CTR-READ-NEXT #ENDSCN = BA0G049 !#CMP2.28 08/15/12 SVUAFS 6018 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVUAFS SVUAFS 6018 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVUAFS SVUAFS 6018 * ******************************************************************************** #SCN = BA0G050 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6018 #NEWVERSION = 6019 #ADD 00017R0l * 15AUG2012 bensone * Symptom: When a READ NEXT reads 51 records without finding * an FIID match, two OMF "I" records are logged. * When a READ NEXT reads at least 1 record without * an FIID match but subsequently finds a matching * record, two OMF records are logged, an "I" record * and an "F" record. * Problem: An OMF "I" record is logged at the start of the * loop in 911-FIID-CHECK when CTR-READ-NEXT = 0 if * the FIID in the record does not match the FIID in * the request. If a later record matches on FIID an * OMF "F" record is logged in 600-READ-NEXT-RCD. * If no matching record is found, an OMF "I" record * is logged at the end of the loop in * 610-READ-UAF-LOOP when CTR-READ-NEXT = 51. * Fix: Modified the READ NEXT logic to start with * CTR-READ-NEXT = 1, to bypass the write to the * OMF in 911-FIID-CHECK when CTR-READ-NEXT = 0. * Modified Paragraphs: * 600-READ-NEXT-RCD * Dependency: Apply fix to SVNEGS and SVUAFS. Run Make. * Reference: Case #1213032 #REPLACE 01260 600-READ-NEXT-RCD MOVE 1 TO CTR-READ-NEXT #ENDSCN = BA0G050 !#CMP2.28 08/16/12 SVCAFS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCAFS SVCAFS 6047 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCAFS SVCAFS 6047 * ******************************************************************************** #SCN = BA0G051 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00013u0H * 17AUG2012 bensone * Symptom: When a READ NEXT reads 51 records without finding * an FIID match, two OMF "I" records are logged. * When a READ NEXT reads at least 1 record without * an FIID match but subsequently finds a matching * record, two OMF records are logged, an "I" record * and an "F" record. * Problem: An OMF "I" record is logged at the start of the * loop in 911-FIID-CHECK when CTR-READ-NEXT = 0 if * the FIID in the record does not match the FIID in * the request. If a later record matches on FIID an * OMF "F" record is logged in 600-READ-NEXT-RCD. * If no matching record is found, an OMF "I" record * is logged at the end of the loop in * 610-READ-CAF-LOOP when CTR-READ-NEXT = 51. * Fix: Modified the READ NEXT logic to start with * CTR-READ-NEXT = 1, to bypass the write to the * OMF in 911-FIID-CHECK when CTR-READ-NEXT = 0. * Modified Paragraphs: * 600-READ-NEXT-RCD * Dependency: Apply fix to SVCAFS. Run Make. * Reference: Case #1219422 #REPLACE 01094 600-READ-NEXT-RCD MOVE 1 TO COUNTER-OF-READ-NEXT #ENDSCN = BA0G051 !#CMP2.28 08/17/12 RQUAFS 6018 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQUAFS RQUAFS 6018 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQUAFS RQUAFS 6018 * ******************************************************************************** #SCN = BA0G052 , FILEID = RQUAFS #VOLUME = $ROOK.BA60AFT #FILE = RQUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6018 #NEWVERSION = 6019 #ADD 00023R0S * 17AUG2012 bensone * Symptom: Hitting the F6 READ NEXT key over and over never * returns any data. * Problem: If you enter the requester with an FIID in user * context the previous key and the current key * of the UAF are not initialized correctly. If the * server reads 50 records without finding a match * any subsequent F6 READ NEXT causes the next key * variable to be sent to the server with a value * of spaces. This causes the server to reposition * to beginning of the file and the same 50 records * are read. * Fix: Modified the logic to match the NEG requester * which dosn't have this issue. Modified the * declaration of PREV-PRIKEY to initialize the * member number to zero. Remove the code that * initialized the PAN in the NEG buffer to zeroes. * Modified Paragraphs: * 595-CLEAR-DATA * Dependency: Apply fix to RQUAFS. Run Make. * Reference: Case #1220504 #REPLACE 00055 /00055 OFFSET 0 DATA DIVISION 05 PREV-PRIKEY. 10 PREV-NUM PIC X(19). 10 PREV-MBR-NUM PIC 9(3) VALUE 0. #REPLACE 01241 595-CLEAR-DATA MOVE ZEROES TO LGTH OF BASE-SEG, SEG-MAP, #ENDSCN = BA0G052 !#CMP2.28 08/27/12 RQCAFS 6067 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6067 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6067 * ******************************************************************************** #SCN = BA0G055 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6067 #NEWVERSION = 6068 #ADD 00023\0O * 27AUG2012 saderc * Symptom: The Account Type "01" (Checking) is being * displayed incorrectly as a value of "1" on screen * 5 (Pre-Auth Holds). * Problem: The Account Type field on screen 5 is defined to * zero suppress the numeric value. * Fix: The Account Type field on screens 5 and 6 have * been modified to be defined as a 2 byte * alphanumeric field. * Modified Paragraphs: 400-MOVE-ENHNC-PRE-AUTH-TO-WS * 400-MOVE-PRE-AUTHS-TO-WS * Dependency: Apply fixes to RQCAFS and SCRNCAF. Run Make. * Reference: Case #1217565 #REPLACE 00144 DATA DIVISION 05 WS-ACCT-TYPE-PRE-AUTH PIC X(2). #REPLACE 00144y06 DATA DIVISION 05 WS-EPA-ACCT-TYP PIC X(2). #ADD 00628c01 400-MOVE-PRE-AUTHS-TO-WS IF ACCT-TYP OF PRE-AUTH(I) > 0 MOVE ACCT-TYP OF PRE-AUTH(I) TO WS-ACCT-TYPE-PRE-AUTH(I). #DELETE 00628c02 400-MOVE-PRE-AUTHS-TO-WS #ADD 00635y07 400-MOVE-ENHNC-PRE-AUTH-TO-WS IF ACCT-TYP OF ENHNC-PRE-AUTH OF CAF(I) > 0 MOVE ACCT-TYP OF ENHNC-PRE-AUTH OF CAF(I) TO WS-EPA-ACCT-TYP(I). #DELETE 00635y08/00635y09 400-MOVE-ENHNC-PRE-AUTH-TO-WS #ENDSCN = BA0G055 !#CMP2.28 09/25/12 RQCAFS 6068 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6068 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6068 * ******************************************************************************** #SCN = BA0G096 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6068 #NEWVERSION = 6069 #ADD 00023]0E * 25SEP2012 saderc * Symptom: The ATC NUMBER display field on screen 2 is * truncating the ATC value from the CAF. * Problem: The ATC NUMBER field on screen 2 is defined as a * 4 byte numeric field. It is possible that the ATC * number can be a value larger than 9,999. * Fix: The WS-ATC-2 working storage field has been * increased from 4 to 5 bytes. * Modified WORKING-STORAGE SECTION. * Dependency: Apply fix to RQCAFS and SCRNCAF. Run Make. * Reference: Case #1225933 #REPLACE 00132+01 DATA DIVISION 05 WS-ATC-2 PIC 9(5) VALUE ZERO. #ENDSCN = BA0G096 !#CMP2.28 12/11/12 RQCAFS 6069 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCAFS RQCAFS 6069 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCAFS RQCAFS 6069 * ******************************************************************************** #SCN = BA0G123 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6069 #NEWVERSION = 6070 #ADD 00023^0C * 11DEC2012 saderc * Symptom: There is no OMF record being logged when FIID * access is denied. * Problem: The OMF-AUDIT flag is not being set prior to * calling the security server (SVISECS) to check * FIID access. * Fix: The requester was modified to set the OMF-AUDIT * field in the MSG-FILE-MAINT-1024-EXT record prior * calling the security server to check FIID access. * In addition, the value moved to the appl-cde field * in the MSG-FILE-MAINT-1024-EXT record was changed * back to "00" (LOGON) to be consistent with the * other requesters. * Modified Paragraph: 401-CHECK-FIID-ACCESS * Dependency: Apply fixes to BA60AFT.RQCAFS and AT60AFT.RQTLFS. * Run Make. * Reference: Case #1236238 #ADD 00738y04 401-CHECK-FIID-ACCESS MOVE OMF-AUDIT OF USER-CONTEXT-EXT TO OMF-AUDIT OF MSG-FILE-MAINT-1024-EXT. #REPLACE 00738\07 401-CHECK-FIID-ACCESS MOVE "00" TO APPL-CDE OF MSG-FILE-MAINT-1024-EXT. #ENDSCN = BA0G123 !#CMP2.28 12/28/12 SVISECS 6037 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVISECS SVISECS 6037 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVISECS SVISECS 6037 * ******************************************************************************** #SCN = BA0G128 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6037 #NEWVERSION = 6038 #ADD 01101k0E * 28DEC2012 saderc * Symptom: The Security server is logging an OMF record for * File Maintenance Type "I" with the rec-image * containing data. * Problem: The Security server is logging OMF records for * File Maintenance Type "I" (Institution Security * Error) with data in the rec-image field of the * OMF. This type of record should be logged with the * rec-image field in the OMF record containing * spaces (length = 0). There was an identical fix * done for SCN #BA0D043 for File Maintenance Type * "J" (File Operation Security Error). * Fix: The Security server was modified to not populate * the rec-image field if the the File Maintenance * Type set to "I". * Modified Paragraph: 1020-AUDIT-WRITE * Dependency: Apply fix to SVISECS. Run Make. * Reference: Case #1239899 #ADD 08205j00 * * Only move the security message to OMF-LEN-HOLD for message * length calculation if the FM-TYP is not "I" (Institution * Security Error) and not "J" (File Operation Security Error). * IF FM-TYP OF OMF NOT = "I" AND FM-TYP OF OMF NOT = "J" #DELETE 08205j01/08205j08 #ADD 08211j00 * * Only move the security message to OMF record image if * the FM-TYP is not "I" (Institution Security Error) and * not "J" (File Operation Security Error). * IF FM-TYP OF OMF NOT = "I" AND FM-TYP OF OMF NOT = "J" #DELETE 08211j01/08211j07 #ENDSCN = BA0G128 !#CMP2.28 02/14/13 COBTKN 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6029 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6029 * ******************************************************************************** #SCN = BA0H008 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00057c0H * 15FEB2013 saderc * Symptom: BASE24 VisaNet April 2013 Business Enhancements * Problem: None * Fix: Merchant Category Code 6012 - Additional * Authorization Data Technical Letter: Added * entries to the PROD-TKN-TABLE for the new base * token ADNL-AUTH-DATA-TKN (S9). * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN and * DDLBATKN. Run Make. * Reference: WO #004807 #REPLACE 00195b02/00195Z02 05 ATM94 PIC X(29) VALUE "S901ATM ADNL AUTH DATA TOKEN ". 05 POS97 PIC X(29) VALUE "S902POS ADNL AUTH DATA TOKEN ". #REPLACE 00197c01 02 WS-PROD-TKN-TBL OCCURS 209 TIMES. #REPLACE 00201c01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 209. #ENDSCN = BA0H008 !#CMP2.28 02/27/13 COBTKN 6030 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6030 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6030 * ******************************************************************************** #SCN = BA0H024 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6030 #NEWVERSION = 6031 #ADD 00057d0B * 25FEB2013 swiftd * Symptom: BASE24 Migration Enhancements * Problem: None * Fix: Added entries to the PROD-TKN-TABLE for the new * base token MIGR-CUST-DATA-TKN (M5). * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN, and * DDLBATKN. Run Make. * Reference: WO #000698 #ADD 00195d03 05 ATM95 PIC X(29) VALUE "M501ATM MIGR CUST DATA TOKEN ". 05 POS98 PIC X(29) VALUE "M502POS MIGR CUST DATA TOKEN ". #REPLACE 00197d01 02 WS-PROD-TKN-TBL OCCURS 211 TIMES. #REPLACE 00201d01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 211. #ENDSCN = BA0H024 !#CMP2.28 03/13/13 RQCPFS 6064 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6064 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6064 * ******************************************************************************** #SCN = BA0H029 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6064 #NEWVERSION = 6065 #ADD 00022>0P * 14MAR2013 saderc * Symptom: POS RTAU is not returning account balances to the * Banknet interface for payment transactions. * Problem: MasterCard requires that account balances must * be returned for Load Value Payment transactions. * The current logic in POS RTAU will only return * account balances if the transaction is a purchase, * pre-auth or purchase with cash back. Payment * transactions are mapped to a transaction type "14" * (Merchandise Return) in BASE24-pos because it * represents a credit to the cardholder. As a * result, account balances are not returned. * Fix: Support was added for a new value in the RETURN * BALANCES field on CPF Screen 8. The new value "3" * will specify that account balances are returned on * all financial transactions, as long as the * terminal supports returning account balances in * response messages. * Modified Paragraph: 550-TABLE-LOOK-UP * Dependency: Apply fix to BA60AFT.RQCPFS, BA60AFT.SVCPFS and * PS60RTAU.AUTHLIBS. Run Make. * Reference: Case #1245154 #ADD 01399%0C 550-TABLE-LOOK-UP ELSE IF RTRN-BAL OF SEG0 = 3 MOVE "(FOR FINANCIAL TRANS BASED ON TERMINAL CONFIG)" TO WS-RTRN-BAL-DESC #ENDSCN = BA0H029 !#CMP2.28 03/13/13 SVCPFS 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6043 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6043 * ******************************************************************************** #SCN = BA0H030 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6043 #NEWVERSION = 6044 #ADD 00017q0K * 14MAR2013 saderc * Symptom: POS RTAU is not returning account balances to the * Banknet interface for payment transactions. * Problem: MasterCard requires that account balances must * be returned for Load Value Payment transactions. * The current logic in POS RTAU will only return * account balances if the transaction is a purchase, * pre-auth or purchase with cash back. Payment * transactions are mapped to a transaction type "14" * (Merchandise Return) in BASE24-pos because it * represents a credit to the cardholder. As a * result, account balances are not returned. * Fix: Support was added for a new value in the RETURN * BALANCES field on CPF Screen 8. The new value "3" * will specify that account balances are returned on * all financial transactions, as long as the * terminal supports returning account balances in * response messages. * Modified Paragraph: 480-DATA-CHECK-SCREEN8 * Dependency: Apply fix to BA60AFT.RQCPFS, BA60AFT.SVCPFS and * PS60RTAU.AUTHLIBS. Run Make. * Reference: Case #1245154 #REPLACE 00387e05 DATA DIVISION "VALID VALUES FOR RETURN BALANCES ARE 0, 1, 2 AND 3". #ADD 00749e2A 480-DATA-CHECK-SCREEN8 RTRN-BAL OF SEG0 OF CPF NOT = "2" AND RTRN-BAL OF SEG0 OF CPF NOT = "3" ) #DELETE 00749e2B 480-DATA-CHECK-SCREEN8 #ENDSCN = BA0H030 !#CMP2.28 04/29/13 COBTKN 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6031 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6031 * ******************************************************************************** #SCN = BA0H050 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 00057e09 * 30APR2013 swiftd * Symptom: New interface requires new generic data token. * Problem: None * Fix: Added entries to the PROD-TKN-TABLE for the new * base token GENERIC-DATA-TKN (SA). * Dependency: Apply fixes to BATKNCVS, BATKNID, COBTKN, and * DDLBATKN. Run Make. * Reference: WO #004403 #ADD 00195e02 05 ATM96 PIC X(29) VALUE "SA01ATM GENERIC DATA TOKEN ". 05 POS99 PIC X(29) VALUE "SA02POS GENERIC DATA TOKEN ". #DELETE 00195e03 #ADD 00197e00 02 WS-PROD-TKN-TBL OCCURS 213 TIMES. #DELETE 00197e01 #ADD 00201e00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 213. #DELETE 00201e01 #ENDSCN = BA0H050 !#CMP2.28 11/22/13 COBTKN 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6032 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6032 * ******************************************************************************** #SCN = BA0H094 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 00057f09 * 22NOV2013 saderc * Symptom: The Industry Data Token (CK) is not present in * the ISO message sent by HISO. * Problem: The user cannot configure the CK token on the * Token File (TKN) screen because it is not present * in the PROD-TKN-TABLE. * Fix: Added an entry to the PROD-TKN-TABLE for the POS * Industry Data Token (CK). * Incremented the occurs for WS-PROD-TKN-TBLE and * the value of PROD-TKN-TABLE-CNT by 1. * Dependency: Apply fix to COBTKN. Run Make. * Reference: Case #1502730 #REPLACE 00195d04 05 POS100 PIC X(29) VALUE "CK02POS INDUSTRY DATA TOKEN ". #REPLACE 00197f01 02 WS-PROD-TKN-TBL OCCURS 214 TIMES. #REPLACE 00201f01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 214. #ENDSCN = BA0H094 !#CMP2.28 02/13/14 COBTKN 6033 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6033 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6033 * ******************************************************************************** #SCN = BA0I003 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6033 #NEWVERSION = 6034 #ADD 00057g0D * 14FEB2014 meyersc, saderc * Symptom: Banknet Release 14.Q2 Functional Enhancements * LINK LIS5 2014 Mandated Changes * MDS Release 14.Q2 Functional Enhancements * VisaNet April 2014 Business Enhancements * Visa DPS April 2014 Business Enhancements * Problem: None * Fix: Add entries to PROD-TKN-TABLE for new Installment * Additional Data token (F5), Transport Industry * token (F6), Transport Ancillary token (F7), and * Installment Country Data token (F8). Added a table * entry for ATM and POS for the new Network Token * Services token (SC). Incremented the occurs for * WS-PROD-TKN-TBLE and the value of * PROD-TKN-TABLE-CNT to account for the new tokens. * Dependency: Apply fix to COBTKN. Run Make. * Reference: WO #006703 Banknet Release 14.Q2 Functional * Enhancements * WO #006723 LINK LIS5 2014 Mandated Changes * WO #006702 MDS Release 14.Q2 Functional * Enhancements * WO #006891 Visa DPS April 2014 Business * Enhancements * WO #006890 VisaNet April 2014 Business * Enhancements #ADD 00195g02 05 POS101 PIC X(29) VALUE "F502POS INSTALL ADNL DATA ". 05 POS102 PIC X(29) VALUE "F802POS INSTALL COUNTRY DATA ". 05 POS103 PIC X(29) VALUE "F602POS TRNSPRT INDUSTRY TKN ". 05 POS104 PIC X(29) VALUE "F702POS TRNSPRT ANCILLARY TKN". 05 ATM97 PIC X(29) VALUE "SC01ATM NTWK TKN SRVC TKN ". 05 POS105 PIC X(29) VALUE "SC02POS NTWK TKN SRVC TKN ". #DELETE 00195Y03 #REPLACE 00197g01 02 WS-PROD-TKN-TBL OCCURS 220 TIMES. #REPLACE 00201g01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 220. #ENDSCN = BA0I003 !#CMP2.28 04/15/14 COBTKN 6034 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6034 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6034 * ******************************************************************************** #SCN = BA0I020 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6034 #NEWVERSION = 6035 #ADD 00057h0Q * 15APR2014 bensone * Symptom: Banknet Release 14.Q2 Phase 2 Enhancements * Problem: None. * Fix: Add entries to PROD-TKN-TABLE for new * Chip Data token (Token ID = "SB"). * Update WS-PROD-TKN-TBL to 222. * Update PROD-TKN-TABLE-CNT to 222. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN and DDLPSTKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #007229 #ADD 00195h07 05 ATM98 PIC X(29) VALUE "SB01ATM CHIP DATA TKN ". 05 POS106 PIC X(29) VALUE "SB02POS CHIP DATA TKN ". #REPLACE 00197h01 02 WS-PROD-TKN-TBL OCCURS 222 TIMES. #REPLACE 00201h01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 222. #ENDSCN = BA0I020 !#CMP2.28 05/19/14 COBTKN 6035 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6035 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6035 * ******************************************************************************** #SCN = BA0I033 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6035 #NEWVERSION = 6036 #ADD 00057i0E * 19MAY2014 PandeyA * Symptom: BASE24 VisaNet Real Time Scoring Enhancements. * Problem: None. * Fix: Add entries to PROD-TKN-TABLE for new * Network Risk Data Token (Token ID = "SD"). * Update WS-PROD-TKN-TBL to 224. * Update PROD-TKN-TABLE-CNT to 224. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #007212 #ADD 00195i02 05 ATM99 PIC X(29) VALUE "SD01ATM NTWK RSK DATA TKN ". 05 POS107 PIC X(29) VALUE "SD02POS NTWK RSK DATA TKN ". #ADD 00197i00 02 WS-PROD-TKN-TBL OCCURS 224 TIMES. #DELETE 00197i01 #ADD 00201i00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 224. #DELETE 00201i01 #ENDSCN = BA0I033 !#CMP2.28 08/13/14 COBTKN 6036 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6036 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6036 * ******************************************************************************** #SCN = BA0I044 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6036 #NEWVERSION = 6037 #ADD 00057j0E * 13AUG2014 watsonl * Symptom: Banknet Release 14.Q4 Functional Enhancements * MDS Release 14.Q4 Functional Enhancements * Pulse Release 14.2 Functional Enhancements * Problem: None. * Fix: Add ATM and POS entries to PROD-TKN-TABLE for * the new ADNL-AMTS-TKN token (SE), and a POS * entry for the new MULT-SETL-ADVC-TKN token (F9). * Update WS-PROD-TKN-TBL to 227. * Update PROD-TKN-TABLE-CNT to 227. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #007328 Banknet Release 14.Q4 Functional * Enhancements * WO #007329 MDS Release 14.Q4 Functional * Enhancements * WO #007330 Pulse Release 14.2 Functional * Enhancements #ADD 00195j03 05 ATM100 PIC X(29) VALUE "SE01ATM ADDITIONAL AMOUNTS ". 05 POS108 PIC X(29) VALUE "SE02POS ADDITIONAL AMOUNTS ". 05 POS109 PIC X(29) VALUE "F902POS MULT SETL ADVC ". #REPLACE 00197j01 02 WS-PROD-TKN-TBL OCCURS 227 TIMES. #REPLACE 00201j01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 227. #ENDSCN = BA0I044 !#CMP2.28 02/16/15 COBTKN 6037 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6037 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6037 * ******************************************************************************** #SCN = BA0J006 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6037 #NEWVERSION = 6038 #ADD 00057k0M * 16FEB2015 watsonl * Symptom: Banknet Release 15.Q2 Functional Enhancements * MDS Release 15.Q2 Functional Enhancements * Problem: None * Fix: Add ATM and POS entries to PROD-TKN-TABLE for * the new MOBILE-PMNTS-TKN token (SF), and a POS * entry for the new ADNL-MRCH-DATA-TKN (FA). * Update WS-PROD-TKN-TBL to 230. * Update PROD-TKN-TABLE-CNT to 230. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #007657 Banknet Release 15.Q2 Functional * Enhancements * WO #007658 MDS Release 15.Q2 Functional * Enhancements #ADD 00195i03 05 ATM101 PIC X(29) VALUE "SF01ATM MOBILE PAYMENTS ". 05 POS110 PIC X(29) VALUE "SF02POS MOBILE PAYMENTS ". 05 POS111 PIC X(29) VALUE "FA02POS ADNL MERCHANT DATA ". #ADD 00197k00 02 WS-PROD-TKN-TBL OCCURS 230 TIMES. #DELETE 00197k01 #ADD 00201k00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 230. #DELETE 00201k01 #ENDSCN = BA0J006 !#CMP2.28 04/15/15 COBTKN 6038 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6038 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6038 * ******************************************************************************** #SCN = BA0J020 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6038 #NEWVERSION = 6039 #ADD 00057l0J * 15APR2015 gruberg * Symptom: Banknet Release 15.Q2 Phase 2 Functional * Enhancements * MDS Release 15.Q2 Phase 2 Functional Enhancements * Problem: None * Fix: Add ATM and POS entries to PROD-TKN-TABLE for the * new FRAUD-DATA-TKN (SG). * Update WS-PROD-TKN-TBL to 232. * Update PROD-TKN-TABLE-CNT to 232. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #007740 Banknet Release 15.Q2 Phase 2 * WO #007741 MDS Release 15.Q2 Phase 2 #ADD 00195l04 05 ATM102 PIC X(29) VALUE "SG01ATM FRAUD DATA ". 05 POS112 PIC X(29) VALUE "SG02POS FRAUD DATA ". #REPLACE 00197l01 02 WS-PROD-TKN-TBL OCCURS 232 TIMES. #REPLACE 00201l01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 232. #ENDSCN = BA0J020 !#CMP2.28 05/05/15 COBTKN 6039 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6039 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6039 * ******************************************************************************** #SCN = BA0J031 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6039 #NEWVERSION = 6040 #ADD 00057m0H * 05MAY2015 GadiA * Symptom: Support for BASE24-eps UPI enhancement - Token * "CE" changes and new "FB" Token support in BASE24. * Problem: None. * Fix: Added POS entry to PROD-TKN-TABLE for the new * EXT-AUTHN-DATA-TKN (FB). * Update WS-PROD-TKN-TBL to 233. * Update PROD-TKN-TABLE-CNT to 233. * Dependency: Apply fix to * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNID, PSTKNCVS. * Run Make. * Reference: WO #007884. #ADD 00195m02 05 POS113 PIC X(29) VALUE "FB02POS EXTENDED AUTHN DATA ". #ADD 00197m00 02 WS-PROD-TKN-TBL OCCURS 233 TIMES. #DELETE 00197m01 #ADD 00201m00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 233. #DELETE 00201m01 #ENDSCN = BA0J031 !#CMP2.28 06/25/15 COBTKN 6040 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6040 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6040 * ******************************************************************************** #SCN = BA0J038 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6040 #NEWVERSION = 6041 #ADD 00057n0F * 25JUN2015 bensone * Symptom: Banknet Issuer ATM Contactless Magnetic Stripe * Transaction Support. * Problem: None. * Fix: Added new ATM token definition * CNTCTLSS-TXN-DATA-TKN - Token ID "D0" * Dependency: Apply fixes to: * AT60AUTH: AUTHD, AUTHG, AUTHLIBS, AUTHM, AUTHS * AT60SRC: ATMFM, ATMMM * BA60AFT: COBTKN * BA60DDL: DDLATTKN * BA60MAKE: CUSTMACS * BA60SRC: ATTKNCVS, ATTKNID * SW60ABNT: BNETATMS * SW60BNET: BNETG * New files: * AT60QATH: ATQATHFM, ATQATHMM, AUTHDCVG, AUTHDCVM, * AUTHDCVS * Replace files: * BA60LOGM: ATAUTH * BA60MAKE: FLGSDOC * SW60BNET: BNETMNWD, BNETLOGM, BNETUPDT * Reference: WO #007761 #ADD 00195n01 05 ATM103 PIC X(29) VALUE "D001CONTACTLESS TXN DATA ". #REPLACE 00197n01 02 WS-PROD-TKN-TBL OCCURS 234 TIMES. #REPLACE 00201n01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 234. #ENDSCN = BA0J038 !#CMP2.28 07/22/15 COBTKN 6041 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6041 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6041 * ******************************************************************************** #SCN = BA0J045 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6041 #NEWVERSION = 6042 #ADD 00057o0O * 15AUG2015 meyersc * Symptom: Banknet Release 15.Q4 Functional Enhancements * VisaNet April 2015 Business Enhancements * Problem: None * Fix: Add ATM and POS entries to PROD-TKN-TABLE for the * new tokens: * Issuer Tokenization Data Token (SH) * P2P Sender Data Token (SI) * P2P Reveiver Data Token (SJ) * P2P Additional Data Token (SK) * Language Data Token (SL) * Add POS entry to PROD-TKN-TABLE for the new * Interchange Program Token (FC) * Update WS-PROD-TKN-TBL to 245. * Update PROD-TKN-TABLE-CNT to 245. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS and PSTKNID * Run Make. * Reference: WO #008019 Banknet Release 15.Q4 Functional * Enhancements * WO #007987 VisaNet October 2015 Business * Enhancements #REPLACE 00195o02/00195G05 05 ATM104 PIC X(29) VALUE "SH01ATM TOKENIZATION DATA ". 05 POS114 PIC X(29) VALUE "SH02POS TOKENIZATION DATA ". 05 ATM105 PIC X(29) VALUE "SI01ATM P2P SENDER DATA ". 05 POS115 PIC X(29) VALUE "SI02POS P2P SENDER DATA ". 05 ATM106 PIC X(29) VALUE "SJ01ATM P2P RECEIVER DATA ". 05 POS116 PIC X(29) VALUE "SJ02POS P2P RECEIVER DATA ". 05 ATM107 PIC X(29) VALUE "SK01ATM P2P ADDITIONAL DATA ". 05 POS117 PIC X(29) VALUE "SK02POS P2P ADDITIONAL DATA ". 05 ATM108 PIC X(29) VALUE "SL01ATM LANGUAGE DATA ". 05 POS118 PIC X(29) VALUE "SL02POS LANGUAGE DATA ". 05 POS119 PIC X(29) VALUE "FC02POS INTERCHANGE PROGRAM ". #REPLACE 00197o01 02 WS-PROD-TKN-TBL OCCURS 245 TIMES. #REPLACE 00201o01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 245. #ENDSCN = BA0J045 !#CMP2.28 10/30/15 RQCPFS 6065 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6065 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6065 * ******************************************************************************** #SCN = BA0J060 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6065 #NEWVERSION = 6066 #ADD 00022|0N * 30OCT2015 meyersc * Symptom: Address Verification Support for Canadian Cards at * U.S. AFDs * Problem: Visa and MasterCard are requiring issuers in * Canada to support the validation of Canadian * postal codes in a U.S. zip code format for AVS * checking at U.S. Automated Fuel Dispensers (AFDs). * Fix: The logic was modified to output descriptions for * values of "C" or "U" for the ADDRESS VERIFICATION * ALGO field in the CPF. * Modified proc: 550-TABLE-LOOK-UP * Dependency: Apply fixes to RQCPFS, SVCPFS and PS60ADDR.ADDRS. * Run Make. * Reference: WO #007550 #ADD 01416c04 550-TABLE-LOOK-UP IF ADDR-VRFY-ALGO OF SEG2 OF CPF = "C" MOVE "(COMPRESS POST CODE)" TO ADDR-VRFY-ALGO-DESC ELSE IF ADDR-VRFY-ALGO OF SEG2 OF CPF = "U" MOVE "(U.S. AFD POST CODE)" TO ADDR-VRFY-ALGO-DESC ELSE #ENDSCN = BA0J060 !#CMP2.28 10/30/15 SVCPFS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6044 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6044 * ******************************************************************************** #SCN = BA0J061 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00017r0N * 30OCT2015 meyersc * Symptom: Address Verification Support for Canadian Cards at * U.S. AFDs * Problem: Visa and MasterCard are requiring issuers in * Canada to support the validation of Canadian * postal codes in a U.S. zip code format for AVS * checking at U.S. Automated Fuel Dispensers (AFDs). * Fix: The logic was modified to allow for valid values * of "C" or "U" for the ADDRESS VERIFICATION ALGO * field in the CPF. * Modified proc: 480-DATA-CHECK-SCREEN7 * Dependency: Apply fixes to RQCPFS, SVCPFS and PS60ADDR.ADDRS. * Run Make. * Reference: WO #007550 #REPLACE 00749XIY 480-DATA-CHECK-SCREEN7 * Makes sure WS-ADDR-VRFY-ALGO IS 'V', 'M', 'C' or 'U' #ADD 00749XIb 480-DATA-CHECK-SCREEN7 IF NOT (ADDR-VRFY-ALGO OF SEG2 OF CPF = "V" OR "M" OR "C" OR "U") #DELETE 00749XIc 480-DATA-CHECK-SCREEN7 #ADD 00749XIf 480-DATA-CHECK-SCREEN7 MOVE "ADDRESS VERIFICATION ALGO MUST BE 'V', 'M', 'C' OR - " 'U'" TO WS-ERR-TXT #DELETE 00749XIg/00749XIh 480-DATA-CHECK-SCREEN7 #ENDSCN = BA0J061 !#CMP2.28 11/10/15 RQTKNS 6011 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQTKNS RQTKNS 6011 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQTKNS RQTKNS 6011 * ******************************************************************************** #SCN = BA0J066 , FILEID = RQTKNS #VOLUME = $ROOK.BA60AFT #FILE = RQTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6011 #NEWVERSION = 6012 #ADD 00021K0A * 10NOV2015 wielerk * Symptom: TKN-TABLE does not hold all the tokens. * Problem: The TKN-TABLE holds the tokens from the PROD-TKN- * TABLE and the CSE-TKN-TABLE. The table size of 250 * is not large enough to include all of the CSE * tokens for some environments. * Fix: Changed OCCURS for TKN-TABLE from 250 to 400. * Dependency: Apply fix to RQTKNS and run Make. * Reference: Case #2150356. #REPLACE 00096K01 DATA DIVISION 05 WS-TKN-TBL OCCURS 400 TIMES. #ENDSCN = BA0J066 !#CMP2.28 02/09/16 COBTKN 6042 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6042 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6042 * ******************************************************************************** #SCN = BA0K008 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6042 #NEWVERSION = 6043 #ADD 00057p0P * 09FEB2016 watsonl * Symptom: VisaNet April 2016 Business Enhancements * PULSE Release 16.1 Functional Enhancements * STAR ISO April 2016 Mandates * Banknet Release 16.Q2 Functional Enhancements * Discover 2016 April Mandates * MDS Release 16.Q2 Functional Enhancements * Problem: None * Fix: Add ATM and POS entries to PROD-TKN-TABLE for the * new token: * ATM Receipt Data Token (SM) * Update WS-PROD-TKN-TBL to 247. * Update PROD-TKN-TABLE-CNT to 247. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #008278 PULSE Release 16.1 Functional * Enhancements * WO #007987 VisaNet April 2016 Business * Enhancements * WO #008290 STAR ISO April 2016 Mandates * WO #008239 Banknet Release 16.Q2 Functional * Enhancements * WO #008316 Discover 2016 April Mandates * WO #008240 MDS Release 16.Q2 Functional * Enhancements. #ADD 00195p0C 05 ATM109 PIC X(29) VALUE "SM01ATM RECEIPT DATA ". 05 POS120 PIC X(29) VALUE "SM02POS RECEIPT DATA ". #REPLACE 00197p01 02 WS-PROD-TKN-TBL OCCURS 247 TIMES. #REPLACE 00201p01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 247. #ENDSCN = BA0K008 !#CMP2.28 02/11/16 COBTKN 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6043 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6043 * ******************************************************************************** #SCN = BA0K010 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6043 #NEWVERSION = 6044 #ADD 00057q0T * 11FEB2016 watsonl * Symptom: Banknet Release 16.Q2 Functional Enhancements * Problem: None * Fix: Add POS entry to PROD-TKN-TABLE for the * new token: * Install Response Data Token (FD) * Update WS-PROD-TKN-TBL to 248. * Update PROD-TKN-TABLE-CNT to 248. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNCVS, PSTKNID * Run Make. * Reference: WO #008239 Banknet Release 16.Q2 Functional * Enhancements #ADD 00195q02 05 POS121 PIC X(29) VALUE "FD02POS INSTALL RESPONSE DATA". #REPLACE 00197q01 02 WS-PROD-TKN-TBL OCCURS 248 TIMES. #REPLACE 00201q01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 248. #ENDSCN = BA0K010 !#CMP2.28 08/11/16 RQCPFS 6066 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQCPFS RQCPFS 6066 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQCPFS RQCPFS 6066 * ******************************************************************************** #SCN = BA0K052 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6066 #NEWVERSION = 6067 #ADD 00022@0F * 11AUG2016 wielerk * Symptom: BankNet Release Q4.16 Functional Enhancements. * Case #2241373 AmEx Debit Card Support. * Case #2264731 POS Entry Mode Validation * Problem: None * Fix: Added code to process new CPF field, * PIN-CHNG-PREFIX-RTE. * Added code to process new CPF field, * CV-ALGO. * Added code to process new CPF fields, * POS-ENTRY-CHK, * PRE-SCRN-POS-ENTRY-CHK, * CRD-INPUT-CAP.MAG-STRIPE, * CRD-INPUT-CAP.EMV-CONTACT, * CRD-INPUT-CAP.EMV-CNTCTLSS, * CRD-INPUT-CAP.MAG-STRIPE-CNTCTLSS. * Dependency: Apply fixes to: * BA60DDL.DDLFCPF * BA60AFT.SCRNCPF * BA60AFT.RQCPFS * BA60AFT.SVCPFS * Run Make. * Reference: WO #008527 Banknet Rel. 16.Q4 Func. Enhancements. * Case #2241373 AmEx Debit Card Support. * Case #2264731 POS Entry Mode Validation #REPLACE 00074=03/00074%0B DATA DIVISION 05 WS-CV-ALGO PIC X(12). 05 WS-POS-ENTRY-CHK PIC X. 05 WS-PRE-SCRN-POS-ENTRY-CHK PIC X. #REPLACE 00465-0v/00465y00 400-MOVE-RECORD IF CV-ALGO OF SEG0 = SPACES MOVE "0" TO CV-ALGO OF SEG0. IF POS-ENTRY-CHK OF SEG0 = 1 MOVE "Y" TO WS-POS-ENTRY-CHK ELSE MOVE "N" TO WS-POS-ENTRY-CHK. IF PRE-SCRN-POS-ENTRY-CHK OF SEG0 = 1 MOVE "Y" TO WS-PRE-SCRN-POS-ENTRY-CHK ELSE MOVE "N" TO WS-PRE-SCRN-POS-ENTRY-CHK. IF MAG-STRIPE OF CRD-INPUT-CAP OF SEG0 = SPACES MOVE "N" TO MAG-STRIPE OF CRD-INPUT-CAP OF SEG0. IF EMV-CONTACT OF CRD-INPUT-CAP OF SEG0 = SPACES MOVE "N" TO EMV-CONTACT OF CRD-INPUT-CAP OF SEG0. IF EMV-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 = SPACES MOVE "N" TO EMV-CNTCTLSS OF CRD-INPUT-CAP OF SEG0. IF MAG-STRIPE-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 = SPACES MOVE "N" TO MAG-STRIPE-CNTCTLSS OF CRD-INPUT-CAP OF SEG0. #ADD 00493w0F 400-SAVE-RECORD IF WS-POS-ENTRY-CHK = "Y" MOVE "1" TO POS-ENTRY-CHK OF SEG0 ELSE MOVE "0" TO POS-ENTRY-CHK OF SEG0. IF WS-PRE-SCRN-POS-ENTRY-CHK = "Y" MOVE "1" TO PRE-SCRN-POS-ENTRY-CHK OF SEG0 ELSE MOVE "0" TO PRE-SCRN-POS-ENTRY-CHK OF SEG0. #REPLACE 00670-02 480-ERR-FLAG-OV-2 480-FLAG-OV-2-FIELD-24, #ADD 00670-0i 480-FLAG-OV-2-FIELD-22 480-FLAG-OV-2-FIELD-22. TURN TEMP SERROR IN P-CV-ALGO. SET NEW-CURSOR AT P-CV-ALGO. #REPLACE 00670-0j 480-FLAG-OV-2-FIELD-22 480-FLAG-OV-2-FIELD-23. #REPLACE 00670-0m 480-FLAG-OV-2-FIELD-23 480-FLAG-OV-2-FIELD-24. #ADD 00670-15 480-ERR-FLAG-OV-3 480-FLAG-OV-3-FIELD-23, 480-FLAG-OV-3-FIELD-24, 480-FLAG-OV-3-FIELD-25, 480-FLAG-OV-3-FIELD-26, 480-FLAG-OV-3-FIELD-27, 480-FLAG-OV-3-FIELD-28, #ADD 00670%0g 480-FLAG-OV-3-FIELD-5 480-FLAG-OV-3-FIELD-5. TURN TEMP SERROR IN P-POS-ENTRY-CHK. SET NEW-CURSOR AT P-POS-ENTRY-CHK. #REPLACE 00670%0h 480-FLAG-OV-3-FIELD-5 480-FLAG-OV-3-FIELD-6. #ADD 00670%0j 480-FLAG-OV-3-FIELD-5 480-FLAG-OV-3-FIELD-7. TURN TEMP SERROR IN P-PRE-SCRN-POS-ENTRY-CHK. SET NEW-CURSOR AT P-PRE-SCRN-POS-ENTRY-CHK. 480-FLAG-OV-3-FIELD-8. TURN TEMP SERROR IN P-CRD-INP-MAG-STRIPE. SET NEW-CURSOR AT P-CRD-INP-MAG-STRIPE. 480-FLAG-OV-3-FIELD-9. TURN TEMP SERROR IN P-CRD-INP-EMV-CONTACT. SET NEW-CURSOR AT P-CRD-INP-EMV-CONTACT. 480-FLAG-OV-3-FIELD-10. TURN TEMP SERROR IN P-CRD-INP-MAG-CNTCTLSS. SET NEW-CURSOR AT P-CRD-INP-MAG-CNTCTLSS. 480-FLAG-OV-3-FIELD-11. TURN TEMP SERROR IN P-CRD-INP-EMV-CNTCTLSS. SET NEW-CURSOR AT P-CRD-INP-EMV-CNTCTLSS. #REPLACE 00670-18 480-FLAG-OV-3-FIELD-6 480-FLAG-OV-3-FIELD-12. #REPLACE 00670-1C 480-FLAG-OV-3-FIELD-7 480-FLAG-OV-3-FIELD-13. #REPLACE 00670-1G 480-FLAG-OV-3-FIELD-8 480-FLAG-OV-3-FIELD-14. #REPLACE 00670-1K 480-FLAG-OV-3-FIELD-9 480-FLAG-OV-3-FIELD-15. #REPLACE 00670-1O 480-FLAG-OV-3-FIELD-10 480-FLAG-OV-3-FIELD-16. #REPLACE 00670-1S 480-FLAG-OV-3-FIELD-11 480-FLAG-OV-3-FIELD-17. #REPLACE 00670-1W 480-FLAG-OV-3-FIELD-12 480-FLAG-OV-3-FIELD-18. #REPLACE 00670-1a 480-FLAG-OV-3-FIELD-13 480-FLAG-OV-3-FIELD-19. #REPLACE 00670-1e 480-FLAG-OV-3-FIELD-14 480-FLAG-OV-3-FIELD-20. #REPLACE 00670-1i 480-FLAG-OV-3-FIELD-15 480-FLAG-OV-3-FIELD-21. #REPLACE 00670-1m 480-FLAG-OV-3-FIELD-16 480-FLAG-OV-3-FIELD-22. #REPLACE 00670-1q 480-FLAG-OV-3-FIELD-17 480-FLAG-OV-3-FIELD-23. #REPLACE 00670-1u 480-FLAG-OV-3-FIELD-18 480-FLAG-OV-3-FIELD-24. #REPLACE 00670-1y 480-FLAG-OV-3-FIELD-19 480-FLAG-OV-3-FIELD-25. #REPLACE 00670-22 480-FLAG-OV-3-FIELD-20 480-FLAG-OV-3-FIELD-26. #REPLACE 00670-26 480-FLAG-OV-3-FIELD-21 480-FLAG-OV-3-FIELD-27. #REPLACE 00670-2A 480-FLAG-OV-3-FIELD-22 480-FLAG-OV-3-FIELD-28. #REPLACE 00670>02/00670>03 480-ERR-FLAG-OV-13 480-FLAG-OV-13-FIELD-9, 480-FLAG-OV-13-FIELD-10 #ADD 00670>09 480-FLAG-OV-13-FIELD-9 480-FLAG-OV-13-FIELD-10. #REPLACE 00670>0A/00670wBJ 480-ERR-FLAG-OV-14 TURN TEMP SERROR IN P-PIN-CHNG-PREFIX-RTE. SET NEW-CURSOR AT P-PIN-CHNG-PREFIX-RTE. #ADD 01357p0O 550-TABLE-LOOK-UP MOVE SPACES TO WS-CV-ALGO. IF CV-ALGO OF SEG0 = "0" MOVE "(STANDARD) " TO WS-CV-ALGO ELSE IF CV-ALGO OF SEG0 = "1" MOVE "(AMEX V1) " TO WS-CV-ALGO ELSE IF CV-ALGO OF SEG0 = "2" MOVE "(AMEX V2) " TO WS-CV-ALGO ELSE IF CV-ALGO OF SEG0 = "3" MOVE "(AMEX V1/V2)" TO WS-CV-ALGO ELSE MOVE "(**********)" TO WS-CV-ALGO. #ADD 01570-0H 595-CLEAR-DATA MOVE "0" TO POS-ENTRY-CHK OF SEG0. MOVE "0" TO PRE-SCRN-POS-ENTRY-CHK OF SEG0. MOVE "NNNN" TO CRD-INPUT-CAP OF SEG0. #REPLACE 01577-09 595-CLEAR-DATA CV-ALGO OF SEG0, #ADD 01577#01 595-CLEAR-DATA WS-POS-ENTRY-CHK, WS-PRE-SCRN-POS-ENTRY-CHK, #ADD 01584u02 595-CLEAR-DATA PIN-CHNG-PREFIX-RTE #ENDSCN = BA0K052 !#CMP2.28 08/11/16 SVCPFS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVCPFS SVCPFS 6045 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVCPFS SVCPFS 6045 * ******************************************************************************** #SCN = BA0K053 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00017s0F * 11AUG2016 wielerk * Symptom: BankNet Release Q4.16 Functional Enhancements. * Case #2241373 AmEx Debit Card Support * Case #2264731 POS Entry Mode Validation * Problem: None * Fix: Added code to process new CPF field, * PIN-CHNG-PREFIX-RTE. * Added code to process new CPF field, CV-ALGO. * Added code to process new CPF fields, * POS-ENTRY-CHK, * PRE-SCRN-POS-ENTRY-CHK, * CRD-INPUT-CAP.MAG-STRIPE, * CRD-INPUT-CAP.EMV-CONTACT, * CRD-INPUT-CAP.EMV-CNTCTLSS, * CRD-INPUT-CAP.MAG-STRIPE-CNTCTLSS. * Dependency: Apply fixes to: * AT60AUTH: AUTHG, AUTHS, AUTHLIBS * BA60DDL.DDLFCPF * BA60AFT: SCRNCPF, COBTKN, RQCPFS, SVCPFS * BA60EXT: OMFXS * Run Make. * Reference: WO #008527 BankNet Release Q4.16 Functional * Enhancements. * Case #2241373 AmEx Debit Card Support * Case #2264731 POS Entry Mode Validation #ADD 00387k1C DATA DIVISION 05 INVALID-POS-ENTRY-CHK PIC X(65) VALUE "POS ENTRY CHECK MUST BE Y OR N". 05 INVALID-PRE-SCRN-POS-ENTRY PIC X(65) VALUE "CHECK IF HOST ONLINE - POS ENTRY MUST BE Y OR N". 05 INVALID-MAG-STRIPE PIC X(65) VALUE "CARD INPUT CAPABILITIES - MAG STRIPE MUST BE Y OR N". 05 INVALID-CONTACT-EMV PIC X(65) VALUE "CARD INPUT CAPABILITIES - CONTACT EMV MUST BE Y OR N". 05 INVALID-CNTCTLSS-MAG-STRIPE PIC X(65) VALUE "CARD INPUT CAPABILITIES - CONTACTLESS MAG STRIPE MUST B - "E Y OR N". 05 INVALID-CNTCTLSS-EMV PIC X(65) VALUE "CARD INPUT CAPABILITIES - CONTACTLESS EMV MUST BE Y OR - "N". #REPLACE 00399n0H/00399m00 DATA DIVISION 01 WS-PIN-CHNG-PREFIX-RTE PIC X. 88 VALID-PIN-CHNG-PREFIX-RTE VALUE "0" THRU "9", "A", " ". #ADD 00749k2M 480-DATA-CHECK-SCREEN2 IF (CV-ALGO OF SEG0 OF CPF NOT = 0 AND CV-ALGO OF SEG0 OF CPF NOT = 1 AND CV-ALGO OF SEG0 OF CPF NOT = 2 AND CV-ALGO OF SEG0 OF CPF NOT = 3 ) ADD 1 TO ERR-CNT MOVE 22 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "CV ALGO MUST BE '0', '1', '2', OR '3'" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749k2O 480-DATA-CHECK-SCREEN2 MOVE 23 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k2R 480-DATA-CHECK-SCREEN2 MOVE 24 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k2U 480-DATA-CHECK-SCREEN2 MOVE 24 TO FLD-ID-NUM(ERR-CNT) #ADD 00749e0z 480-DATA-CHECK-SCREEN3 IF ( PRE-SCRN-POS-ENTRY-CHK OF SEG0 OF CPF NOT = "0" AND PRE-SCRN-POS-ENTRY-CHK OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-PRE-SCRN-POS-ENTRY TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749e15 480-DATA-CHECK-SCREEN3 MOVE 6 TO FLD-ID-NUM(ERR-CNT) #ADD 00749e1A 480-DATA-CHECK-SCREEN3 IF ( POS-ENTRY-CHK OF SEG0 OF CPF NOT = "0" AND POS-ENTRY-CHK OF SEG0 OF CPF NOT = "1" ) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-POS-ENTRY-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( MAG-STRIPE OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "Y" AND MAG-STRIPE OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-MAG-STRIPE TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CONTACT OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "Y" AND EMV-CONTACT OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CONTACT-EMV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( MAG-STRIPE-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "Y" AND MAG-STRIPE-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CNTCTLSS-MAG-STRIPE TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( EMV-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "Y" AND EMV-CNTCTLSS OF CRD-INPUT-CAP OF SEG0 OF CPF NOT = "N" ) ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CNTCTLSS-EMV TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #REPLACE 00749k2d 480-DATA-CHECK-SCREEN3 MOVE 13 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k2l 480-DATA-CHECK-SCREEN3 MOVE 12 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k30 480-DATA-CHECK-SCREEN3 MOVE 12 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k39 480-DATA-CHECK-SCREEN3 MOVE 14 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k3J 480-DATA-CHECK-SCREEN3 MOVE 15 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k3S 480-DATA-CHECK-SCREEN3 MOVE 15 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k3b 480-DATA-CHECK-SCREEN3 MOVE 16 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k3k 480-DATA-CHECK-SCREEN3 MOVE 17 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k3u 480-DATA-CHECK-SCREEN3 MOVE 18 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k43 480-DATA-CHECK-SCREEN3 MOVE 19 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4D 480-DATA-CHECK-SCREEN3 MOVE 20 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4M 480-DATA-CHECK-SCREEN3 MOVE 20 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4V 480-DATA-CHECK-SCREEN3 MOVE 21 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4e 480-DATA-CHECK-SCREEN3 MOVE 22 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4o 480-DATA-CHECK-SCREEN3 MOVE 23 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k4y 480-DATA-CHECK-SCREEN3 MOVE 24 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k56 480-DATA-CHECK-SCREEN3 MOVE 25 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k5E 480-DATA-CHECK-SCREEN3 MOVE 26 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k5O 480-DATA-CHECK-SCREEN3 MOVE 27 TO FLD-ID-NUM(ERR-CNT) #REPLACE 00749k5Y 480-DATA-CHECK-SCREEN3 MOVE 28 TO FLD-ID-NUM(ERR-CNT) #ADD 00749m0Z 480-DATA-CHECK-SCREEN13 MOVE PIN-CHNG-PREFIX-RTE OF SEG9 OF CPF TO WS-PIN-CHNG-PREFIX-RTE. IF NOT VALID-PIN-CHNG-PREFIX-RTE ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "PIN CHANGE PREFIX ROUTING MUST BE NUMERIC,'A' - "OR SPACE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00876W0I 620-CLEAR-SEG9 PIN-CHNG-PREFIX-RTE OF SEG9 #ENDSCN = BA0K053 !#CMP2.28 08/16/16 COBTKN 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6044 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6044 * ******************************************************************************** #SCN = BA0K062 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 00057r0G * 16AUG2016 wielerk * Symptom: BankNet Release Q4.16 Functional Enhancements. * Problem: None * Fix: Add POS entry to PROD-TKN-TABLE for the * PIN Change Token (06) * Update WS-PROD-TKN-TBL to 249. * Update PROD-TKN-TABLE-CNT to 249. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60AFT.SCRNCPF * BA60AFT.RQCPFS * BA60AFT.SVCPFS * BA60DDL: DDLATTKN * BA60DDL: DDLBATKN * BA60DDL.DDLFCPF * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #008527 BankNet Release Q4.16 Functional * Enhancements. #ADD 00072 05 POS0 PIC X(29) VALUE "0602POS PIN CHANGE ". #DELETE 00195q03/00195p0D #REPLACE 00197r01 02 WS-PROD-TKN-TBL OCCURS 249 TIMES. #REPLACE 00201r01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 249. #ENDSCN = BA0K062 !#CMP2.28 02/10/17 COBTKN 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6045 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6045 * ******************************************************************************** #SCN = BA0L002 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 00057s0K * 10FEB2017 watsonl * Symptom: Banknet Release 17.Q2 Mandates * MDS Release 17.Q2 Mandates * Problem: None * Fix: Add ATM and POS entry to PROD-TKN-TABLE for the * Payment Account Reference token (SO) * Transaction Analysis token (SP) * Update WS-PROD-TKN-TBL to 253. * Update PROD-TKN-TABLE-CNT to 253. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS and BATKNID * Run Make. * Reference: WO #008669 Banknet Release 17.Q2 Mandates. * WO #008670 MDS Release 17.Q2 Mandates. #ADD 00195s02 05 ATM110 PIC X(29) VALUE "SO01ATM PAYMENT ACCOUNT REF ". 05 POS122 PIC X(29) VALUE "SO02POS PAYMENT ACCOUNT REF ". 05 ATM111 PIC X(29) VALUE "SP01ATM TRANSACTION ANALYSIS ". 05 POS123 PIC X(29) VALUE "SP02POS TRANSACTION ANALYSIS ". #ADD 00197s00 02 WS-PROD-TKN-TBL OCCURS 253 TIMES. #DELETE 00197s01 #ADD 00201r00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 253. #DELETE 00201s00/00201s01 #ENDSCN = BA0L002 !#CMP2.28 04/26/17 SVSTRFTS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.SVSTRFTS SVSTRFTS 6000 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.SVSTRFTS SVSTRFTS 6000 * ******************************************************************************** #SCN = BA0L025 , FILEID = SVSTRFTS #VOLUME = $ROOK.BA60AFT #FILE = SVSTRFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00038 ! 26APR2017 gruberg ! Symptom: Unsupported routing hierarchy values are allowed to be ! entered on the STRF screen. ! Problem: The RTE_HRCHY_TBL descriptions for values B1, BF and BZ ! do not indicate that those values are not supported. ! They are not currently supported in the TCM processing. ! Fix: Update the RTE_HRCHY_TBL descriptions for valuse B1, BF ! and BZ. ! Proc modified: strf_util_data_chk_rte_hrchy ! Dependency: Apply fixes to BA60DDL.DDLFSTRF and BA60AFT.SVSTRFTS. ! Run Make. ! Reference: Case #2535817 #REPLACE 02263 STRF_UTIL_DATA_CHK_RTE_HRCHY "B1", "(N/A RTE-HRCHY VALUE B1) ", #REPLACE 02272 STRF_UTIL_DATA_CHK_RTE_HRCHY "BF", "(N/A RTE-HRCHY VALUE BF) ", #REPLACE 02274 STRF_UTIL_DATA_CHK_RTE_HRCHY "BZ", "(N/A RTE-HRCHY VALUE BZ) ", #ENDSCN = BA0L025 !#CMP2.28 04/28/17 COBTKN 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6046 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6046 * ******************************************************************************** #SCN = BA0L027 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00057t0H * 28APR2017 bensone * Symptom: Banknet Release 17.Q2 Phase 2 Enhancements * Problem: None * Fix: Add POS entry to PROD-TKN-TABLE for the * Installment Extended Data Token (FE) * Correct ATM entry in PROD-TKN-TABLE for the * CNTCTLSS-TXN-DATA-TKN (D0) * Update WS-PROD-TKN-TBL to 254. * Update PROD-TKN-TABLE-CNT to 254. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNCVS and PSTKNID * Run Make. * Reference: WO #008748 #ADD 00195o00 05 ATM103 PIC X(29) VALUE "D001ATM CONTACTLESS TXN DATA ". #DELETE 00195o01 #ADD 00195t04 05 POS124 PIC X(29) VALUE "FE02POS INSTALL EXT DATA ". #ADD 00197t00 02 WS-PROD-TKN-TBL OCCURS 254 TIMES. #DELETE 00197t01 #ADD 00201t01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 254. #DELETE 00201t02 #ENDSCN = BA0L027 !#CMP2.28 07/26/17 COBTKN 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6047 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6047 * ******************************************************************************** #SCN = BA0L038 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00057u0G * 26JUL2017 venugov * Symptom: Banknet Release 16.Q2 Global 515: Installment * Payment Processing - SPDH Changes * Problem: None * Fix: Update comments in PROD-TKN-TABLE * Dependency: Apply fixes to: * BA60DDL: DDLFTKN * BA60AFT: COBTKN * BA60AFT.SCRNTKN * BA60AFT.RQTKNS * Run Make. * Reference: WO #008748 #ADD 00062 *= This table is for Product tokens. CSE/CSM tokens should be *= added to the CSE Token Table in BA60CSE.TKNTBLC.These tables *= are combined by the Token Requester. *= *= Each Token ID/Product ID combination must be unique within *= the table. *= #ENDSCN = BA0L038 !#CMP2.28 07/26/17 RQTKNS 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQTKNS RQTKNS 6012 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQTKNS RQTKNS 6012 * ******************************************************************************** #SCN = BA0L039 , FILEID = RQTKNS #VOLUME = $ROOK.BA60AFT #FILE = RQTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00021L0A * 26JUL2017 venugov * Symptom: Banknet Release 16.Q2 Global 515: Installment * Payment Processing - SPDH Changes. * Problem: None. * Fix: Added a Function Type to support Mastercard's * installment payment processing in BASE24-POS. * Added: 595-CHK-FOR-INVALID-TKN * 595-CHK-TKN-LOOP-0 * Modified: 290-DISPLAY-DEFAULTS * 400-MOVE-RECORD * 480-DATA-CHECK-SCREEN1 * 495-SEARCH-ADDED-TKN * 515-MOVE-SCRN-FLDS-TO-TBL * 550-TABLE-LOOK-UP * 595-CHK-FOR-DUP-TKNS * 595-CHK-FOR-INVALID-TKN * 595-CHK-TKN-LOOP-2 * 595-LOCK-SCREEN * 595-GET-COBTKN-TBL * 595-SEARCH-ADDED-TKN * 595-SET-DEFAULT-VIRT-ENV * 800-FUNC-TYP-OVERLAY-CHECK * Dependency: Apply fix to COBTKN, DDLFTKN, RQTKNS, SCRNTKN * and run make. * Reference: WO #008748 #ADD 00108 DATA DIVISION 05 L PIC S9(4) COMP. #ADD 00778 290-DISPLAY-DEFAULTS MOVE "BAD PRODUCT ID NUMBER" TO ERR-TXT OF MSG-FILE-MAINT-9216-EXT MOVE "BAD " TO VALID-DATA PERFORM 990-DISPLAY-RESPONSE ELSE IF FUNC-TYP = "3" IF PROD-ID OF TKN = "02" PERFORM 595-ORDR VARYING I FROM 1 BY 1 UNTIL I > WS-TTL-TKN-CNT PERFORM 515-MOVE-TBL-TO-SCRN4-FLDS VARYING I FROM 1 BY 1 UNTIL I > LAST-TKN-ON-VIRT-SCRN ELSE IF PROD-ID OF TKN = " " PERFORM 595-CLEAR-TABLES VARYING I FROM 1 BY 1 UNTIL I > TKN-TABLE-CNT MOVE SPACES TO WS-SCRN2, WS-SCRN3, WS-SCRN4 PERFORM 595-ZERO-SCRNS VARYING I FROM 1 BY 1 UNTIL I > 24 ELSE #ADD 00844 400-MOVE-RECORD MOVE 1 TO WS-OVERLAY ELSE IF FUNC-TYP = "3" AND WS-OVERLAY NOT = 1 IF R-ACCESS (4) = "Y" MOVE 4 TO WS-OVERLAY ELSE MOVE 1 TO WS-OVERLAY. #DELETE 00845 400-MOVE-RECORD #ADD 00870 400-MOVE-RECORD UNTIL I > LAST-TKN-ON-VIRT-SCRN ELSE IF FUNC-TYP = "3" MOVE SPACES TO WS-SCRN4 PERFORM 400-ZERO-OUT-SEND-ORDR VARYING I FROM 1 BY 1 UNTIL I > 24 PERFORM 515-MOVE-TBL-TO-SCRN4-FLDS VARYING I FROM 1 BY 1 UNTIL I > LAST-TKN-ON-VIRT-SCRN. #DELETE 00871 400-MOVE-RECORD #ADD 01067 480-DATA-CHECK-SCREEN1 FUNC-TYP NOT = "2" AND FUNC-TYP NOT = "3" #DELETE 01068 480-DATA-CHECK-SCREEN1 #ADD 01072 480-DATA-CHECK-SCREEN1 MOVE "FUNCTION TYPE MUST BE '0', '1', '2' OR '3'" #DELETE 01073 480-DATA-CHECK-SCREEN1 #ADD 01247D00 495-SEARCH-ADDED-TKN IF FUNC-TYP = "2" OR FUNC-TYP = "3" #DELETE 01247D01 495-SEARCH-ADDED-TKN #ADD 01279 515-MOVE-SCRN-FLDS-TO-TBL IF FUNC-TYP = "2" OR FUNC-TYP = "3" #DELETE 01280 515-MOVE-SCRN-FLDS-TO-TBL #ADD 01404 550-TABLE-LOOK-UP ELSE IF TYP OF TKN = "41" MOVE "(ACI SPDH TERMINAL)" TO WS-TYP-DESC ELSE IF TYP OF TKN = "D6" MOVE "(ACI SPDH FUEL)" TO WS-TYP-DESC ELSE IF TYP OF TKN = "D7" MOVE "(ACI SPDH ECR)" TO WS-TYP-DESC ELSE IF TYP OF TKN = "D8" MOVE "(ACI SPDH SCRIPT)" TO WS-TYP-DESC #ADD 01720 595-CHK-FOR-DUP-TKNS PERFORM 595-CHK-FOR-INVALID-TKN VARYING I FROM 1 BY 1 UNTIL I > WS-TTL-TKN-CNT. MOVE PROD-TKN-TABLE-CNT TO L. PERFORM 595-CHK-TKN-LOOP-0 VARYING I FROM 1 BY 1 UNTIL I > L. ADD 1 TO L. PERFORM 595-CHK-TKN-LOOP-1 VARYING I FROM L BY 1 #DELETE 01721 595-CHK-FOR-DUP-TKNS #ADD 01724 595-CHK-TKN-LOOP-1 595-CHK-FOR-INVALID-TKN. MOVE TBL-TOKEN-ID(I) TO WS-TYP-CHECK IF TYP-CHECK(1) < "0" OR TYP-CHECK(2) < "0" OR TYP-CHECK(1) > "Z" OR TYP-CHECK(2) > "Z" OR ( TYP-CHECK(1) > "9" AND TYP-CHECK(1) < "A" ) OR ( TYP-CHECK(2) > "9" AND TYP-CHECK(2) < "A" ) MOVE 44 TO DUP-ERR MOVE WS-TTL-TKN-CNT TO I MOVE WS-TTL-TKN-CNT TO J. 595-CHK-TKN-LOOP-0. PERFORM 595-CHK-TKN-LOOP-2 VARYING J FROM L BY 1 UNTIL J > T. #ADD 01734 595-CHK-TKN-LOOP-2 MOVE WS-TTL-TKN-CNT TO J. #DELETE 01735 /01748 595-CHK-TKN-LOOP-2 #ADD 01752J01 595-LOCK-SCREEN MOVE "DUPLICATE IDS IN TKN-TABLE IN TKNTBLC. CORRECT AND RECO - "MPILE TKN REQ" #DELETE 01752J02/01752J03 595-LOCK-SCREEN #ADD 01757J01 595-LOCK-SCREEN MOVE "INVALID ID IN PRODUCT OR CSE TKN TABLE. CORRECT AND REC - "OMPILE TKN REQ" #DELETE 01757J02/01757J03 595-LOCK-SCREEN #ADD 01843D0A 595-GET-COBTKN-TBL ELSE IF FUNC-TYP = "3" IF TBL-PROD-ID (I) = PROD-ID OF TKN AND TBL-TOKEN-ID (I) NOT = "23" MOVE TBL-TOKEN-ID (I) TO WS-TKN-ID (J) ADD 1 TO J ELSE NEXT SENTENCE #ADD 01952D00 595-SEARCH-ADDED-TKN IF FUNC-TYP = "2" OR FUNC-TYP = "3" #DELETE 01952D01 595-SEARCH-ADDED-TKN #ADD 02015D07 595-SET-DEFAULT-VIRT-ENV ELSE IF PROD-ID = "02" AND FUNC-TYP = "3" MOVE WS-POS-TKN-CNT TO WS-TTL-TKN-CNT SUBTRACT 1 FROM WS-TTL-TKN-CNT #ADD 02105 800-FUNC-TYP-OVERLAY-CHECK IF FUNC-TYP = "2" OR FUNC-TYP = "3" #DELETE 02106 800-FUNC-TYP-OVERLAY-CHECK #ADD 02110 800-FUNC-TYP-OVERLAY-CHECK MOVE "FUNCTION TYPE MUST BE '0', '1' , '2' OR '3'" #DELETE 02111 800-FUNC-TYP-OVERLAY-CHECK #ENDSCN = BA0L039 !#CMP2.28 02/07/18 COBTKN 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6048 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6048 * ******************************************************************************** #SCN = BA0M002 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00057v0D * 08FEB2018 gruberg * Symptom: VisaNet April 2018 Business Enhancements * Problem: None * Fix: Add POS entry to PROD-TKN-TABLE for the Merchant * Descriptor Token (FF). * Add missing entries for Base tokens to * PROD-TKN-TABLE as follows: * - Added a POS entry for ACCT QUALIFIER TOKEN (18) * - Added a POS entry for ISS FEE/REBATE TOKEN (30) * - Added a POS entry for DCC STATUS TOKEN (S2) * - Added a POS entry for DCC PROCESSING TOKEN (S3) * - Added a POS entry for TRACK2 TOKEN (S6) * Increment WS-PROD-TKN-TBL. * Increment PROD-TKN-TABLE-CNT. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNCVS and PSTKNID * Run Make. * Reference: WO #008900 VisaNet April 2018 Business * Enhancements * 08FEB2018 wielerk * Symptom: BASE24-eps RUPAY V1.6.6 2016 Mandated Changes. * Problem: None * Fix: Add an ATM and POS entry to PROD-TKN-TABLE for the * Generic Interchange Token (SQ). * Increment WS-PROD-TKN-TBL. * Increment PROD-TKN-TABLE-CNT. * Dependency: Apply fix to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #008866 BASE24-eps RUPAY V1.6.6 2016 Mandated * Changes #ADD 00195u06 05 POS125 PIC X(29) VALUE "FF02POS MERCHANT DESCRIPTOR ". 05 ATM112 PIC X(29) VALUE "SQ01ATM GENERIC INTERCHANGE ". 05 POS126 PIC X(29) VALUE "SQ02POS GENERIC INTERCHANGE ". 05 POS127 PIC X(29) VALUE "1802POS ACCT QUALIFIER TOKEN ". 05 POS128 PIC X(29) VALUE "3002POS ISS FEE/REBATE TOKEN ". 05 POS129 PIC X(29) VALUE "S202POS DCC STATUS TOKEN ". 05 POS130 PIC X(29) VALUE "S302POS DCC PROCESSING TOKEN ". 05 POS131 PIC X(29) VALUE "S602POS TRACK2 TOKEN ". #REPLACE 00197u01 02 WS-PROD-TKN-TBL OCCURS 262 TIMES. #REPLACE 00201u01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 262. #ENDSCN = BA0M002 !#CMP2.28 04/17/18 COBTKN 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6049 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6049 * ******************************************************************************** #SCN = BA0M016 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00057w0b * 17APR2018 gruberg * Symptom: Banknet 18.Q2 Phase 2 Functional Enhancements * MDS 18.Q2 Phase 2 Functional Enhancements * Problem: None * Fix: Added an ATM and POS entry to PROD-TKN-TABLE for * the P2P Mobile Payment Token (SS). * Added a POS entry to PROD-TKN-TABLE for the * Supplementary Merchant Data Token (FG). * Increment WS-PROD-TKN-TBL. * Increment PROD-TKN-TABLE-CNT. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNID, BATKNCVS, PSTKNID, PSTKNCVS * Run Make. * Reference: WO #008931 Banknet 18.Q2 Phase 2 Functional * Enhancements * WO #008932 MDS 18.Q2 Phase 2 Functional * Enhancements #ADD 00195w08 05 ATM113 PIC X(29) VALUE "SS01ATM P2P MOBILE PAYMENT ". 05 POS132 PIC X(29) VALUE "SS02POS P2P MOBILE PAYMENT ". 05 POS133 PIC X(29) VALUE "FG02POS SUPPL MERCHANT DATA ". #REPLACE 00197w01 02 WS-PROD-TKN-TBL OCCURS 265 TIMES. #REPLACE 00201w01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 265. #ENDSCN = BA0M016 !#CMP2.28 08/10/18 COBTKN 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.COBTKN COBTKN 6050 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.COBTKN COBTKN 6050 * ******************************************************************************** #SCN = BA0M033 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00057x0K * 10AUG2018 jayaprm * Symptom: MDS Release 18.Q4 Functional Enhancements * Problem: None * Fix: Added an ATM and POS entry to PROD-TKN-TABLE for * the SERVICE CHARGE TOKEN (ST). * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * by 2. * Dependency: Apply fix to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNID, BATKNCVS * Run Make. * Reference: WO #008947 MDS R18.Q4 Functional Enhancements #ADD 00195x03 05 ATM114 PIC X(29) VALUE "ST01ATM SERVICE CHARGE TOKEN ". 05 POS134 PIC X(29) VALUE "ST02POS SERVICE CHARGE TOKEN ". #REPLACE 00197x01 02 WS-PROD-TKN-TBL OCCURS 267 TIMES. #REPLACE 00201x01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 267. #ENDSCN = BA0M033 !#CMP2.28 08/31/18 RQEMFS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQEMFS RQEMFS 6047 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQEMFS RQEMFS 6047 * ******************************************************************************** #SCN = BA0M042 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00020t0W * 31AUG2018 jhas * Symptom: Descrepancies between the bitmaps of EMF default, * PSHISOS and PIBICIS. * Problem: There were descrepancies between the bitmaps of * EMF default,PSHISOS and PIBICIS. * Fix: Updated the bitmaps of RQEMFS to keep it in sync * with PSHISOS and PIBICIS for 0100,0110,0120,0130, * 0200,0210,0220,0230,0402,0412,0420,0430 message * types for POS transaction. * Dependency: Apply fix to RQEMFS and re-MAKE. * Scup copy requester object into POBJ. * Reference: Case #02786791. #ADD 00082d2Y DATA DIVISION VALUE " CCCCCCCCCCCC CCCCCC CCCCCCCC M #DELETE 00082d2Z DATA DIVISION #ADD 00082d49 DATA DIVISION VALUE "MMMMMMMMMMMMMM MMMM CCCCCC MM CCCCCCCC #DELETE 00082d4A DATA DIVISION #ADD 00082d5E DATA DIVISION VALUE " CCC #DELETE 00082d5F DATA DIVISION #ADD 00082s4O DATA DIVISION VALUE " CC C C C C C M C M M C CC CCCCCC MMC #DELETE 00082s4P DATA DIVISION #ADD 00082s4T DATA DIVISION VALUE "CCCC C MCM MCM M C C C CCCCCC CCCCCC C #DELETE 00082s4U DATA DIVISION #ADD 00082s5F DATA DIVISION VALUE "CCCCCCCMCMCMCMCMMCC C CCCCCCCC C #DELETE 00082s5G DATA DIVISION #ADD 00346X01 DATA DIVISION 05 FILLER12 VALUE "MMM M MMM MMM M M " #DELETE 00346J01 DATA DIVISION #ADD 00346X07 DATA DIVISION 05 FILLER13 VALUE "MMM M MMM MMM M M " #DELETE 00346J06 DATA DIVISION #ADD 00346X12 DATA DIVISION 05 FILLER48 VALUE "M MMM MMM M M CC " #DELETE 00346X13 DATA DIVISION #ADD 00346X3Y DATA DIVISION 05 FILLER100 VALUE " MC M MC MC M M " #DELETE 00346X3Z DATA DIVISION #ADD 00346X58 DATA DIVISION 05 FILLER123 VALUE " CC C C C C C M C CC " #DELETE 00346X59 DATA DIVISION #ADD 00346X5A DATA DIVISION 05 FILLER124 VALUE "CCC C MCM MCM M C " #DELETE 00346X5B DATA DIVISION #ADD 00346X5C DATA DIVISION 05 FILLER125 VALUE " MMM MMM M M " #DELETE 00346X5D DATA DIVISION #ADD 00346X5E DATA DIVISION 05 FILLER126 VALUE "CCCCCCMCMCMCMCMMCC " #DELETE 00346X5F DATA DIVISION #ENDSCN = BA0M042 !#CMP2.28 09/04/18 RQEMFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \K9.$ROOK.BA60AFT.RQEMFS RQEMFS 6048 * * NEW FILE: \K9.$CHKOUT.BA6DAFT.RQEMFS RQEMFS 6048 * ******************************************************************************** #SCN = BA0M043 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00020v0D * 04SEP2018 jhas * Symptom: The RQEMFS fails Make. * Problem: The RQEMFS make failed due to improper * continuation of line. * Fix: Updated the code with proper continuation. * Dependency: Apply fix to RQEMFS and re-MAKE. * Scup copy requester object into POBJ. * Reference: Case #02786791. #ADD 00082d2Y DATA DIVISION VALUE " CCCCCCCCCCCC CCCCCC CCCCCCCC M - "MMMMMMMMM ". #DELETE 00082v00/00082d30 DATA DIVISION #ADD 00082d49 DATA DIVISION VALUE "MMMMMMMMMMMMMM MMMM CCCCCC MM CCCCCCCC - " ". #DELETE 00082v05/00082d4B DATA DIVISION #ADD 00082d5E DATA DIVISION VALUE " CCC - " ". #DELETE 00082v0A/00082d5G DATA DIVISION #ADD 00082s4O DATA DIVISION VALUE " CC C C C C C M C M M C CC CCCCCC MMC - "CC CCC C CC ". #DELETE 00082v0F/00082s4Q DATA DIVISION #ADD 00082s4T DATA DIVISION VALUE "CCCC C MCM MCM M C C C CCCCCC CCCCCC C - "CCCCCCCCCCC ". #DELETE 00082v0K/00082s4V DATA DIVISION #ADD 00082s5F DATA DIVISION VALUE "CCCCCCCMCMCMCMCMMCC C CCCCCCCC C - "CC CC ". #DELETE 00082v0P/00082s5H DATA DIVISION #ENDSCN = BA0M043 !#CMP2.28 02/05/19 COBTKN 6051 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6051 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6051 * ******************************************************************************** #SCN = BA0N006 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6051 #NEWVERSION = 6052 #ADD 00057y0E * 05FEB2019 subramk * Symptom: BASE24 Banknet Release 19.Q2 Functional * Enhancements * Problem: None. * Fix: Added an ATM and POS entry to PROD-TKN-TABLE for * GENRC-ICHG-RESP-DATA-TKN (SU) and * TXN-ID-TKN (SV). * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * by 4. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNID, BATKNCVS * Run Make. * Reference: WO #009038 BASE24 Banknet Release 19.Q2 Functional * Enhancements * Case #2833938 #ADD 00195y03 05 ATM115 PIC X(29) VALUE "SU01ATM GENERIC ICHG RESPONSE". 05 POS135 PIC X(29) VALUE "SU02POS GENERIC ICHG RESPONSE". 05 ATM116 PIC X(29) VALUE "SV01ATM TRANSACTION ID TOKEN ". 05 POS136 PIC X(29) VALUE "SV02POS TRANSACTION ID TOKEN ". #REPLACE 00197y01 02 WS-PROD-TKN-TBL OCCURS 271 TIMES. #REPLACE 00201y01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 271. #ENDSCN = BA0N006 !#CMP2.28 02/05/19 RQCPFS 6067 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6067 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6067 * ******************************************************************************** #SCN = BA0N010 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6067 #NEWVERSION = 6068 #ADD 00022\0Q * 05FEB2019 subramk * Symptom: Checking Bad PIN tries in BASE24-POS. * BASE24-POS Authorization Enhancements for * Cardholder Credits. * Problem: None. * Fix: Added support for processing the new CPF fields. * LIMIT CHECK * TOTALS UPDATE * BALANCE UPDATE * BAD PIN TRIES CHECK * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * PS60RTAU: AUTHLIBS, AUTHS, ROUTERS, RTAUG * Run Make. * Reference: Case #2839660 * Case #2850089 #ADD 00074=02 DATA DIVISION 05 WS-BAD-PIN-TRIES-CHK-DESC PIC X(28). 05 WS-CR-TXN-LMT-CHK-DESC PIC X(22). 05 WS-CR-TXN-TTLS-UPDT-DESC PIC X(22). 05 WS-CR-TXN-BAL-UPDT-DESC PIC X(22). #ADD 00475=0M 400-MOVE-RECORD IF BAD-PIN-TRIES-CHK OF SEG2 = SPACES MOVE "0" TO BAD-PIN-TRIES-CHK OF SEG2. IF LMT-CHK OF CR-TXN OF SEG2 = SPACES MOVE "0" TO LMT-CHK OF CR-TXN OF SEG2. IF TTLS-UPDT OF CR-TXN OF SEG2 = SPACES MOVE "1" TO TTLS-UPDT OF CR-TXN OF SEG2. IF BAL-UPDT OF CR-TXN OF SEG2 = SPACES MOVE "0" TO BAL-UPDT OF CR-TXN OF SEG2. #DELETE 00670#04/00670%0m 480-ERR-FLAG-OV-6 #ADD 00670#08 480-FLAG-OV-6-FIELD-15 TURN TEMP SERROR IN P-CR-TXN-LMT-CHK. SET NEW-CURSOR AT P-CR-TXN-LMT-CHK. 480-FLAG-OV-6-FIELD-16. TURN TEMP SERROR IN P-CR-TXN-TTLS-UPDT. SET NEW-CURSOR AT P-CR-TXN-TTLS-UPDT. 480-FLAG-OV-6-FIELD-17. TURN TEMP SERROR IN P-CR-TXN-BAL-UPDT. SET NEW-CURSOR AT P-CR-TXN-BAL-UPDT. #DELETE 00670#09/00670%0s 480-FLAG-OV-6-FIELD-20 #DELETE 00670w8Y 480-ERR-FLAG-OV-7 #ADD 00670%0t 480-ERR-FLAG-OV-7 480-FLAG-OV-7-FIELD-12, #DELETE 00670%0u 480-ERR-FLAG-OV-7 #ADD 00670w9O 480-FLAG-OV-7-FIELD-11 480-FLAG-OV-7-FIELD-12. TURN TEMP SERROR IN P-RTRN-BAL. SET NEW-CURSOR AT P-RTRN-BAL. #ADD 00670=03 480-ERR-FLAG-OV-8 480-FLAG-OV-DUMMY, 480-FLAG-OV-8-FIELD-11, 480-FLAG-OV-8-FIELD-12, 480-FLAG-OV-8-FIELD-13, 480-FLAG-OV-8-FIELD-14, 480-FLAG-OV-8-FIELD-15, 480-FLAG-OV-8-FIELD-16, #ADD 00670*0C 480-FLAG-OV-8-FIELD-7 TURN TEMP SERROR IN P-BAD-PIN-TRIES-CHK. SET NEW-CURSOR AT P-BAD-PIN-TRIES-CHK. #DELETE 00670*0D/00670%1P 480-FLAG-OV-8-FIELD-7 #ADD 00670=0C 480-FLAG-OV-8-FIELD-9 480-FLAG-OV-8-FIELD-11. TURN TEMP SERROR IN P-SIV-CHK-TYP. SET NEW-CURSOR AT P-SIV-CHK-TYP. 480-FLAG-OV-8-FIELD-12. TURN TEMP SERROR IN P-SIV-KEYA-GRP. SET NEW-CURSOR AT P-SIV-KEYA-GRP. 480-FLAG-OV-8-FIELD-13. TURN TEMP SERROR IN P-SIV-CHK. SET NEW-CURSOR AT P-SIV-CHK. 480-FLAG-OV-8-FIELD-14. TURN TEMP SERROR IN P-SIV-BAD-DISP. SET NEW-CURSOR AT P-SIV-BAD-DISP. 480-FLAG-OV-8-FIELD-15. TURN TEMP SERROR IN P-SIV-NOT-PRSN-DISP. SET NEW-CURSOR AT P-SIV-NOT-PRSN-DISP. 480-FLAG-OV-8-FIELD-16. TURN TEMP SERROR IN P-SIV-ATTEMPT-DISP. SET NEW-CURSOR AT P-SIV-ATTEMPT-DISP. #ADD 01399*0R 550-TABLE-LOOK-UP MOVE SPACES TO WS-BAD-PIN-TRIES-CHK-DESC. IF BAD-PIN-TRIES-CHK OF SEG2 = "0" MOVE "(PIN VERIFICATION ON BASE24)" TO WS-BAD-PIN-TRIES-CHK-DESC ELSE IF BAD-PIN-TRIES-CHK OF SEG2 = "1" MOVE "(TRANSACTIONS WITH A PIN) " TO WS-BAD-PIN-TRIES-CHK-DESC ELSE IF BAD-PIN-TRIES-CHK OF SEG2 = "2" MOVE "(ALL TRANSACTIONS) " TO WS-BAD-PIN-TRIES-CHK-DESC ELSE MOVE "(**************************)" TO WS-BAD-PIN-TRIES-CHK-DESC. MOVE SPACES TO WS-CR-TXN-LMT-CHK-DESC. IF LMT-CHK OF CR-TXN OF SEG2 = "0" MOVE "(ALL) " TO WS-CR-TXN-LMT-CHK-DESC ELSE IF LMT-CHK OF CR-TXN OF SEG2 = "1" MOVE "(REFUNDS ONLY) " TO WS-CR-TXN-LMT-CHK-DESC ELSE IF LMT-CHK OF CR-TXN OF SEG2 = "2" MOVE "(CREDIT PAYMENTS ONLY)" TO WS-CR-TXN-LMT-CHK-DESC ELSE IF LMT-CHK OF CR-TXN OF SEG2 = "3" MOVE "(NONE) " TO WS-CR-TXN-LMT-CHK-DESC ELSE MOVE "(********************)" TO WS-CR-TXN-LMT-CHK-DESC. MOVE SPACES TO WS-CR-TXN-TTLS-UPDT-DESC. IF TTLS-UPDT OF CR-TXN OF SEG2 = "0" MOVE "(ALL) " TO WS-CR-TXN-TTLS-UPDT-DESC ELSE IF TTLS-UPDT OF CR-TXN OF SEG2 = "1" MOVE "(REFUNDS ONLY) " TO WS-CR-TXN-TTLS-UPDT-DESC ELSE IF TTLS-UPDT OF CR-TXN OF SEG2 = "2" MOVE "(CREDIT PAYMENTS ONLY)" TO WS-CR-TXN-TTLS-UPDT-DESC ELSE IF TTLS-UPDT OF CR-TXN OF SEG2 = "3" MOVE "(NONE) " TO WS-CR-TXN-TTLS-UPDT-DESC ELSE MOVE "(********************)" TO WS-CR-TXN-TTLS-UPDT-DESC. MOVE SPACES TO WS-CR-TXN-BAL-UPDT-DESC. IF BAL-UPDT OF CR-TXN OF SEG2 = "0" MOVE "(ALL) " TO WS-CR-TXN-BAL-UPDT-DESC ELSE IF BAL-UPDT OF CR-TXN OF SEG2 = "1" MOVE "(REFUNDS ONLY) " TO WS-CR-TXN-BAL-UPDT-DESC ELSE IF BAL-UPDT OF CR-TXN OF SEG2 = "2" MOVE "(CREDIT PAYMENTS ONLY)" TO WS-CR-TXN-BAL-UPDT-DESC ELSE IF BAL-UPDT OF CR-TXN OF SEG2 = "3" MOVE "(NONE) " TO WS-CR-TXN-BAL-UPDT-DESC ELSE MOVE "(********************)" TO WS-CR-TXN-BAL-UPDT-DESC. #ADD 01584=04 595-CLEAR-DATA MOVE "0" TO BAD-PIN-TRIES-CHK OF SEG2. MOVE "0" TO LMT-CHK OF CR-TXN OF SEG2. MOVE "1" TO TTLS-UPDT OF CR-TXN OF SEG2. MOVE "0" TO BAL-UPDT OF CR-TXN OF SEG2. #ENDSCN = BA0N010 !#CMP2.28 02/05/19 SVCPFS 6046 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6046 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6046 * ******************************************************************************** #SCN = BA0N012 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6046 #NEWVERSION = 6047 #ADD 00017t0Q * 05FEB2019 subramk * Symptom: Checking Bad PIN tries in BASE24-POS. * BASE24-POS Authorization Enhancements for * Cardholder Credits * Problem: None. * Fix: Added support for processing new CPF fields. * LIMIT CHECK * TOTALS UPDATE * BALANCE UPDATE * BAD PIN TRIES CHECK * Paragraph Modified: 480-DATA-CHECK-SCREEN6 * 480-DATA-CHECK-SCREEN7 * 480-DATA-CHECK-SCREEN8 * Dependency: Apply fixes to: * BA60AFT: SCRNCPF, RQCPFS, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * PS60RTAU: AUTHLIBS, AUTHS, ROUTERS, RTAUG * Run Make. * Reference: Case #2839660 * Case #2850089 #ADD 00387i09 DATA DIVISION 05 INVALID-BAD-PIN-TRIES-CHK PIC X(65) VALUE "BAD PIN TRIES CHECK MUST BE 0, 1 OR 2". 05 INVALID-CR-TXN-LMT-CHK PIC X(65) VALUE "LIMIT CHECK MUST BE 0, 1, 2 OR 3". 05 INVALID-CR-TXN-TTLS-UPDT PIC X(65) VALUE "TOTALS UPDATE MUST BE 0, 1, 2 OR 3". 05 INVALID-CR-TXN-BAL-UPDT PIC X(65) VALUE "BALANCE UPDATE MUST BE 0, 1, 2 OR 3". #ADD 00749XGl 480-DATA-CHECK-SCREEN6 IF ( LMT-CHK OF CR-TXN OF SEG2 OF CPF NOT = "0" AND LMT-CHK OF CR-TXN OF SEG2 OF CPF NOT = "1" AND LMT-CHK OF CR-TXN OF SEG2 OF CPF NOT = "2" AND LMT-CHK OF CR-TXN OF SEG2 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CR-TXN-LMT-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( TTLS-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "0" AND TTLS-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "1" AND TTLS-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "2" AND TTLS-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CR-TXN-TTLS-UPDT TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( BAL-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "0" AND BAL-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "1" AND BAL-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "2" AND BAL-UPDT OF CR-TXN OF SEG2 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-CR-TXN-BAL-UPDT TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749c0E/00749c19 480-DATA-CHECK-SCREEN7 #ADD 00749XIr 480-DATA-CHECK-SCREEN7 IF ( RTRN-BAL OF SEG0 OF CPF NOT = "0" AND RTRN-BAL OF SEG0 OF CPF NOT = "1" AND RTRN-BAL OF SEG0 OF CPF NOT = "2" AND RTRN-BAL OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-RTRN-BAL TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749i0Q 480-DATA-CHECK-SCREEN8 IF ( BAD-PIN-TRIES-CHK OF SEG2 OF CPF NOT = "0" AND BAD-PIN-TRIES-CHK OF SEG2 OF CPF NOT = "1" AND BAD-PIN-TRIES-CHK OF SEG2 OF CPF NOT = "2" ) ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-BAD-PIN-TRIES-CHK TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749e29/00749e2G 480-DATA-CHECK-SCREEN8 #ADD 00749o0U 480-DATA-CHECK-SCREEN10 IF SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-DISBL-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-EAF-BOTH-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-EAF-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-AAV-C ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-TYP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-KEYA-GRP OF SEG2 OF CPF NOT = SPACES MOVE SIV-KEYA-GRP OF SEG2 OF CPF TO WS-LEN-CHECK4 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES-SIV VARYING I FROM 1 BY 1 UNTIL I > 4 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-KEYA-GRP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-CHK OF SEG2 NOT = SPACES AND SIV-CHK OF SEG2 NOT = SIV-CHK-NO-PRESCREEN-C AND SIV-CHK OF SEG2 NOT = SIV-CHK-PRESCREEN-C ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-BAD-DISP OF SEG2 NOT = SPACES AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-CONT-C AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 14 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-BAD-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-NOT-PRSN-DISP NOT = SPACES AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-CONT-C AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-NOT-PRSN-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-ATTEMPT-DISP NOT = SPACES AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-CONT-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-A-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-8-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-A-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-A-C ADD 1 TO ERR-CNT MOVE 16 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-ATTEMPT-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0N012 !#CMP2.28 04/22/19 COBTKN 6052 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6052 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6052 * ******************************************************************************** #SCN = BA0N020 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6052 #NEWVERSION = 6053 #ADD 00057z0I * 22APR2019 jayaprm * Symptom: BASE24 Banknet Release 19.Q2 Phase 2 Functional * Enhancements * Problem: None. * Fix: Added POS entry to PROD-TKN-TABLE for * SCA-ACQ-DATA-TKN (FH) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNID, PSTKNCVS * Run Make. * Reference: WO #009078 BASE24 Banknet Release 19.Q2 Phase 2 * Functional Enhancements #ADD 00195z04 05 POS137 PIC X(29) VALUE "FH02POS SCA ACQUIRER DATA ". #REPLACE 00197z01 02 WS-PROD-TKN-TBL OCCURS 272 TIMES. #REPLACE 00201z01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 272. #ENDSCN = BA0N020 !#CMP2.28 08/19/19 RQIDFS 6059 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQIDFS RQIDFS 6059 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQIDFS RQIDFS 6059 * ******************************************************************************** #SCN = BA0N049 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6059 #NEWVERSION = 6060 #ADD 00115*0L * 19AUG2019 jhas * Symptom: PSD2 RTS requirements for SCA in the EEA. * Problem: None. * Fix: Added field AUF in screen 1 to support a new * Authentication Usage File (AUF). * Modified paragraphs: * 400-MOVE-RECORD * 481-ERR-FLAG-OV-1 * Added paragraphs: * 481-FLAG-OV-1-FIELD-12 * Dependency: Apply fixes to: * BA60AFT: RQIDFS, RQCPFS, SCRNIDF, SCRNCPF, * SECTBL, SVIDFS and SVCPFS. * BA60DDL: BADDLM, BADDLMM, DDLFAUF, DDLFCAF, * DDLFCPF and DDLFIDF. * BA60EXT: OMFXS * BA60UC04: CNVCPFS * PS60IRTA: RTAUEMVG and RTAUEMVS * PS60RTAU: AUTHLIBS * PS60VRTA: RTAUSIVG and RTAUSIVS * Run Make. * Reference: WO #009106 #ADD 00274z0G DATA DIVISION 05 WS-AUF-NAME PIC X. #ADD 01150+09 400-MOVE-RECORD MOVE AUF-NAME TO WS-AUF-NAME. IF NOT (WS-AUF-NAME = "\" OR WS-AUF-NAME = "$" ) MOVE SPACES TO AUF-NAME. #ADD 01592+01 481-ERR-FLAG-OV-1 481-FLAG-OV-1-FIELD-11, 481-FLAG-OV-1-FIELD-12 #DELETE 01592+02 481-ERR-FLAG-OV-1 #ADD 01603+04 481-FLAG-OV-1-FIELD-11 481-FLAG-OV-1-FIELD-12. TURN TEMP SERROR IN I-AUF-NAME. SET NEW-CURSOR AT I-AUF-NAME. #ENDSCN = BA0N049 !#CMP2.28 08/19/19 RQCPFS 6068 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6068 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6068 * ******************************************************************************** #SCN = BA0N050 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6068 #NEWVERSION = 6069 #ADD 00022]0J * 19AUG2019 jhas * Symptom: PSD2 RTS requirements for SCA in the EEA. * Problem: None. * Fix: Added code to process the field of newly added * screen 9 and moved all the SIV related fields code * from screen 8 to screen 9. * Modified Programs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 410-MOVE-DEFAULTS * 480-DATA-CHECK-RETURN * 480-CHK-OVERLAY-8 * 480-ERR-FLAG-OV-8 * 480-FLAG-OV-8-FIELD-11 * 480-FLAG-OV-8-FIELD-12 * 480-FLAG-OV-8-FIELD-13 * 480-FLAG-OV-8-FIELD-14 * 480-FLAG-OV-8-FIELD-15 * 480-FLAG-OV-8-FIELD-16 * 550-TABLE-LOOK-UP * 570-DISPLAY-OVERLAY-9 * 595-CLEAR-DATA * Added paragraphs: * 480-CHK-OVERLAY-9 * 480-ERR-FLAG-OV-9 * Dependency: Apply fixes to: * BA60AFT: RQIDFS, RQCPFS, SCRNIDF, SCRNCPF, * SECTBL, SVIDFS and SVCPFS. * BA60DDL: BADDLM, BADDLMM, DDLFAUF, DDLFCAF, * DDLFCPF and DDLFCPF. * BA60EXT: OMFXS. * BA60UC04: CNVCPFS. * PS60IRTA: RTAUEMVG and RTAUEMVS. * PS60RTAU: AUTHLIBS. * PS60VRTA: RTAUSIVG and RTAUSIVS. * Run Make. * Reference: WO #009106 #ADD 00035%06 DATA DIVISION * * SCA constants located in the CPF DDL source file * COPY SCA-CONSTANTS OF =BASRC_BADDLCOB. #ADD 00058#01 DATA DIVISION 05 WS-SIV-CHK-TYP-DESCR PIC X(40). #DELETE 00058#02 DATA DIVISION #ADD 00058%00 DATA DIVISION 05 WS-SIV-ATTEMPT-DISP-DESCR PIC X(22). #DELETE 00058%01 DATA DIVISION #ADD 00058%02 DATA DIVISION 05 WS-SIV-AMT-CHK-DESCR PIC X(18). 05 WS-SCA-CHK-TYP-CRD-PRSN-DESCR PIC X(16). 05 WS-SCA-CHK PIC X. 05 WS-SCA-CHK-TYP-CNP-DESCR PIC X(16). 05 WS-SCA-REQ-ECOMM-DESCR PIC X(13). #ADD 00108h03 DATA DIVISION 05 CPF9 PIC X(4) VALUE "POS ". #DELETE 00108h04 DATA DIVISION #ADD 00113<00 DATA DIVISION 8, 9, 10, 11, 12, 13, #DELETE 00113<01 DATA DIVISION #ADD 00147%04 DATA DIVISION COPY SC-PSCPF9 OF =BAAFT_SCNCPFO. #DELETE 00147h07 DATA DIVISION #ADD 00475=0M 400-MOVE-RECORD IF SCA-CHK OF SEG2 = SCA-CHK-PRESCREEN-C MOVE "Y" TO WS-SCA-CHK ELSE MOVE "N" TO WS-SCA-CHK. IF SIV-AMT-CHK = SPACES MOVE "0" TO SIV-AMT-CHK OF SEG2. IF SCA-CHK-TYP-CRD-PRSN = SPACES MOVE "0" TO SCA-CHK-TYP-CRD-PRSN MOVE "0" TO SCA-ECOMM-LMT MOVE "0" TO SCA-ECOMM-AMT-LMT MOVE "0" TO SCA-ECOMM-USE-LMT MOVE "0" TO SCA-CNTCTLSS-LMT MOVE "0" TO SCA-CNTCTLSS-AMT-LMT MOVE "0" TO SCA-CNTCTLSS-USE-LMT. IF SCA-CHK-TYP-CNP = SPACES MOVE "0" TO SCA-CHK-TYP-CNP MOVE "0" TO SCA-ECOMM-LMT MOVE "0" TO SCA-ECOMM-AMT-LMT MOVE "0" TO SCA-ECOMM-USE-LMT MOVE "0" TO SCA-CNTCTLSS-LMT MOVE "0" TO SCA-CNTCTLSS-AMT-LMT MOVE "0" TO SCA-CNTCTLSS-USE-LMT. IF SCA-REQ-ECOMM = SPACES MOVE "0" TO SCA-REQ-ECOMM. #ADD 00497#07 400-SAVE-RECORD IF WS-SCA-CHK = "Y" MOVE SCA-CHK-PRESCREEN-C TO SCA-CHK OF SEG2 ELSE IF WS-SCA-CHK = "N" MOVE SCA-CHK-NO-PRESCREEN-C TO SCA-CHK OF SEG2 ELSE MOVE WS-SCA-CHK TO SCA-CHK OF SEG2. #DELETE 00497#08 400-SAVE-RECORD #ADD 00599*02 410-MOVE-DEFAULTS SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV-AAV-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV3DS1-EAF3DS2-C AND SIV-CHK-TYP OF SEG2 NOT = SIV-CHK-TYP-CVV3DS1-CVV3DS2-C #DELETE 00599*03 410-MOVE-DEFAULTS #ADD 00599%0E 410-MOVE-DEFAULTS IF SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CRD-PRSN-DISBLD-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CRD-PRSN-ENBLD-N-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CRD-PRSN-EAAENBL-C MOVE SCA-CHK-TYP-CRD-PRSN-DISBLD-C TO SCA-CHK-TYP-CRD-PRSN OF SEG2. IF SCA-CHK OF SEG2 = SCA-CHK-PRESCREEN-C MOVE "Y" TO WS-SCA-CHK ELSE MOVE "N" TO WS-SCA-CHK. IF WS-SCA-CHK = "Y" MOVE SCA-CHK-PRESCREEN-C TO SCA-CHK OF SEG2 ELSE IF WS-SCA-CHK = "N" MOVE SCA-CHK-NO-PRESCREEN-C TO SCA-CHK OF SEG2 ELSE MOVE WS-SCA-CHK TO SCA-CHK OF SEG2. IF SCA-CHK OF SEG2 NOT = SCA-CHK-NO-PRESCREEN-C AND SCA-CHK OF SEG2 NOT = SCA-CHK-PRESCREEN-C MOVE SCA-CHK-NO-PRESCREEN-C TO SCA-CHK OF SEG2. IF SCA-REQ-ECOMM OF SEG2 NOT = SCA-REQ-ECOMM-CVV2-CVC2-C AND SCA-REQ-ECOMM OF SEG2 NOT = SCA-REQ-ECOMM-CAV-3DS1-C AND SCA-REQ-ECOMM OF SEG2 NOT = SCA-REQ-ECOMM-CAV-3DS2-C MOVE SCA-REQ-ECOMM-CVV2-CVC2-C TO SCA-REQ-ECOMM OF SEG2. #ADD 00670%05 480-DATA-CHECK-RETURN 480-CHK-OVERLAY-9, #DELETE 00670w0y 480-DATA-CHECK-RETURN #ADD 00670%0F 480-CHK-OVERLAY-10 480-CHK-OVERLAY-9. PERFORM 480-ERR-FLAG-OV-9 VARYING I FROM ERR-CNT BY -1 UNTIL I < 1. #DELETE 00670]0W/00670]0c 480-ERR-FLAG-OV-8 #ADD 00670=0C 480-FLAG-OV-8-FIELD-9 480-ERR-FLAG-OV-9. MOVE FLD-ID-NUM (I) TO K. PERFORM ONE OF 480-FLAG-OV-9-FIELD-1, 480-FLAG-OV-9-FIELD-2, 480-FLAG-OV-9-FIELD-3, 480-FLAG-OV-9-FIELD-4, 480-FLAG-OV-9-FIELD-5, 480-FLAG-OV-9-FIELD-6, 480-FLAG-OV-9-FIELD-7, 480-FLAG-OV-9-FIELD-8, 480-FLAG-OV-9-FIELD-9, 480-FLAG-OV-9-FIELD-10, 480-FLAG-OV-9-FIELD-11, 480-FLAG-OV-9-FIELD-12, 480-FLAG-OV-9-FIELD-13, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, 480-FLAG-OV-DUMMY, DEPENDING ON K. 480-FLAG-OV-9-FIELD-1. TURN TEMP SERROR IN P-SIV-CHK-TYP. SET NEW-CURSOR AT P-SIV-CHK-TYP. 480-FLAG-OV-9-FIELD-2. TURN TEMP SERROR IN P-SIV-KEYA-GRP. SET NEW-CURSOR AT P-SIV-KEYA-GRP. 480-FLAG-OV-9-FIELD-3. TURN TEMP SERROR IN P-SIV-KEYA-GRP-EMV-3DS. SET NEW-CURSOR AT P-SIV-KEYA-GRP-EMV-3DS. 480-FLAG-OV-9-FIELD-4. TURN TEMP SERROR IN P-SIV-KEYA-GRP-DATA-PRFL. SET NEW-CURSOR AT P-SIV-KEYA-GRP-DATA-PRFL. 480-FLAG-OV-9-FIELD-5. TURN TEMP SERROR IN P-SIV-AMT-CHK. SET NEW-CURSOR AT P-SIV-AMT-CHK. 480-FLAG-OV-9-FIELD-6. TURN TEMP SERROR IN P-SIV-CHK. SET NEW-CURSOR AT P-SIV-CHK. 480-FLAG-OV-9-FIELD-7. TURN TEMP SERROR IN P-SIV-BAD-DISP. SET NEW-CURSOR AT P-SIV-BAD-DISP. 480-FLAG-OV-9-FIELD-8. TURN TEMP SERROR IN P-SIV-NOT-PRSN-DISP. SET NEW-CURSOR AT P-SIV-NOT-PRSN-DISP. 480-FLAG-OV-9-FIELD-9. TURN TEMP SERROR IN P-SIV-ATTEMPT-DISP. SET NEW-CURSOR AT P-SIV-ATTEMPT-DISP. 480-FLAG-OV-9-FIELD-10. TURN TEMP SERROR IN P-SCA-CHK-TYP-CRD-PRSN. SET NEW-CURSOR AT P-SCA-CHK-TYP-CRD-PRSN. 480-FLAG-OV-9-FIELD-11. TURN TEMP SERROR IN P-SCA-CHK-TYP-CNP. SET NEW-CURSOR AT P-SCA-CHK-TYP-CNP. 480-FLAG-OV-9-FIELD-12. TURN TEMP SERROR IN P-SCA-REQ-ECOMM. SET NEW-CURSOR AT P-SCA-REQ-ECOMM. 480-FLAG-OV-9-FIELD-13. TURN TEMP SERROR IN P-SCA-CHK. SET NEW-CURSOR AT P-SCA-CHK. #DELETE 00670]0k/00670]18 480-FLAG-OV-8-FIELD-16 #ADD 01357*09 550-TABLE-LOOK-UP ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV3DS1-EAF3DS2-C MOVE "(CHECK 3DS V1 WITH CVV OR 3DS V2 ON EAF)" TO WS-SIV-CHK-TYP-DESCR ELSE IF SIV-CHK-TYP OF SEG2 = SIV-CHK-TYP-CVV3DS1-CVV3DS2-C MOVE "(CHECK 3DS V1 OR 3DS V2 WITH CVV)" TO WS-SIV-CHK-TYP-DESCR #ADD 01357#0G 550-TABLE-LOOK-UP MOVE "(********************************)" TO #DELETE 01357#0H 550-TABLE-LOOK-UP #ADD 01357#0L 550-TABLE-LOOK-UP MOVE "(DENOTE & CONTINUE)" TO WS-SIV-BAD-DISP-DESCR #DELETE 01357#0M 550-TABLE-LOOK-UP #ADD 01357#0N 550-TABLE-LOOK-UP MOVE "(DENY & RETURN)" TO WS-SIV-BAD-DISP-DESCR. #DELETE 01357#0O 550-TABLE-LOOK-UP #ADD 01357#0R 550-TABLE-LOOK-UP MOVE "(DENOTE & CONTINUE)" TO WS-SIV-NOT-PRSN-DISP-DESCR #DELETE 01357#0S 550-TABLE-LOOK-UP #ADD 01357#0T 550-TABLE-LOOK-UP MOVE "(DENY & RETURN)" TO #DELETE 01357#0U 550-TABLE-LOOK-UP #ADD 01357%05 550-TABLE-LOOK-UP MOVE "(DENOTE & CONTINUE)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%06 550-TABLE-LOOK-UP #ADD 01357%08 550-TABLE-LOOK-UP MOVE "(DENY ONLY 3 & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%09 550-TABLE-LOOK-UP #ADD 01357%0B 550-TABLE-LOOK-UP MOVE "(DENY ONLY 8 & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%0C 550-TABLE-LOOK-UP #ADD 01357%0E 550-TABLE-LOOK-UP MOVE "(DENY ONLY A & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%0F 550-TABLE-LOOK-UP #ADD 01357%0H 550-TABLE-LOOK-UP MOVE "(DENY 3, 8 & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%0I 550-TABLE-LOOK-UP #ADD 01357%0K 550-TABLE-LOOK-UP MOVE "(DENY 3, A & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%0L 550-TABLE-LOOK-UP #ADD 01357%0N 550-TABLE-LOOK-UP MOVE "(DENY 8, A & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR #DELETE 01357%0O 550-TABLE-LOOK-UP #ADD 01357%0P 550-TABLE-LOOK-UP MOVE "(DENY & RETURN)" TO WS-SIV-ATTEMPT-DISP-DESCR. #DELETE 01357%0Q 550-TABLE-LOOK-UP #ADD 01357%0R 550-TABLE-LOOK-UP MOVE SPACES TO WS-SIV-AMT-CHK-DESCR. IF SIV-AMT-CHK OF SEG2 = SIV-AMT-CHK-DSBLD-C MOVE "(DISABLED)" TO WS-SIV-AMT-CHK-DESCR ELSE IF SIV-AMT-CHK OF SEG2 = SIV-AMT-CHK-UPTO-20PER-C MOVE "(UPTO 20 PERCENT MORE)" TO WS-SIV-AMT-CHK-DESCR ELSE IF SIV-AMT-CHK OF SEG2 = SIV-AMT-CHK-NO-GREATER-C MOVE "(NO GREATER)" TO WS-SIV-AMT-CHK-DESCR. MOVE SPACES TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR. IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CRD-PRSN-DISBLD-C MOVE "(DISABLED)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CRD-PRSN-ENBLD-N-C MOVE "(NATIONAL)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CRD-PRSN-EAAENBL-C MOVE "(EEA ACQUIRED)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR. MOVE SPACES TO WS-SCA-CHK-TYP-CNP-DESCR. IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-DISBLD-C MOVE "(DISABLED)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-ENBLD-N-C MOVE "(NATIONAL)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-EAAENBL-C MOVE "(EEA ACQUIRED)" TO WS-SCA-CHK-TYP-CNP-DESCR. MOVE SPACES TO WS-SCA-REQ-ECOMM-DESCR. IF SCA-REQ-ECOMM OF SEG2 = SCA-REQ-ECOMM-CVV2-CVC2-C MOVE "(CVV2/CVC2)" TO WS-SCA-REQ-ECOMM-DESCR ELSE IF SCA-REQ-ECOMM OF SEG2 = SCA-REQ-ECOMM-CAV-3DS1-C MOVE "(3DS V1)" TO WS-SCA-REQ-ECOMM-DESCR ELSE IF SCA-REQ-ECOMM OF SEG2 = SCA-REQ-ECOMM-CAV-3DS2-C MOVE "(3DS V2)" TO WS-SCA-REQ-ECOMM-DESCR. #ADD 01530h02 570-DISPLAY-OVERLAY-9 TURN PROTECTED IN SC-DATA. DISPLAY SC-FI-ID. DISPLAY SC-SYSTEM. DISPLAY SC-FIXED-INSTRUCTIONS. DISPLAY SC-VARIABLE-INSTRUCTIONS. DISPLAY OVERLAY OVERLAY-9 AT OVERLAY-AREA. DISPLAY OVERLAY-9. IF U-ACCESS(9) = "N" AND A-ACCESS(9) = "N" TURN PROTECTED IN OVERLAY-9. #ADD 01577\06 595-CLEAR-DATA WS-SIV-CHK, WS-SCA-CHK #DELETE 01577#02 595-CLEAR-DATA #ADD 01584%02 595-CLEAR-DATA MOVE SPACES TO SIV-KEYA-GRP-EMV-3DS OF SEG2. MOVE SPACES TO SIV-KEYA-GRP-DATA-PRFL OF SEG2. MOVE "0" TO SIV-AMT-CHK OF SEG2. MOVE "0" TO SCA-CHK-TYP-CRD-PRSN OF SEG2. MOVE "0" TO SCA-CHK-TYP-CNP OF SEG2. MOVE "0" TO SCA-REQ-ECOMM OF SEG2. MOVE "N" TO SCA-CHK OF SEG2. MOVE ZERO TO SCA-ECOMM-LMT OF SEG2. MOVE ZERO TO SCA-ECOMM-AMT-LMT OF SEG2. MOVE ZERO TO SCA-ECOMM-USE-LMT OF SEG2. MOVE ZERO TO SCA-CNTCTLSS-LMT OF SEG2. MOVE ZERO TO SCA-CNTCTLSS-AMT-LMT OF SEG2. MOVE ZERO TO SCA-CNTCTLSS-USE-LMT OF SEG2. #ENDSCN = BA0N050 !#CMP2.28 08/19/19 SVIDFS 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVIDFS SVIDFS 6053 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVIDFS SVIDFS 6053 * ******************************************************************************** #SCN = BA0N051 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6053 #NEWVERSION = 6054 #ADD 00043#0J * 19AUG2019 jhas * Symptom: PSD2 RTS requirements for SCA in the EEA. * Problem: None. * Fix: Added logic to include and validate the newly * added Authentication Usage File(AUF) configured * on IDF screen 1. * Modified paragraphs: * 480-BASE-FILENAMES-CHECK * Dependency: Apply fixes to: * BA60AFT: RQIDFS, RQCPFS, SCRNIDF, SCRNCPF, * SECTBL, SVIDFS and SVCPFS. * BA60DDL: BADDLM, BADDLMM, DDLFAUF, DDLFCAF, * DDLFCPF and DDLFIDF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * PS60IRTA: RTAUEMVG and RTAUEMVS * PS60RTAU: AUTHLIBS * PS60VRTA: RTAUSIVG and RTAUSIVS * Run Make. * Reference: WO #009106 #ADD 00308y00 DATA DIVISION 05 BASE-F-NAMES PIC X(35) OCCURS 10 TIMES. #DELETE 00308y01 DATA DIVISION #ADD 00868y02 480-BASE-FILENAMES-CHECK MOVE AUF-NAME OF IDF TO BASE-F-NAMES( 10 ). #ENDSCN = BA0N051 !#CMP2.28 08/19/19 SVCPFS 6047 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6047 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6047 * ******************************************************************************** #SCN = BA0N052 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6047 #NEWVERSION = 6048 #ADD 00017u0M * 19AUG2019 jhas * Symptom: PSD2 RTS requirements for SCA in the EEA. * Problem: None. * Fix: Added support of new fields of Screen 9 and also * moved the existing SIV fields of screen 8 to * scree 9. * Paragraph Modified: 480-DATA-CHECK-SCREEN * 480-DATA-CHECK-SCREEN8 * 732-CHECK-FURTHER * Paragraph Added: 480-DATA-CHECK-SCREEN9 * 733-2-DECIMAL-OVERLAY9 * 734-3-DECIMAL-OVERLAY9 * Dependency: Apply fixes to: * BA60AFT: RQIDFS, RQCPFS, SCRNIDF, SCRNCPF, * SECTBL, SVIDFS and SVCPFS. * BA60DDL: BADDLM, BADDLMM, DDLFAUF, DDLFCAF, * DDLFCPF and DDLFIDF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * PS60IRTA: RTAUEMVG and RTAUEMVS * PS60RTAU: AUTHLIBS * PS60VRTA: RTAUSIVG and RTAUSIVS * Run Make. * Reference: WO #009106 #ADD 00234e0H DATA DIVISION * * SCA constants located in the CPF DDL source file * COPY SCA-CONSTANTS OF "=BASRC_BADDLCOB". #ADD 00399b00 DATA DIVISION 01 SCA-ERR-MSGS. 05 SCA-CHK-TYP-CRD-PRSN-ERR. 10 FILLER PIC X(41) VALUE "CARD PRESENT CHECK TYPE MUST BE 0, 1 OR 2". 05 SCA-CHK-TYP-CNP-ERR. 10 FILLER PIC X(45) VALUE "CARD NOT PRESENT CHECK TYPE MUST BE 0, 1 OR 2". 05 SCA-CHK-ERR. 10 FILLER PIC X(43) VALUE "CHECK IF HOST ONLINE SCA MUST BE 'Y' OR 'N'". 05 SCA-REQ-ECOMM-ERR. 10 FILLER PIC X(39) VALUE "E-COM PROCESSING FLAG MUST BE 0, 1 OR 2". #ADD 00399i01 DATA DIVISION 10 FILLER PIC X(47) VALUE "SIV CHECK TYPE MUST BE 0, 1, 2, 3, 4, 5 ,6 OR 7". #DELETE 00399i02/00399i03 DATA DIVISION #ADD 00399c07 DATA DIVISION 05 SIV-KEYA-GRP-EMV-3DS-ERR. 10 FILLER PIC X(50) VALUE "EMBEDDED SPACES NOT ALLOWED FOR SIV KEYA 3DS GROUP". 05 SIV-KEYA-GRP-DATA-PRFL-ERR. 10 FILLER PIC X(49) VALUE "EMBEDDED SPACES NOT ALLOWED FOR SIV KEYA DATA GRP". 05 SIV-AMT-CHK-ERR. 10 FILLER PIC X(32) VALUE "SIV AMOUNT CHK MUST BE 0, 1 OR 2". #ADD 00749e09 480-DATA-CHECK-SCREEN IF OVERLAY-NUM = 9 PERFORM 480-DATA-CHECK-SCREEN9 ELSE #ADD 00749o0U 480-DATA-CHECK-SCREEN8 480-DATA-CHECK-SCREEN9. IF SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-DISBL-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-EAF-BOTH-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-EAF-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-CAVV-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV-AAV-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV3DS1-EAF3DS2-C AND SIV-CHK-TYP OF SEG2 OF CPF NOT = SIV-CHK-TYP-CVV3DS1-CVV3DS2-C ADD 1 TO ERR-CNT MOVE 1 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-TYP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-KEYA-GRP OF SEG2 OF CPF NOT = SPACES MOVE SIV-KEYA-GRP OF SEG2 OF CPF TO WS-LEN-CHECK4 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES-SIV VARYING I FROM 1 BY 1 UNTIL I > 4 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 2 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-KEYA-GRP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-KEYA-GRP-EMV-3DS OF SEG2 OF CPF NOT = SPACES MOVE SIV-KEYA-GRP-EMV-3DS OF SEG2 OF CPF TO WS-LEN-CHECK4 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES-SIV VARYING I FROM 1 BY 1 UNTIL I > 4 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 3 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-KEYA-GRP-EMV-3DS-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-KEYA-GRP-DATA-PRFL OF SEG2 OF CPF NOT = SPACES MOVE SIV-KEYA-GRP-DATA-PRFL OF SEG2 OF CPF TO WS-LEN-CHECK4 MOVE "N" TO FIRST-CHAR MOVE "N" TO BAD-FLAG MOVE "N" TO NO-MORE-CHARS PERFORM 480-CHECK-EMBEDDED-SPACES-SIV VARYING I FROM 1 BY 1 UNTIL I > 4 IF FOUND-BAD MOVE "N" TO BAD-FLAG ADD 1 TO ERR-CNT MOVE 4 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-KEYA-GRP-DATA-PRFL-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-AMT-CHK OF SEG2 OF CPF NOT = SIV-AMT-CHK-DSBLD-C AND SIV-AMT-CHK OF SEG2 OF CPF NOT = SIV-AMT-CHK-UPTO-20PER-C AND SIV-AMT-CHK OF SEG2 OF CPF NOT = SIV-AMT-CHK-NO-GREATER-C ADD 1 TO ERR-CNT MOVE 5 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-AMT-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-CHK OF SEG2 NOT = SPACES AND SIV-CHK OF SEG2 NOT = SIV-CHK-NO-PRESCREEN-C AND SIV-CHK OF SEG2 NOT = SIV-CHK-PRESCREEN-C ADD 1 TO ERR-CNT MOVE 6 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-BAD-DISP OF SEG2 NOT = SPACES AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-CONT-C AND SIV-BAD-DISP OF SEG2 NOT = SIV-BAD-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 7 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-BAD-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-NOT-PRSN-DISP NOT = SPACES AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-CONT-C AND SIV-NOT-PRSN-DISP NOT = SIV-NOT-PRSN-DISP-DNY-C ADD 1 TO ERR-CNT MOVE 8 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-NOT-PRSN-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SIV-ATTEMPT-DISP NOT = SPACES AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-CONT-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-A-ONLY-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-8-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-3-A-C AND SIV-ATTEMPT-DISP NOT = SIV-ATTEMPT-DISP-DNY-8-A-C ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SIV-ATTEMPT-DISP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CRD-PRSN-DISBLD-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CRD-PRSN-ENBLD-N-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CRD-PRSN-EAAENBL-C ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-CHK-TYP-CRD-PRSN-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-DISBLD-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-ENBLD-N-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-EAAENBL-C ADD 1 TO ERR-CNT MOVE 11 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-CHK-TYP-CNP-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SCA-REQ-ECOMM OF SEG2 OF CPF NOT = SCA-REQ-ECOMM-CVV2-CVC2-C AND SCA-REQ-ECOMM OF SEG2 OF CPF NOT = SCA-REQ-ECOMM-CAV-3DS1-C AND SCA-REQ-ECOMM OF SEG2 OF CPF NOT = SCA-REQ-ECOMM-CAV-3DS2-C ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-REQ-ECOMM-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SCA-CHK OF SEG2 OF CPF NOT = SPACES AND SCA-CHK OF SEG2 OF CPF NOT = SCA-CHK-NO-PRESCREEN-C AND SCA-CHK OF SEG2 OF CPF NOT = SCA-CHK-PRESCREEN-C ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749u0w/00749u2E 480-DATA-CHECK-SCREEN10 #ADD 00901O04 732-CHECK-FURTHER PERFORM 733-2-DECIMAL-OVERLAY9 IF NO-ERROR #ADD 00903O0H 732-CHECK-FURTHER PERFORM 734-3-DECIMAL-OVERLAY6 IF NO-ERROR #ADD 00997L02 733-2-DECIMAL-OVERLAY6 733-2-DECIMAL-OVERLAY9. IF SCA-ECOMM-LMT OF SEG2 > TWO-AMT-MAX MOVE "TOTAL ECOM AMT " TO AMT-IN-ERROR ELSE IF SCA-ECOMM-AMT-LMT OF SEG2 > TWO-AMT-MAX MOVE "MAX CUMULATIVE ECOM AMT " TO AMT-IN-ERROR ELSE IF SCA-CNTCTLSS-LMT OF SEG2 > TWO-AMT-MAX MOVE "MAX CNTCTLS AMT " TO AMT-IN-ERROR ELSE IF SCA-CNTCTLSS-AMT-LMT OF SEG2 > TWO-AMT-MAX MOVE "MAX CUMULATIVE CNTCTLS AMT " TO AMT-IN-ERROR. IF AMT-IN-ERROR NOT = SPACES MOVE "Y" TO ERROR-FLAG MOVE 9 TO FILE-STAT-ELEMENT. #ADD 01068L02 734-3-DECIMAL-OVERLAY14 734-3-DECIMAL-OVERLAY9. IF SCA-ECOMM-LMT OF SEG2 > THREE-AMT-MAX MOVE "TOTAL ECOM AMT " TO AMT-IN-ERROR ELSE IF SCA-ECOMM-AMT-LMT OF SEG2 > THREE-AMT-MAX MOVE "MAX CUMULATIVE ECOM AMT " TO AMT-IN-ERROR ELSE IF SCA-CNTCTLSS-LMT OF SEG2 > THREE-AMT-MAX MOVE "MAX CNTCTLS AMT " TO AMT-IN-ERROR ELSE IF SCA-CNTCTLSS-AMT-LMT OF SEG2 > THREE-AMT-MAX MOVE "MAX CUMULATIVE CNTCTLS AMT " TO AMT-IN-ERROR. IF AMT-IN-ERROR NOT = SPACES MOVE "Y" TO ERROR-FLAG MOVE 9 TO FILE-STAT-ELEMENT. #ENDSCN = BA0N052 !#CMP2.28 08/19/19 SECTBL 6032 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SECTBL SECTBL 6032 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SECTBL SECTBL 6032 * ******************************************************************************** #SCN = BA0N053 , FILEID = SECTBL #VOLUME = $ROOK.BA60AFT #FILE = SECTBL #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6032 #NEWVERSION = 6033 #ADD 00268f0B * 19AUG2019 jhas * Symptom: PSD2 RTS requirements for SCA in the EEA. * Problem: None. * Fix: Added an entry to PROD-SCRN-ACCESS-TABLE-DATA for * CPF Screen 9 and increased the PROD-SCRN-ACC-TABL * PROD-MAX-TABL-ENTRIES by 1. * Dependency: Apply fixes to SECTBL and remake SVISECS. * Reference: WO #009106 #ADD 00414Q02 05 CPF9 PIC X(35) VALUE "CPF 090200POS AUTHORIZATION INFO ". #ADD 00893f00 05 PROD-SCRN-ACC-TABL OCCURS 624 TIMES. #DELETE 00893f01 #ADD 00906f00 05 PROD-MAX-TABL-ENTRIES PIC 9(4) COMP VALUE 624. #DELETE 00906f01 #ENDSCN = BA0N053 !#CMP2.28 08/29/19 COBTKN 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6053 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6053 * ******************************************************************************** #SCN = BA0N067 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6053 #NEWVERSION = 6054 #DELETE 00057#09/00057R0q #ADD 00057R0q * BA60AFT: COBTKN #ADD 00057R0q * BA60DDL: DDLPSTKN #ADD 00057R0q * BA60SRC: PSTKNID, PSTKNCVS #ADD 00057R0q * Run Make. #ADD 00057R0q * Reference: WO #009078 BASE24 Banknet Release 19.Q2 Phase 2 #ADD 00057R0q * Functional Enhancements #ADD 00057R0q * 29AUG2019 wielerk * Symptom: BASE24 Visanet October 2019 Business Enhancements. * BASE24 Banknet Release 19.Q4 Functional * Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * ADNL-TRACE-ID-TKN (SW) * Added POS entry to PROD-TKN-TABLE for * GENRC-INDUSTRY-TKN (FI) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNID, BATKNCVS, PSTKNID, PSTKNCVS * Run Make. * Reference: WO #091000 BASE24 Visanet October 2019 Business * Enhancements * WO #091003 BASE24 Banknet Release 19.Q4 Functional * Enhancements #ADD 00057R0q **************************************************************** ?SECTION PROD-TKN-TABLE #ADD 00057R0q #ADD 00057R0q #ADD 00057R0q #ADD 00057R0q #REPLACE 00195#02/00195x04 05 ATM117 PIC X(29) VALUE "SW01ATM ADDITIONAL TRACE ID ". 05 POS138 PIC X(29) VALUE "SW02POS ADDITIONAL TRACE ID ". 05 POS139 PIC X(29) VALUE "FI02POS GENERIC INDUSTRY ". #REPLACE 00197#01 02 WS-PROD-TKN-TBL OCCURS 275 TIMES. #REPLACE 00201#01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 275. #ENDSCN = BA0N067 !#CMP2.28 10/21/19 RQSECS 6024 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSECS RQSECS 6024 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSECS RQSECS 6024 * ******************************************************************************** #SCN = BA0N090 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6024 #NEWVERSION = 6025 #ADD 00019X0F * 21OCT2019 meyersc * Symptom: PCI - Password SHA-256 Hashing * Problem: None * Fix: Added support for BASE24 passwords to be stored * using a SHA-256 hash encryption using a salt. * Modified paragraphs: * 400-SAVE-RECORD * 595-CLEAR-DATA * Dependency: Apply fixes to SVISECS and RQSECS. Run Make. * Refer BA60UD0N.SCNSH256 for a complete list of * dependencies. * Reference: WO #009135 #REPLACE 00573V01 400-SAVE-RECORD MOVE 1456 TO SEC-DATA-LEN OF SEC #REPLACE 00893V01 595-CLEAR-DATA MOVE 1456 TO SEC-DATA-LEN OF SEC. #ENDSCN = BA0N090 !#CMP2.28 10/21/19 SVISECS 6038 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6038 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6038 * ******************************************************************************** #SCN = BA0N091 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6038 #NEWVERSION = 6039 #ADD 01101l0J * 21OCT2019 meyersc * Symptom: PCI - Password SHA-256 Hashing * Problem: None * Fix: Added support for BASE24 passwords to be stored * using a SHA-256 hash encryption using a salt. * Modified paragraphs: * 100-INIT-REPLY * 210-ADD-SUPER-SUPER * 210-CHECK-PASSWORD * 210-CONVERT-PASSWORD * 210-ENCRYPT-PASSWORD * 210-VALIDATE-ENCRYPT-PASSWORD * 220-VALIDATE-LN-CHANGE * 240-CHANGE-PASSWORD * 240-PSWD-HIST-CHK * 240-PSWD-HIST-SHIFT * 540-ADD-SEC-RCD * Added paragraphs: * 210-VALIDATE-SHA1-PSWD * 240-CREATE-SHA2-HASH * 240-CREATE-SHA2-HASH-NEW-PSWD * 240-CREATE-SHA2-SALT * 240-PSWD-HIST-SHA2-CHK * Dependency: Apply fixes to SVISECS and RQSECS. Run Make. * Refer BA60UD0N.SCNSH256 for a complete list of * dependencies. * Reference: WO #009135 #REPLACE 01391a01 RECORD CONTAINS 334 to 1502 CHARACTERS #REPLACE 01411a01 OCCURS 288 TO 1456 TIMES #REPLACE 01415a01 RECORD CONTAINS 334 to 1502 CHARACTERS #REPLACE 01435a01 OCCURS 288 TO 1456 TIMES #REPLACE 01439a01 RECORD CONTAINS 334 to 1502 CHARACTERS #REPLACE 01459a01 OCCURS 288 TO 1456 TIMES #REPLACE 01463a01 RECORD CONTAINS 334 to 1502 CHARACTERS #REPLACE 01483a01 OCCURS 288 TO 1456 TIMES #REPLACE 01487a01 RECORD CONTAINS 334 TO 1502 CHARACTERS #REPLACE 01507a01 OCCURS 288 TO 1456 TIMES #REPLACE 01511a01 RECORD CONTAINS 334 TO 1502 CHARACTERS #REPLACE 01531a01 OCCURS 288 TO 1456 TIMES #REPLACE 01535a01 RECORD CONTAINS 334 TO 1502 CHARACTERS #REPLACE 01555a01 OCCURS 288 TO 1456 TIMES #REPLACE 01559a01 RECORD CONTAINS 334 TO 1502 CHARACTERS #REPLACE 01579a01 OCCURS 288 TO 1456 TIMES #REPLACE 01769a01 OCCURS 288 TO 1456 TIMES #ADD 01780 01 WS-PASSWORD-SAVE PIC X(8). #ADD 01780b02 01 WS-PASSWORD-SHA2-HASH PIC X(32). 01 WS-SALT2 PIC X(32). 01 WS-SALT-PASSWORD PIC X(40). 01 WS-SEED PIC 9(9) COMP VALUE 0. 01 WS-SALT-COMP PIC 9(9) COMP VALUE 0. 01 WS-SALT-ASCII PIC X(10). 01 WS-SEED-TIME. 05 SEED-HOUR PIC 99 VALUE 0. 05 SEED-MIN PIC 99 VALUE 0. 05 SEED-SEC PIC 99 VALUE 0. 05 SEED-TICK PIC 99 VALUE 0. 05 SEED-SPARE PIC 99 VALUE 0. #DELETE 01781 /01783 #REPLACE 01788a01 05 SEC-BASE-LEN PIC S9(4) COMP VALUE 1502. #REPLACE 01820a01 OCCURS 288 TO 1456 TIMES #ADD 01840a01 03 WS-SALT PIC X(32). #REPLACE 01840a02 03 WS-PSWD PIC X(32). #ADD 01897W0C 01 WS-CONTINUE-FLG PIC X. #REPLACE 02361 01 WS-REBUILD-SEC-BASE PIC X(1456). #DELETE 02625i0A #ADD 02633K06 *************** CHECK ON AUDITING FOR FIELD SIZE ********** 01 WS-AUDIT-HOLD PIC X(4010). 01 WS-REC-IMAGE PIC X(4096) GLOBAL. #ADD 03140 MOVE RETURN-HOUR TO SEED-HOUR. MOVE RETURN-MINUTES TO SEED-MIN. MOVE RETURN-SECONDS TO SEED-SEC. MOVE RETURN-TENTH-SEC TO SEED-TICK. MOVE RETURN-TENTH-SEC TO SEED-SPARE. MOVE WS-SEED-TIME TO WS-SEED. #REPLACE 03489a08 IF WS-PASSWORD-SHA2-HASH NOT = PSWD OF PSWD-HIST #ADD 03489a0G PERFORM 210-VALIDATE-SHA1-PSWD #DELETE 03489a0H #ADD 03489a0I MOVE WS-PASSWORD-HOLD to WS-PASSWORD-SAVE #ADD 03489a0j MOVE WS-PASSWORD-SAVE to WS-PASSWORD-HOLD #ADD 03489a0x PERFORM 240-CREATE-SHA2-SALT MOVE WS-SALT2 TO WS-SALT-PASSWORD(1:32) MOVE WS-PASSWORD-HOLD TO WS-SALT-PASSWORD(33:8) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH MOVE WS-SALT2 TO SALT OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE WS-PASSWORD-SHA2-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) #DELETE 03489a0y/03489a0z #ADD 03489a1Z MOVE SALT OF PSWD-HIST of SEC-BASE-INFO(1) TO WS-SALT-PASSWORD(1:32) MOVE WS-PASSWORD-HOLD TO WS-SALT-PASSWORD(33:8) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. #DELETE 03489a1a/03489a1b #REPLACE 03495a01 MOVE 1456 TO SEC-DATA-LEN OF SEC. #ADD 03511a0Y PERFORM 240-CREATE-SHA2-HASH-NEW-PSWD MOVE WS-PASSWORD-SHA2-HASH TO PSWD OF PSWD-HIST of SEC-BASE-INFO(1) MOVE WS-SALT2 TO SALT OF PSWD-HIST OF SEC-BASE-INFO(1) #DELETE 03511a0Z/03511a0c #ADD 03634f0o * * Call SHA1^HASH to verify the password against * password history entries that were created using * the SHA1^HASH. * MOVE SPACES TO WS-PASSWORD-HASH #ADD 03634f1G PERFORM 240-CREATE-SHA2-HASH MOVE WS-PASSWORD-SHA2-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE WS-SALT2 TO SALT OF PSWD-HIST OF SEC-BASE-INFO(1) #DELETE 03634f1H/03634f1I #ADD 03634f1S 210-VALIDATE-SHA1-PSWD. MOVE SPACES TO WS-PASSWORD-HASH ENTER TAL "SHA1^HASH" OF UTILIB USING WS-PASSWORD-HOLD, 8, WS-PASSWORD-HASH. IF WS-PASSWORD-HASH = PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE "N" TO PASSWORD-ERROR-FLAG PERFORM 210-CONVERT-PASSWORD ELSE MOVE "Y" TO PASSWORD-ERROR-FLAG. #ADD 03645W00 MOVE "Y" TO WS-CONTINUE-FLG. #ADD 03660 MOVE "N" TO WS-CONTINUE-FLG #REPLACE 03660a03 WS-PASSWORD-SHA2-HASH NOT = PSWD OF PSWD-HIST #ADD 03660a04 PERFORM 210-VALIDATE-SHA1-PSWD IF PASSWORD-ERROR-FLAG = "Y" MOVE "N" TO PASSWORD-ERROR-FLAG #REPLACE 03660a05/03660a09 MOVE "Y" TO ERROR-FLAG MOVE 3 TO ERR-CDE OF MSG-ERR-EXT MOVE "0003" TO ERR-NUM OF MSG-ERR-EXT MOVE "PASSWORD NOT VALID, LOGICAL NET CHANGE - "DENIED" TO WS-ERR-TXT MOVE "N" TO WS-CONTINUE-FLG END-IF END-IF #DELETE 03660a0A/03661 #REPLACE 03663 /03663 OFFSET 0 USER-NUM OF SEC = 255 AND WS-CONTINUE-FLG = "Y" #ADD 03674 IF WS-CONTINUE-FLG = "Y" #ADD 03704 ELSE NEXT SENTENCE #ADD 03849a0B * * Call the SHA1^HASH to verify the password against * password history entries that were created using * the SHA1^HASH. * MOVE SPACES TO WS-PASSWORD-HASH #ADD 03849a0N * * Move NEW-PASSWORD to PASSWORD of SEC-BASE-INFO to ensure * the correct password is referenced in 240-PSWD-HIST-SHA2-CHK. * MOVE NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN TO PASSWORD OF SEC-BASE-INFO #ADD 03849a0z PERFORM 240-CREATE-SHA2-HASH-NEW-PSWD MOVE WS-PASSWORD-SHA2-HASH TO PSWD OF PSWD-HIST OF SEC-BASE-INFO(1) MOVE WS-SALT2 TO SALT OF PSWD-HIST OF SEC-BASE-INFO(1) #DELETE 03849a10/03849a11 #REPLACE 03854a01 MOVE 1456 TO SEC-DATA-LEN OF SEC #ADD 03871A02 ****************************************************************** * CALLED TO CREATE A SHA2-HASH VALUE FOR THE NEW PASSWORD. * ***CALLED BY 210-VALIDATE-ENCRYPT-PASSWORD ****************************************************************** 240-CREATE-SHA2-HASH. PERFORM 240-CREATE-SHA2-SALT. MOVE WS-SALT2 TO WS-SALT-PASSWORD(1:32). MOVE PASSWORD OF SEC-BASE-INFO TO WS-SALT-PASSWORD(33:8). ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. ****************************************************************** * CALLED TO CREATE A SHA2-HASH VALUE FOR THE NEW PASSWORD, * CREATE A 32 BYTE SALT VALUE AND CONCATENATE WITH THE * PASSWORD. CALL SHA256^HASH TO PRODUCE A 32 BYTE SHA-2 * HASH VALUE. * ***CALLED BY 210-ADD-SUPER-SUPER and 240-CHANGE-PASSWORD ****************************************************************** 240-CREATE-SHA2-HASH-NEW-PSWD. PERFORM 240-CREATE-SHA2-SALT. MOVE WS-SALT2 TO WS-SALT-PASSWORD(1:32). MOVE NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-SALT-PASSWORD(33:8). ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. ****************************************************************** * CALLED TO CREATE A 32 BYTE SALT. THE "RANDOM' UTIITY * WILL PROVIDE A 10 DIGIT RANDOM NUMBER, AND WILL NEED * TO BE CALLED MULTIPLE TIMES. * ***CALLED BY 210-CONVERT-PASSWORD, 240-CREATE-SHA2-HASH, * 240-CREATE-SHA2-HASH-NEW-PSWD ****************************************************************** 240-CREATE-SHA2-SALT. * * TIMESTAMP WAS CALLED AND WS-SEED INITIALIZED IN 100-INIT-REPLY * ENTER TAL "RANDOM" OF UTILIB USING WS-SALT-COMP, WS-SEED. ENTER TAL "DOUBLE^ASCII" OF UTILIB USING WS-SALT-ASCII, 10, WS-SALT-COMP. MOVE WS-SALT-ASCII TO WS-SALT2(1:10). MOVE WS-SALT-COMP TO WS-SEED. ENTER TAL "RANDOM" OF UTILIB USING WS-SALT-COMP, WS-SEED. ENTER TAL "DOUBLE^ASCII" OF UTILIB USING WS-SALT-ASCII, 10, WS-SALT-COMP. MOVE WS-SALT-ASCII TO WS-SALT2(11:10). MOVE WS-SALT-COMP TO WS-SEED. ENTER TAL "RANDOM" OF UTILIB USING WS-SALT-COMP, WS-SEED. ENTER TAL "DOUBLE^ASCII" OF UTILIB USING WS-SALT-ASCII, 10, WS-SALT-COMP. MOVE WS-SALT-ASCII TO WS-SALT2(21:10). MOVE WS-SALT-COMP TO WS-SEED. ENTER TAL "RANDOM" OF UTILIB USING WS-SALT-COMP, WS-SEED. ENTER TAL "DOUBLE^ASCII" OF UTILIB USING WS-SALT-ASCII, 10, WS-SALT-COMP. MOVE WS-SALT-ASCII TO WS-SALT2(31:2). #ADD 03885a01 IF SALT OF PSWD-HIST OF SEC-BASE-INFO(X) NOT = SPACES PERFORM 240-PSWD-HIST-SHA2-CHK ELSE #ADD 03885b0G 240-PSWD-HIST-SHA2-CHK. MOVE SALT OF PSWD-HIST OF SEC-BASE-INFO(X) TO WS-SALT-PASSWORD(1:32). MOVE PASSWORD OF SEC-BASE-INFO TO WS-SALT-PASSWORD(33:8). ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. IF WS-PASSWORD-SHA2-HASH = PSWD OF PSWD-HIST OF SEC-BASE-INFO(X) MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD CAN NOT BE REUSED TRY AGAIN" TO WS-ERR-TXT MOVE "PASSWORD CAN NOT BE REUSED TRY AGAIN" TO ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT COMPUTE X = PASSWORD-MAX-STORE + 1 ELSE IF TIME-FORMAT = PSWD-CHNG-DAT OF PSWD-HIST OF SEC-BASE-INFO(X) * * If the PASSWORD-CHG-DAT is zeroes, then the password has * been reset by the administrator so allow the requested * password change and leave NUM-PASSWORD-CHNG-TODAY * set to zero in case PASSWORD-MAX-CHNG is set to one. * IF PASSWORD-CHG-DAT OF SEC-BASE-INFO = ZEROS NEXT SENTENCE ELSE COMPUTE NUM-PASSWORD-CHNG-TODAY = NUM-PASSWORD-CHNG-TODAY + 1. #ADD 03885a0R MOVE SALT OF PSWD-HIST OF SEC-BASE-INFO(Y) TO SALT OF PSWD-HIST OF SEC-BASE-INFO(X) #REPLACE 04813a01 MOVE 1456 TO SEC-DATA-LEN OF SEC #ENDSCN = BA0N091 !#CMP2.28 01/06/20 RQCPFS 6069 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6069 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6069 * ******************************************************************************** #SCN = BA0O001 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6069 #NEWVERSION = 6070 #ADD 00022^0c * 06JAN2020 jhas * Symptom: AMEX GNS Issuer Expresspay Support. * Problem: None * Fix: Added logic to support the new value "9" (AMEX * Cryptogram) in the DCV CHECK field of CPF * Screen 3. * Modified Programs: * 550-TABLE-LOOK-UP. * Dependency: Apply Fixes to: * BA60AFT: RQCPFS,SVCPFS * BA60DDL: DDLFCPF,DDLGTSS * BA60QDCV: DCVUTILS,DCVG * PSSJQRTA: RTAUDCVG,RTAUDCVS * SW60AEGN: AEGNS * SW60IAEG: AEGNEMVS * Run Make. * Replace files: * BA60LOGM: BADCVUTL * SW60AEGN : AEGNMAN and AEGNUPDT. * Reference: WO #009115 #ADD 01420-0A 550-TABLE-LOOK-UP ELSE IF DCV-CHK-TYP OF SEG0 = "9" MOVE "(AMEX CRYPTOGRAM) " TO WS-DCV-CHK-TYP-DESC #ENDSCN = BA0O001 !#CMP2.28 01/06/20 SVCPFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6048 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6048 * ******************************************************************************** #SCN = BA0O002 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00017v0P * 06JAN2020 jhas * Symptom: AMEX GNS Issuer Expresspay Support. * Problem: None * Fix: Added logic to support the new value "9" (AMEX * Cryptogram) in the DCV CHECK field of CPF * Screen 3. * Modified Programs: * 480-DATA-CHECK-SCREEN3. * Dependency: Apply Fixes to: * BA60AFT: RQCPFS,SVCPFS * BA60DDL: DDLFCPF,DDLGTSS * BA60QDCV: DCVUTILS,DCVG * PSSJQRTA: RTAUDCVG,RTAUDCVS * SW60AEGN: AEGNS * SW60IAEG: AEGNEMVS * Run Make. * Replace files: * BA60LOGM: BADCVUTL * SW60AEGN : AEGNMAN and AEGNUPDT. * Reference: WO #009115 #ADD 00387k01 DATA DIVISION "DCV CHECK MUST BE 0, 1, 2, 5, 6 OR 9". #DELETE 00387k02 DATA DIVISION #ADD 00749k2a 480-DATA-CHECK-SCREEN3 DCV-CHK-TYP OF SEG0 OF CPF NOT = "6" AND DCV-CHK-TYP OF SEG0 OF CPF NOT = "9" ) #DELETE 00749k2b 480-DATA-CHECK-SCREEN3 #ENDSCN = BA0O002 !#CMP2.28 02/09/20 COBTKN 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6054 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6054 * ******************************************************************************** #SCN = BA0O009 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6054 #NEWVERSION = 6055 #ADD 00057$0h * 10FEB2020 VulliL * Symptom: Banknet Release 20.Q2 Functional Enhancements * Base24-EPS Changes * MDS Release 20.Q2 Functional Enhancements * VisaNet April 2020 Business Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * DGTL-PMNT-AUTHN-TKN (SX) * Added POS entry to PROD-TKN-TABLE for * GTL-REMT-PMNT-TKN (FJ) * Added ATM entry to PROD-TKN-TABLE for * MIGR-ATM-ITM-SRVCS-TKN (M8) * Added ATM and POS entries to PROD-TKN-TABLE for * SEPA-ACCT-DATA-TKN (SY) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNID, BATKNCVS, PSTKNID, PSTKNCVS * Run Make. * Reference: WO #009172 BASE24 Banknet Release 20.Q2 Functional * Enhancements. * WO #009166 BASE24 MDS Release 20.Q2 Functional * Enhancements. * WO #009182 BASE24 VisaNet April 2020 Business * Enhancements. #ADD 00195$05 05 ATM118 PIC X(29) VALUE "SX01ATM DIGITAL PAYMENT AUTHN". 05 POS140 PIC X(29) VALUE "SX02POS DIGITAL PAYMENT AUTHN". 05 POS141 PIC X(29) VALUE "FJ02POS DIGITAL REMOTE PMNT ". 05 ATM119 PIC X(29) VALUE "M801ATM MIGR ATM ITM SERVICES". 05 ATM120 PIC X(29) VALUE "SY01ATM SEPA ACCOUNT DATA ". 05 POS142 PIC X(29) VALUE "SY02POS SEPA ACCOUNT DATA ". #ADD 00197$00 02 WS-PROD-TKN-TBL OCCURS 281 TIMES. #DELETE 00197$01 #ADD 00201$00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 281. #DELETE 00201$01 #ENDSCN = BA0O009 !#CMP2.28 02/09/20 RQCPFS 6070 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6070 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6070 * ******************************************************************************** #SCN = BA0O010 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6070 #NEWVERSION = 6071 #ADD 00022`0L * 10FEB2020 VulliL * Symptom: Support for Visa Cash Back Updates. * Problem: None. * Fix: Added logic to initialize the new CASH-BACK-LMT * field. * Modified the definition of WS-PARTIAL-AUTH-SPPT- * DESC. * Modified the logic to support change in order of * fields PER REFUND/REPLENISH and REFUND/REPLENISH. * Modified the logic that outputs the PARTIAL AMOUNT * SUPPORT description field. * Modified Programs: * 480-ERR-FLAG-OV-6. * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF, DDLGPSTM * PS60RTAU: ROUTERS * Run Make. * Reference: Case #2887656 #ADD 00074=00 DATA DIVISION 05 WS-PARTIAL-AUTH-SPPT-DESC PIC X(25). #DELETE 00074=01 DATA DIVISION #ADD 00670w7f 480-ERR-FLAG-OV-6 480-FLAG-OV-DUMMY, 480-FLAG-OV-6-FIELD-8, 480-FLAG-OV-6-FIELD-9, #DELETE 00670w7g/00670w7i 480-ERR-FLAG-OV-6 #ADD 00670w8A 480-FLAG-OV-6-FIELD-7 480-FLAG-OV-6-FIELD-8. TURN TEMP SERROR IN P-OFFL-RFND-CR-LMT. SET NEW-CURSOR AT P-OFFL-RFND-CR-LMT. 480-FLAG-OV-6-FIELD-9. TURN TEMP SERROR IN P-TTL-CR-PER-RFND. SET NEW-CURSOR AT P-TTL-CR-PER-RFND. 480-FLAG-OV-6-FIELD-10. #DELETE 00670w8B/00670w8F 480-FLAG-OV-6-FIELD-8 #DELETE 00670w8J/00670w8L 480-FLAG-OV-6-FIELD-10 #ADD 01399=08 550-TABLE-LOOK-UP ELSE IF PARTIAL-AUTH-SPPT OF SEG2 = 3 MOVE "(LESSER ALLOWED, NO CASH)" TO WS-PARTIAL-AUTH-SPPT-DESC #ADD 01584=04 595-CLEAR-DATA MOVE ZERO TO CASH-BACK-LMT OF SEG2. #ENDSCN = BA0O010 !#CMP2.28 02/09/20 SVCPFS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6049 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6049 * ******************************************************************************** #SCN = BA0O012 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00017w0L * 10FEB2020 VulliL * Symptom: Case #2982304 Refund online with AAC reject by * HPDH. * Case #2887656 Support for Visa Cash Back Updates. * Problem: None. * Fix: Modified logic to allow the DELAYED-AUTH-SPPT * field to contain values "D" and "R". * Modified logic to allow the PARTIAL AMOUNT SUPPORT * field to contain value "3". * Modified the output message if the value of the * PARTIAL AMOUNT SUPPORT field is invalid. * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF, DDLGPSTM * PS60IRTA: RTAUEMVS * PS60RTAU: ROUTERS * Run Make. * Reference: Case #2982304 * Case #2887656 #ADD 00387o01 DATA DIVISION "PARTIAL AMOUNT SUPPORT MUST BE 0, 1, 2 OR 3". #DELETE 00387o02 DATA DIVISION #ADD 00749o0E 480-DATA-CHECK-SCREEN8 PARTIAL-AUTH-SPPT OF SEG2 OF CPF NOT = "2" AND PARTIAL-AUTH-SPPT OF SEG2 OF CPF NOT = "3" ) THEN #DELETE 00749o0F 480-DATA-CHECK-SCREEN8 #ADD 00749n29 480-DATA-CHECK-SCREEN13 DELAYED-AUTH-SPPT OF SEG9 OF CPF NOT = "R" AND DELAYED-AUTH-SPPT OF SEG9 OF CPF NOT = "D" AND #ADD 00749n2D 480-DATA-CHECK-SCREEN13 MOVE "DECLINED AUTH SUPPORT MUST BE 'Y','D','R', - "OR 'N'" TO WS-ERR-TXT #DELETE 00749n2E/00749n2F 480-DATA-CHECK-SCREEN13 #DELETE 00986K00/00986K07 733-2-DECIMAL-OVERLAY6 #DELETE 01058K00/01058K07 734-3-DECIMAL-OVERLAY6 #ENDSCN = BA0O012 !#CMP2.28 03/16/20 SVHCFS 6012 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVHCFS SVHCFS 6012 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVHCFS SVHCFS 6012 * ******************************************************************************** #SCN = BA0O025 , FILEID = SVHCFS #VOLUME = $ROOK.BA60AFT #FILE = SVHCFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6012 #NEWVERSION = 6013 #ADD 00012L1Q * 16MAR2020 wielerk * Symptom: When changing Logical Nets for the HCF and there * are more than 10 configured, display of the 7th * record shows the 1st record read. * Problem: There is a table of HCF records that holds 5 HCF * records. When the table is full, the server * rolls back to the first table entry. The error * occurs because when initializing the table an * index is used, (K), that has not been updated * with the value of the index that is used to * manage the table entries, (J). * Fix: Modified code to use index J when moving the * record just read to F-NAME when the table is * full. * Modified proc: 909-TABL-MAINT * Dependency: Apply fix to SVHCFS. Run Make. * Reference: Case #3054329. #REPLACE 00896G06/00896G07 909-TABL-MAINT MOVE HCF-FNAME-HOLD TO F-NAME(J) MOVE OMF-AUDIT-HOLD TO OMF-AUDIT-FLAG(J) #ENDSCN = BA0O025 !#CMP2.28 05/27/20 RQCPFS 6071 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6071 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6071 * ******************************************************************************** #SCN = BA0O035 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6071 #NEWVERSION = 6072 #ADD 00022~0K * 27MAY2020 VulliL * Symptom: Visa Purchase with Cash Back Enhancements. * Problem: None. * Fix: Modified the definition of WS-PARTIAL-AUTH-SPPT- * DESC. * Modified the text in the descriptions of the * PARTIAL AMOUNT SUPPORT field. * Modified Programs: * 550-TABLE-LOOK-UP * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF * PS60HISO: PSHISOS * PS60RTAU: AUTHLIBS, ROUTERS, RTAUG * PS60SPDH: ASPDHS * SW60PSBI: PSBICIS * SW60VISA: VISAFMTS * Replace file: * SW60BABI: BABILOGM * Run Make. * Refer to BA60UD0O.SCNPWCB for a complete listing * of dependencies. * Reference: Case #2887656. #ADD 00074~00 DATA DIVISION 05 WS-PARTIAL-AUTH-SPPT-DESC PIC X(32). #DELETE 00074~01 DATA DIVISION #ADD 01399=05 550-TABLE-LOOK-UP MOVE "(ALLOWED, NON-CASH TXNS ONLY)" TO WS-PARTIAL-AUTH-SPPT-DESC #DELETE 01399=06 550-TABLE-LOOK-UP #ADD 01399=07 550-TABLE-LOOK-UP MOVE "(ALLOWED, AMTS REDUCED IN PWCB)" TO WS-PARTIAL-AUTH-SPPT-DESC #DELETE 01399=08 550-TABLE-LOOK-UP #ADD 01399~01 550-TABLE-LOOK-UP MOVE "(ALLOWED, PURCHASE ONLY IN PWCB)" TO WS-PARTIAL-AUTH-SPPT-DESC #DELETE 01399~02/01399~03 550-TABLE-LOOK-UP #ADD 01399=09 550-TABLE-LOOK-UP MOVE "(******************************)" TO WS-PARTIAL-AUTH-SPPT-DESC #DELETE 01399=0A 550-TABLE-LOOK-UP #ENDSCN = BA0O035 !#CMP2.28 07/17/20 SVISECS 6039 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6039 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6039 * ******************************************************************************** #SCN = BA0O041 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6039 #NEWVERSION = 6040 #ADD 01101m0S * 17JUL2020 jhas * Symptom: SVISECS is not compiling due to memory issue. * Problem: The code space limit was exceeded resulting into * compilation error. * Fix: Moved Paragraphs from the main program to the * nested subprogram to alleviate the code space * problem. Changed all identifiers common to both * the nested subprogram and main program to GLOBAL. * Modifed paragraphs: * 210-CONVERT-PASSWORD. * 210-ADD-SUPER-SUPER. * 240-CHANGE-PASSWORD. * 240-UPDATE-LAST-LOGON-TIME. * 240-UPDATE-CUR-LOGON-ATTEMPTS * 250-GET-UPFR-INFO. * 510-READ-SEC-RCD. * 515-READ-NEXT-SEC-RCD. * 517-READ-SBB-LOOP. * 520-GRANT-SEC-ACCESS-PRIVILEGE. * 520-UPDATE-SEC-RCD. * 522-PROCESS-ALIAS-UPDATE. * 530-DELETE-RCD. * 530-DELETE-UFIR. * 530-DELETE-UPFR. * 530-DELETE-SEC-SCRN-REC. * 540-ADD-SEC-RCD. * 550-GET-NEXT-UFIR-BLOCK. * 550-READ-UFIR-RECORDS. * 570-MODIFY-UFIR-BLOCK. * 570-UPDATE-UFIR. * 580-MODIFY-SCRN-ACCESS. * 580-SPECIAL-SEC-TEXT-FILL. * 580-SPECIAL-UPFR-TEXT-FILL. * 590-GET-NEXT-SCRN-ACCESS. * 600-ADD-LIKE-SCRN-ACC-RCDS. * 600-ADD-SCRN-SEC-RCDS. * 600-ADD-LIKE-UFIR-RCDS. * 600-ADD-UFIR-RECORDS. * 600-ADD-LIKE-UPFR-RCDS. * 600-ADD-UPFR-RECORDS. * 907-OPEN-SEC-1. * 907-OPEN-UPFR-1. * 907-OPEN-UFIR-1. * 907-OPEN-SEC-2. * 907-OPEN-UPFR-2. * 907-OPEN-UFIR-2. * 907-OPEN-SEC-3. * 907-OPEN-UPFR-3. * 907-OPEN-UFIR-3. * 907-OPEN-SEC-4. * 907-OPEN-UPFR-4. * 907-OPEN-UFIR-4. * 909-RETRIEVE-LCONF-ASSIGNS. * 909-LCONF-CONTINUE. * 911-START-SEC-BY-ALTKEY. * 911-PROCESS-THE-INVALID. * 911-READ-THIS-RECORD. * Modified subprogram: * MOVES-PGM * Dependency: Apply Fixes to SVISECS. Run Make. * Reference: Case #3118503 #ADD 01101W0Q **************************NOTE********************************** * The SVISECS module is approaching the code space limit of 65K * words. To address the restrictions imposed by this limit, a * new subprogram, called MOVES-PGM, has been added to the end of * the module. If new paragraphs need to be added to SVISECS in * the future, then it is advisable to add them to MOVES-PGM, as * long as they don't call any other paragraphs, except those * already in the subprogram or which can be moved to the * subprogram. To do this, please adopt a similar approach to * that currently followed for invoking other paragraphs in * MOVES-PGM. **************************************************************** #ADD 01486 FD SBB-SEC-FILE-1 GLOBAL #DELETE 01487 #ADD 01489 01 SBB-SEC-REC-1 GLOBAL. #DELETE 01490 #ADD 01510 FD SBB-SEC-FILE-2 GLOBAL #DELETE 01511 #ADD 01513 01 SBB-SEC-REC-2 GLOBAL. #DELETE 01514 #ADD 01534 FD SBB-SEC-FILE-3 GLOBAL #DELETE 01535 #ADD 01537 01 SBB-SEC-REC-3 GLOBAL. #DELETE 01538 #ADD 01558 FD SBB-SEC-FILE-4 GLOBAL #DELETE 01559 #ADD 01561 01 SBB-SEC-REC-4 GLOBAL. #DELETE 01562 #ADD 01583 FD UFIR-FILE-1 GLOBAL #DELETE 01584 #ADD 01585 01 UFIR-REC-1 GLOBAL. #DELETE 01586 #ADD 01593 FD UFIR-FILE-2 GLOBAL #DELETE 01594 #ADD 01595 01 UFIR-REC-2 GLOBAL. #DELETE 01596 #ADD 01603 FD UFIR-FILE-3 GLOBAL #DELETE 01604 #ADD 01605 01 UFIR-REC-3 GLOBAL. #DELETE 01606 #ADD 01613 FD UFIR-FILE-4 GLOBAL #DELETE 01614 #REPLACE 01616 01 UFIR-REC-4 GLOBAL. #ADD 01624 FD SBB-UFIR-FILE-1 GLOBAL #DELETE 01625 #ADD 01626 01 SBB-UFIR-REC-1 GLOBAL. #DELETE 01627 #ADD 01634 FD SBB-UFIR-FILE-2 GLOBAL #DELETE 01635 #ADD 01636 01 SBB-UFIR-REC-2 GLOBAL. #DELETE 01637 #ADD 01644 FD SBB-UFIR-FILE-3 GLOBAL #DELETE 01645 #ADD 01646 01 SBB-UFIR-REC-3 GLOBAL. #DELETE 01647 #ADD 01654 FD SBB-UFIR-FILE-4 GLOBAL #DELETE 01655 #ADD 01656 01 SBB-UFIR-REC-4 GLOBAL. #DELETE 01657 #ADD 01709 FD SBB-UPFR-FILE-1 GLOBAL #DELETE 01710 #ADD 01711 01 SBB-UPFR-REC-1 GLOBAL. #DELETE 01712 #ADD 01720 FD SBB-UPFR-FILE-2 GLOBAL #DELETE 01721 #ADD 01722 01 SBB-UPFR-REC-2 GLOBAL. #DELETE 01723 #ADD 01732 FD SBB-UPFR-FILE-3 GLOBAL #DELETE 01733 #ADD 01734 01 SBB-UPFR-REC-3 GLOBAL. #DELETE 01735 #ADD 01743 FD SBB-UPFR-FILE-4 GLOBAL #DELETE 01744 #ADD 01745 01 SBB-UPFR-REC-4 GLOBAL. #DELETE 01746 #ADD 01796F00 COPY UFIR OF "=BASRC_BADDLCOB" REPLACING ==01 UFIR.== BY ==01 UFIR GLOBAL.==. #DELETE 01796F01 #ADD 01798F00 COPY UPFR OF "=BASRC_BADDLCOB" REPLACING ==01 UPFR.== BY ==01 UPFR GLOBAL.==. #DELETE 01798F01 #ADD 02429 01 SEC-INTERNAL-TABLE GLOBAL. #DELETE 02430 #ADD 02437 01 UFIR-INTERNAL-TABLE GLOBAL. #DELETE 02438 #ADD 02441 01 UPFR-INTERNAL-TABLE GLOBAL. #DELETE 02442 #ADD 02455 01 LCONF-NAME-I PIC X(24) GLOBAL. #DELETE 02456 #ADD 02463 01 FILE-INDICATOR PIC 99 VALUE 0 GLOBAL. #DELETE 02464 #ADD 02507i01 05 MOVES-IND PIC 99 VALUE 0. #DELETE 02507i02 #ADD 02507i0A 88 SEC-ERROR-TEXT-FILL VALUE 8. 88 SEC-ERROR-TEXT-PRE-FILL VALUE 9. 88 UFIR-ERROR-TEXT-FILL VALUE 10. 88 UPFR-ERROR-TEXT-FILL VALUE 12. 88 LCONF-ERROR-TEXT-FILL VALUE 13. 88 FILL-FIELDS VALUE 11. 88 READ-NEXT-SBB-UFIR VALUE 12. 88 READ-NEXT-SBB-UPFR VALUE 13. 88 START-SBB-SEC-BY-ALIAS VALUE 14. 88 START-UFIR-BY-ALIAS VALUE 15. 88 START-SBB-UPFR-BY-ALIAS VALUE 16. #ADD 02507i0B 01 MISC-COMPUTATIONALS GLOBAL. #DELETE 02508 #ADD 03090 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03091 #ADD 03096 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03097 #ADD 03101 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03102 #DELETE 03141 /03199W04 #ADD 03489i00 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03489i01 #ADD 03489i05 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03489a1J #ADD 03489i06 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03489i07 #ADD 03489i0B SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03489a1S #ADD 03532 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03533 #ADD 03849i00 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03849i01 #ADD 03849i05 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03849W09 #ADD 03866i00 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03866i01 #ADD 03867i02 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03869 #ADD 03946i00 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03946i01 #ADD 03947i02 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03949 #ADD 03954i00 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03954i01 #ADD 03955i02 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03957 #ADD 03957i03 SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03957i04 #ADD 03957i08 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03957A0O #ADD 03957i0C SET SEC-ERROR-TEXT-PRE-FILL TO TRUE CALL MOVES-PGM #DELETE 03957i0D #ADD 03957i0H SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 03957A0W #ADD 03996 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 03997 #ADD 04001 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04002 #ADD 04195 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04196 #ADD 04200 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04201 #ADD 04244 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04245 #ADD 04252 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04253 #ADD 04259 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04260 #ADD 04264 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04265 #ADD 04269 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04270 #ADD 04299 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04300 #ADD 04309 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04310 #ADD 04316 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04317 #ADD 04353 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04354 #ADD 04472f0x SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04472f0y #ADD 04472f22 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04472f23 #ADD 04514 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04515 #ADD 04545W05 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04545A1M #ADD 04545A2Q SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04545A2R #ADD 04571 SET START-UFIR-BY-ALIAS TO TRUE CALL MOVES-PGM #DELETE 04572 #ADD 04592 SET START-SBB-SEC-BY-ALIAS TO TRUE CALL MOVES-PGM #DELETE 04593 #ADD 04602 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04603 #ADD 04611 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04612 #ADD 04616 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04617 #ADD 04624 SET START-SBB-SEC-BY-ALIAS TO TRUE CALL MOVES-PGM #DELETE 04625 #ADD 04634 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04635 #ADD 04643 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04644 #ADD 04648 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04649 #ADD 04653 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04654 #ADD 04672 SET START-SBB-SEC-BY-ALIAS TO TRUE CALL MOVES-PGM #DELETE 04673 #ADD 04682 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04683 #ADD 04691 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04692 #ADD 04696 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04697 #ADD 04704 SET START-SBB-SEC-BY-ALIAS TO TRUE CALL MOVES-PGM #DELETE 04705 #ADD 04714 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04715 #ADD 04723 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04724 #ADD 04728 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04729 #ADD 04733 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04734 #ADD 04737 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04738 #ADD 04758 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04759 #ADD 04764 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04765 #ADD 04775 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04776 #ADD 04789 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04790 #ADD 04803 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04804 #ADD 04832f10 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04832f11 #ADD 04832f13 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04832f14 #ADD 04832f15 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04832f16 #ADD 04899 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04900 #ADD 04915 SET READ-NEXT-SBB-UFIR TO TRUE CALL MOVES-PGM. #DELETE 04916 #ADD 04922 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04923 #ADD 04972R0R SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04972R0S #ADD 04972R0Y SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 04972R0Z #ADD 04989 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04990 #ADD 04996 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 04997 #ADD 05020 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05021 #ADD 05028 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05029 #ADD 05055 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05056 #ADD 05062 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05063 #ADD 05069 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05070 #ADD 05077 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 05078 #ADD 05104R0M SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 05104R0N #ADD 05104R0T SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 05104R0U #ADD 05160 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 05161 #ADD 05167 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 05168 #ADD 05844 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 05845 #ADD 06019f0Y SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06019f0Z #ADD 06019f0b SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06019f0c #ADD 06044 SET START-SBB-SEC-BY-ALIAS TO TRUE. CALL MOVES-PGM #DELETE 06045 #ADD 06061 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 06062 #ADD 06081 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06082 #ADD 06109 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 06110 #ADD 06112 SET READ-NEXT-SBB-UFIR TO TRUE CALL MOVES-PGM. #DELETE 06113 #ADD 06129 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06130 #ADD 06137 SET START-SBB-UPFR-BY-ALIAS TO TRUE CALL MOVES-PGM. #DELETE 06138 #ADD 06149 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 06150 #ADD 06166 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06167 #ADD 06172 SET READ-NEXT-SBB-UPFR TO TRUE CALL MOVES-PGM. #DELETE 06173 #ADD 06240 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06241 #ADD 06246 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06247 #ADD 06280 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06281 #ADD 06288 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06289 #ADD 06326 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06327 #ADD 06336 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06337 #ADD 06402 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06403 #ADD 06408 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06409 #ADD 06442 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06443 #ADD 06450 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06451 #ADD 06489 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06490 #ADD 06499 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06500 #ADD 06565 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06566 #ADD 06571 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06572 #ADD 06606 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06607 #ADD 06614 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06615 #ADD 06653 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06654 #ADD 06663 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06664 #ADD 06729 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06730 #ADD 06735 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06736 #ADD 06770 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06771 #ADD 06778 SET UPFR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06779 #ADD 06818 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06819 #ADD 06828 SET UFIR-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06829 #ADD 06927 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06928 #ADD 06985 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06986 #ADD 06998 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 06999 #ADD 07005 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 07006 #ADD 07012 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 07013 #ADD 07018 SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 07019 #ADD 07024F0J SET LCONF-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM #DELETE 07024F0K #DELETE 07235 /07345 #ADD 07372W04 SET FILL-FIELDS TO TRUE CALL MOVES-PGM #DELETE 07374 #DELETE 07380 /07385 #ADD 07395 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 07396 #ADD 07414 SET FILL-FIELDS TO TRUE CALL MOVES-PGM #DELETE 07415 #ADD 07421 SET SEC-ERROR-TEXT-FILL TO TRUE CALL MOVES-PGM. #DELETE 07422 #DELETE 07482 /07524 #DELETE 07616 /07658 #ADD 08292i0P WHEN SEC-ERROR-TEXT-FILL PERFORM 100-SEC-ERROR-TEXT-FILL WHEN SEC-ERROR-TEXT-PRE-FILL PERFORM 100-SEC-ERROR-TEXT-PRE-FILL WHEN UFIR-ERROR-TEXT-FILL PERFORM 100-UFIR-ERROR-TEXT-FILL WHEN UPFR-ERROR-TEXT-FILL PERFORM 100-UPFR-ERROR-TEXT-FILL WHEN LCONF-ERROR-TEXT-FILL PERFORM 100-LCONF-ERROR-TEXT-FILL WHEN FILL-FIELDS PERFORM 911-FILL-FIELDS WHEN READ-NEXT-SBB-UFIR PERFORM 911-READ-NEXT-SBB-UFIR WHEN READ-NEXT-SBB-UPFR PERFORM 911-READ-NEXT-SBB-UPFR WHEN START-SBB-SEC-BY-ALIAS PERFORM 911-START-SBB-SEC-BY-ALIAS WHEN START-UFIR-BY-ALIAS PERFORM 911-START-UFIR-BY-ALIAS WHEN START-SBB-UPFR-BY-ALIAS PERFORM 911-START-SBB-UPFR-BY-ALIAS #ADD 08292i0Y 100-SEC-ERROR-TEXT-FILL. IF FILE-STAT-ELEMENT = 30 AND WS-GUAR-ERR = 0 ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, SEC-F-NAME-I(FILE-INDICATOR) MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT ELSE IF FILE-STAT-ELEMENT = 91 MOVE FILE-STAT-91-ERR TO WS-ERR-TXT MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT ELSE MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT. 100-SEC-ERROR-TEXT-PRE-FILL. MOVE GUARDIAN-ERR TO WS-GUAR-ERR. MOVE WS-GUAR-ERR TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. 100-UFIR-ERROR-TEXT-FILL. IF FILE-STAT-ELEMENT = 30 AND WS-GUAR-ERR = 0 ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, UFIR-F-NAME-I(FILE-INDICATOR) MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT ELSE IF FILE-STAT-ELEMENT = 91 MOVE FILE-STAT-91-ERR TO WS-ERR-TXT MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT ELSE MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT. 100-UPFR-ERROR-TEXT-FILL. IF FILE-STAT-ELEMENT = 30 AND WS-GUAR-ERR = 0 ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, UPFR-F-NAME-I(FILE-INDICATOR) MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT ELSE IF FILE-STAT-ELEMENT = 91 MOVE FILE-STAT-91-ERR TO WS-ERR-TXT MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT ELSE MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT. 100-LCONF-ERROR-TEXT-FILL. IF FILE-STAT-ELEMENT = 30 AND WS-GUAR-ERR = 0 ENTER TAL "FILEINFO" USING OMITTED, WS-GUAR-ERR, LCONF-NAME-I MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT ELSE IF FILE-STAT-ELEMENT = 91 MOVE FILE-STAT-91-ERR TO WS-ERR-TXT MOVE 91 TO ERR-CDE OF MSG-ERR-EXT MOVE "0091" TO ERR-NUM OF MSG-ERR-EXT ELSE MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT. 911-FILL-FIELDS. MOVE "Y" TO ERROR-FLAG. MOVE 11 TO WS-GUAR-ERR. MOVE WS-GUAR-ERR TO ERR-CDE OF MSG-ERR-EXT, ERR-CNVT. MOVE ERR-CNVT TO ERR-NUM OF MSG-ERR-EXT. MOVE USER-NUMBERS-EXIST TO WS-ERR-TXT. 911-READ-NEXT-SBB-UFIR. IF FILE-INDICATOR = 1 READ SBB-UFIR-FILE-1 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 2 READ SBB-UFIR-FILE-2 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 3 READ SBB-UFIR-FILE-3 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 4 READ SBB-UFIR-FILE-4 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE MOVE "Y" TO ERROR-FLAG. IF FILE-INDICATOR = 1 MOVE SBB-UFIR-REC-1 TO UFIR ELSE IF FILE-INDICATOR = 2 MOVE SBB-UFIR-REC-2 TO UFIR ELSE IF FILE-INDICATOR = 3 MOVE SBB-UFIR-REC-3 TO UFIR ELSE IF FILE-INDICATOR = 4 MOVE SBB-UFIR-REC-4 TO UFIR. IF FILE-STAT-ELEMENT NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR. 911-READ-NEXT-SBB-UPFR. IF FILE-INDICATOR = 1 READ SBB-UPFR-FILE-1 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 2 READ SBB-UPFR-FILE-2 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 3 READ SBB-UPFR-FILE-3 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE IF FILE-INDICATOR = 4 READ SBB-UPFR-FILE-4 NEXT AT END MOVE 10 TO FILE-STAT-ELEMENT ELSE MOVE "Y" TO ERROR-FLAG. IF FILE-INDICATOR = 1 MOVE SBB-UPFR-REC-1 TO UPFR ELSE IF FILE-INDICATOR = 2 MOVE SBB-UPFR-REC-2 TO UPFR ELSE IF FILE-INDICATOR = 3 MOVE SBB-UPFR-REC-3 TO UPFR ELSE IF FILE-INDICATOR = 4 MOVE SBB-UPFR-REC-4 TO UPFR. IF FILE-STAT-ELEMENT NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR. 911-START-SBB-SEC-BY-ALIAS. IF FILE-INDICATOR = 1 MOVE SEC TO SBB-SEC-REC-1 START SBB-SEC-FILE-1 KEY = ALIAS OF SBB-SEC-FILE-1, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-SEC-FILE-1 MOVE SBB-SEC-REC-1 TO SEC ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 2 MOVE SEC TO SBB-SEC-REC-2 START SBB-SEC-FILE-2 KEY = ALIAS OF SBB-SEC-FILE-2, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-SEC-FILE-2 MOVE SBB-SEC-REC-2 TO SEC ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 3 MOVE SEC TO SBB-SEC-REC-3 START SBB-SEC-FILE-3 KEY = ALIAS OF SBB-SEC-FILE-3, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-SEC-FILE-3 MOVE SBB-SEC-REC-3 TO SEC ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 4 MOVE SEC TO SBB-SEC-REC-4 START SBB-SEC-FILE-4 KEY = ALIAS OF SBB-SEC-FILE-4, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-SEC-FILE-4 MOVE SBB-SEC-REC-4 TO SEC. IF FILE-STAT-ELEMENT NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR. 911-START-UFIR-BY-ALIAS. IF FILE-INDICATOR = 1 MOVE UFIR TO UFIR-REC-1 START UFIR-FILE-1 KEY > PRIKEY OF UFIR-FILE-1 IF FILE-STAT-ELEMENT = 0 READ UFIR-FILE-1 NEXT MOVE UFIR-REC-1 TO UFIR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 2 MOVE UFIR TO UFIR-REC-2 START UFIR-FILE-2 KEY > PRIKEY OF UFIR-FILE-2 IF FILE-STAT-ELEMENT = 0 READ UFIR-FILE-2 NEXT MOVE UFIR-REC-2 TO UFIR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 3 MOVE UFIR TO UFIR-REC-3 START UFIR-FILE-3 KEY > PRIKEY OF UFIR-FILE-3 IF FILE-STAT-ELEMENT = 0 READ UFIR-FILE-3 NEXT MOVE UFIR-REC-3 TO UFIR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 4 MOVE UFIR TO UFIR-REC-4 START UFIR-FILE-4 KEY > PRIKEY OF UFIR-FILE-4 IF FILE-STAT-ELEMENT = 0 READ UFIR-FILE-4 NEXT MOVE UFIR-REC-4 TO UFIR. IF FILE-STAT-ELEMENT NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR. 911-START-SBB-UPFR-BY-ALIAS. IF FILE-INDICATOR = 1 MOVE UPFR TO SBB-UPFR-REC-1 START SBB-UPFR-FILE-1 KEY = ALIAS OF SBB-UPFR-FILE-1, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-UPFR-FILE-1 MOVE SBB-UPFR-REC-1 TO UPFR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 2 MOVE UPFR TO SBB-UPFR-REC-2 START SBB-UPFR-FILE-2 KEY = ALIAS OF SBB-UPFR-FILE-2, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-UPFR-FILE-2 MOVE SBB-UPFR-REC-2 TO UPFR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 3 MOVE UPFR TO SBB-UPFR-REC-3 START SBB-UPFR-FILE-3 KEY = ALIAS OF SBB-UPFR-FILE-3, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-UPFR-FILE-3 MOVE SBB-UPFR-REC-3 TO UPFR ELSE NEXT SENTENCE ELSE IF FILE-INDICATOR = 4 MOVE UPFR TO SBB-UPFR-REC-4 START SBB-UPFR-FILE-4 KEY = ALIAS OF SBB-UPFR-FILE-4, GENERIC IF FILE-STAT-ELEMENT = 0 READ SBB-UPFR-FILE-4 MOVE SBB-UPFR-REC-4 TO UPFR. IF FILE-STAT-ELEMENT NOT = 0 MOVE "Y" TO ERROR-FLAG MOVE GUARDIAN-ERR TO WS-GUAR-ERR. #ENDSCN = BA0O041 !#CMP2.28 08/11/20 COBTKN 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6055 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6055 * ******************************************************************************** #SCN = BA0O046 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00057%0R * 11AUG2020 VulliL * Symptom: Support data associated with the destination * currency, when currency conversion is performed * by a network. * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * DEST-CRNCY-TKN (H0) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: Case #3140331 #ADD 00195%07 05 ATM121 PIC X(29) VALUE "H001ATM DEST CRNCY TOKEN ". 05 POS143 PIC X(29) VALUE "H002POS DEST CRNCY TOKEN ". #ADD 00197%00 02 WS-PROD-TKN-TBL OCCURS 283 TIMES. #DELETE 00197%01 #ADD 00201%00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 283. #DELETE 00201%01 #ENDSCN = BA0O046 !#CMP2.28 08/13/20 COBTKN 6056 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6056 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6056 * ******************************************************************************** #SCN = BA0O053 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6056 #NEWVERSION = 6057 #ADD 00057&0F * 13AUG2020 VulliL * Symptom: Banknet Release 20.Q4 Functional Enhancements * Base24-eps Changes * Problem: None. * Fix: Added POS entry to PROD-TKN-TABLE for * EMV-3DS-DATA-TKN (FK) * Added ATM entry to PROD-TKN-TABLE for * MIGR-ATM-RCYCL-HOPR-TKN (M9) * Added ATM and POS entries to PROD-TKN-TABLE for * RELATED-DATA-TKN (SZ) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS, PSTKNID * Run Make. * Reference: WO #009232 BASE24 Banknet Release 20.Q4 Functional * Enhancements. * Base24-eps Changes #ADD 00195&03 05 POS144 PIC X(29) VALUE "FK02POS EMV 3D-SECURE TOKEN ". 05 ATM122 PIC X(29) VALUE "M901ATM MIGR ATM RCYCL HOPR ". 05 ATM123 PIC X(29) VALUE "SZ01ATM RELATED DATA TOKEN ". 05 POS145 PIC X(29) VALUE "SZ02POS RELATED DATA TOKEN ". #ADD 00197&00 02 WS-PROD-TKN-TBL OCCURS 287 TIMES. #DELETE 00197&01 #ADD 00201&00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 287. #DELETE 00201&01 #ENDSCN = BA0O053 !#CMP2.28 08/13/20 RQCPFS 6072 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6072 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6072 * ******************************************************************************** #SCN = BA0O054 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6072 #NEWVERSION = 6073 #ADD 00022(0N * 13AUG2020 VulliL * Symptom: Allow SCA Processing to Apply Globally * Problem: None. * Fix: Modified the logic that sets default values in the * CARD PRESENT CHECK TYPE and CARD NOT PRESENT CHECK * TYPE fields on Screen 9. * Modified the logic that sets the CARD PRESENT * CHECK TYPE and CARD NOT PRESENT CHECK TYPE * description fields on Screen 9. * Modified Programs: * 410-MOVE-DEFAULTS * 550-TABLE-LOOK-UP * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SVCPFS * BA60DDL: DDLFCPF * Run Make. * Reference: Case #2499768 #ADD 00599^0C 410-MOVE-DEFAULTS SCA-CHK-TYP-CRD-PRSN-EAAENBL-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CRD-PRSN-ENBLD-G-C #DELETE 00599^0D 410-MOVE-DEFAULTS #ADD 00599^0F 410-MOVE-DEFAULTS IF SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-DISBLD-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-ENBLD-N-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-EAAENBL-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-ENBLD-G-C MOVE SCA-CHK-TYP-CNP-DISBLD-C TO SCA-CHK-TYP-CNP OF SEG2. #ADD 01357^1Y 550-TABLE-LOOK-UP MOVE "(REGIONAL - EEA)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CRD-PRSN-ENBLD-G-C MOVE "(GLOBAL)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR. #DELETE 01357^1Z 550-TABLE-LOOK-UP #ADD 01357^1i 550-TABLE-LOOK-UP MOVE "(REGIONAL - EEA)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-ENBLD-G-C MOVE "(GLOBAL)" TO WS-SCA-CHK-TYP-CNP-DESCR. #DELETE 01357^1j 550-TABLE-LOOK-UP #ENDSCN = BA0O054 !#CMP2.28 08/13/20 SVCPFS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6050 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6050 * ******************************************************************************** #SCN = BA0O055 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00017x0K * 13AUG2020 VulliL * Symptom: Allow SCA Processing to Apply Globally * Problem: None. * Fix: Modified the output messages if the value of the * CARD PRESENT CHECK TYPE field is invalid, and * CARD NOT PRESENT CHECK TYPE field is invalid. * Modified logic to allow the CARD PRESENT CHECK * TYPE and CARD NOT PRESENT CHECK TYPE fields to * contain value "3", in addition to "0", "1" & "2". * Modified program: * 480-DATA-CHECK-SCREEN9 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SVCPFS * BA60DDL: DDLFCPF * Run Make. * Reference: Case #2499768 #ADD 00399v02 DATA DIVISION 10 FILLER PIC X(44) VALUE "CARD PRESENT CHECK TYPE MUST BE 0, 1, 2 OR 3". #DELETE 00399v03/00399v04 DATA DIVISION #ADD 00399v05 DATA DIVISION 10 FILLER PIC X(48) VALUE "CARD NOT PRESENT CHECK TYPE MUST BE 0, 1, 2 OR 3". #DELETE 00399v06/00399v07 DATA DIVISION #ADD 00749v2C 480-DATA-CHECK-SCREEN9 SCA-CHK-TYP-CRD-PRSN-EAAENBL-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CRD-PRSN-ENBLD-G-C #DELETE 00749v2D 480-DATA-CHECK-SCREEN9 #ADD 00749v2O 480-DATA-CHECK-SCREEN9 SCA-CHK-TYP-CNP-EAAENBL-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-ENBLD-G-C #DELETE 00749v2P 480-DATA-CHECK-SCREEN9 #ENDSCN = BA0O055 !#CMP2.28 12/01/20 RQCPFS 6073 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6073 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6073 * ******************************************************************************** #SCN = BA0O072 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6073 #NEWVERSION = 6074 #ADD 00022)0I * 01DEC2020 jayaprm * Symptom: PSD2 RTS Requirements for SCA in the EEA Phase 2 * Problem: None. * Fix: Modified the code in support of the following * requirement: * - Allow specific Countries to be Included in or * Excluded from SCA processing * - TRA Exemption Indicator processing * Modified Paragraph: 400-MOVE-RECORD * 410-MOVE-DEFAULTS * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60LOGM: PSROUTER * PS60RTAU: AUTHLIBS, ROUTERS, RTAUG * PS60VRTA: RTAUSIVG, RTAUSIVS * Run Make. * Reference: WO #009106 #REPLACE 00058^0B DATA DIVISION 05 WS-SIV-AMT-CHK-DESCR PIC X(22). #REPLACE 00058^0D DATA DIVISION PIC X(18). #REPLACE 00058^0F DATA DIVISION 05 WS-SCA-CHK-TYP-CNP-DESCR PIC X(18). #ADD 00475^0A 400-MOVE-RECORD MOVE ZERO TO SCA-CNTCTLSS-LMT MOVE ZERO TO SCA-CNTCTLSS-AMT-LMT MOVE ZERO TO SCA-CNTCTLSS-USE-LMT. #DELETE 00475^0B/00475^0G 400-MOVE-RECORD #ADD 00475^0J 400-MOVE-RECORD MOVE ZERO TO TRA-EXEMPT-LMT MOVE ZERO TO SCA-ECOMM-LMT MOVE ZERO TO SCA-ECOMM-AMT-LMT MOVE ZERO TO SCA-ECOMM-USE-LMT. #DELETE 00475^0K/00475^0P 400-MOVE-RECORD #ADD 00475^0U 400-MOVE-RECORD IF TRA-EXEMPT-LMT = SPACES MOVE ZERO TO TRA-EXEMPT-LMT. #ADD 00599)02 410-MOVE-DEFAULTS SCA-CHK-TYP-CRD-PRSN-ENBLD-G-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CP-ENBLD-N-PLUS-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CP-ENBLD-EEA-PM-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 NOT = SCA-CHK-TYP-CP-ENBLD-G-MNUS-C #DELETE 00599)03 410-MOVE-DEFAULTS #ADD 00599)0E 410-MOVE-DEFAULTS SCA-CHK-TYP-CNP-ENBLD-G-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-ENBLD-N-PLUS-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-ENBLD-EEA-PM-C AND SCA-CHK-TYP-CNP OF SEG2 NOT = SCA-CHK-TYP-CNP-ENBLD-G-MNUS-C #DELETE 00599)0F 410-MOVE-DEFAULTS #ADD 01357)04 550-TABLE-LOOK-UP MOVE "(GLOBAL)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CP-ENBLD-N-PLUS-C MOVE "(NATIONAL - PLUS)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CP-ENBLD-EEA-PM-C MOVE "(EEA - PLUS/MINUS)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR ELSE IF SCA-CHK-TYP-CRD-PRSN OF SEG2 = SCA-CHK-TYP-CP-ENBLD-G-MNUS-C MOVE "(GLOBAL - MINUS)" TO WS-SCA-CHK-TYP-CRD-PRSN-DESCR. #DELETE 01357)05 550-TABLE-LOOK-UP #ADD 01357)0C 550-TABLE-LOOK-UP MOVE "(GLOBAL)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-ENBLD-N-PLUS-C MOVE "(NATIONAL - PLUS)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-ENBLD-EEA-PM-C MOVE "(EEA - PLUS/MINUS)" TO WS-SCA-CHK-TYP-CNP-DESCR ELSE IF SCA-CHK-TYP-CNP OF SEG2 = SCA-CHK-TYP-CNP-ENBLD-G-MNUS-C MOVE "(GLOBAL - MINUS)" TO WS-SCA-CHK-TYP-CNP-DESCR. #DELETE 01357)0D 550-TABLE-LOOK-UP #ADD 01584^07 595-CLEAR-DATA MOVE ZERO TO TRA-EXEMPT-LMT OF SEG2. #ENDSCN = BA0O072 !#CMP2.28 12/01/20 SVCPFS 6051 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6051 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6051 * ******************************************************************************** #SCN = BA0O074 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6051 #NEWVERSION = 6052 #ADD 00017y0H * 01DEC2020 jayaprm * Symptom: PSD2 RTS Requirements for SCA in the EEA Phase 2 * Problem: None. * Fix: Modified the code in support of the following * requirement: * - Allow specific Countries to be Included in or * Excluded from SCA processing * - TRA Exemption Indicator processing * Modified Paragraph: 480-DATA-CHECK-SCREEN9 * 733-2-DECIMAL-OVERLAY9 * 734-3-DECIMAL-OVERLAY9 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60LOGM: PSROUTER * PS60RTAU: AUTHLIBS, ROUTERS, RTAUG * PS60VRTA: RTAUSIVG, RTAUSIVS * Run Make. * Reference: WO #009106 #ADD 00399y00 DATA DIVISION 10 FILLER PIC X(32) VALUE "CARD PRESENT CHECK TYPE MUST BE ". 10 FILLER PIC X(21) VALUE "0, 1, 2, 3, 5, 6 OR 7". #DELETE 00399y01/00399y03 DATA DIVISION #ADD 00399y07 DATA DIVISION 10 FILLER PIC X(36) VALUE "CARD NOT PRESENT CHECK TYPE MUST BE ". 10 FILLER PIC X(21) VALUE "0, 1, 2, 3, 5, 6 OR 7". #DELETE 00399y08/00399y09 DATA DIVISION #ADD 00749y02 480-DATA-CHECK-SCREEN9 SCA-CHK-TYP-CRD-PRSN-ENBLD-G-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CP-ENBLD-N-PLUS-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CP-ENBLD-EEA-PM-C AND SCA-CHK-TYP-CRD-PRSN OF SEG2 OF CPF NOT = SCA-CHK-TYP-CP-ENBLD-G-MNUS-C #DELETE 00749y03 480-DATA-CHECK-SCREEN9 #ADD 00749y09 480-DATA-CHECK-SCREEN9 SCA-CHK-TYP-CNP-ENBLD-G-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-ENBLD-N-PLUS-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-ENBLD-EEA-PM-C AND SCA-CHK-TYP-CNP OF SEG2 OF CPF NOT = SCA-CHK-TYP-CNP-ENBLD-G-MNUS-C #DELETE 00749y0A 480-DATA-CHECK-SCREEN9 #ADD 00997v01 733-2-DECIMAL-OVERLAY9 IF TRA-EXEMPT-LMT OF SEG2 > TWO-AMT-MAX MOVE "TRA EXEMPT LMT " TO AMT-IN-ERROR ELSE #ADD 01068v02 734-3-DECIMAL-OVERLAY9 IF TRA-EXEMPT-LMT OF SEG2 > THREE-AMT-MAX MOVE "TRA EXEMPT LMT " TO AMT-IN-ERROR ELSE #ENDSCN = BA0O074 !#CMP2.28 02/05/21 SVISECS 6040 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6040 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6040 * ******************************************************************************** #SCN = BA0P020 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6040 #NEWVERSION = 6041 #ADD 01101n10 * 05FEB2021 wielerk * Symptom: SVISECS is displaying error messages indicating * whether username or password is entered in error. * Problem: Current PA-DSS standard is to not distinguish * which item is incorrect. * Fix: Changed error text that specified username or * password. * Modifed paragraphs: * 120-BAD-USER-ID * 210-INVALID-PASSWORD * 220-VALIDATE-LN-CHANGE * 999-SUPER-PSWD-NONZEROES-MOVES * Dependency: Apply fix to SVISECS. Run Make. * Reference: Case #3234997. #REPLACE 03226 MOVE "USERNAME OR PASSWORD INVALID" TO #REPLACE 03489a1z MOVE "USERNAME OR PASSWORD INVALID" #ADD 03657W04 MOVE "USERNAME OR PASSWORD INVALID, LOGICAL NET - "CHANGE DENIED" #DELETE 03659 #REPLACE 03660m0G/03660m0H MOVE "USERNAME OR PASSWORD INVALID, LOGICAL NET - "CHANGE DENIED" TO WS-ERR-TXT #REPLACE 03729 /03730 MOVE "USERNAME OR PASSWORD INVALID, LOGICAL NET - "CHANGE DENIED" TO WS-ERR-TXT #REPLACE 08292i1d MOVE "USERNAME OR PASSWORD INVALID" TO #ENDSCN = BA0P020 !#CMP2.28 02/11/21 COBTKN 6057 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6057 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6057 * ******************************************************************************** #SCN = BA0P021 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6057 #NEWVERSION = 6058 #ADD 00057*0K * 11FEB2021 VulliL / watsonl * Symptom: BASE24-eps Changes * Case #3200377 * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * INST-ID-NUM-TKN (H1) * Added POS entry to PROD-TKN-TABLE for * SUPPL-INSTL-DATA-TKN (FL) * Added POS entry to PROD-TKN-TABLE for * MRCH-CNTCT-DATA-TKN (FM) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS, PSTKNID * Run Make. * Reference: Case #3200377 * Base24-eps Changes #ADD 00195*05 05 ATM124 PIC X(29) VALUE "H101ATM INST ID NUM TOKEN ". 05 POS146 PIC X(29) VALUE "H102POS INST ID NUM TOKEN ". 05 POS147 PIC X(29) VALUE "FL02POS SUPPL INSTL DATA TKN ". 05 POS148 PIC X(29) VALUE "FM02POS MERCHANT CONTACT DATA". #ADD 00197*00 02 WS-PROD-TKN-TBL OCCURS 291 TIMES. #DELETE 00197*01 #ADD 00201*00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 291. #DELETE 00201*01 #ENDSCN = BA0P021 !#CMP2.28 03/17/21 SVISECS 6041 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6041 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6041 * ******************************************************************************** #SCN = BA0P028 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6041 #NEWVERSION = 6042 #ADD 01101o0F * 17MAR2021 wielerk * Symptom: The function SF-15 Add Like stopped working after * SCN BA0O041 is applied. * Problem: The 88 levels in 01 SWITCH-AREAS GLOBAL Structure * that are evaluated are not unique allowing some * paragraphs to not be executed. * Fix: Changed the values in the 88 levels to be unique. * Dependency: Apply fix to SVISECS. Run Make. * Reference: Case #3246028. #REPLACE 02507n09/02507n0G 88 UPFR-ERROR-TEXT-FILL VALUE 11. 88 LCONF-ERROR-TEXT-FILL VALUE 12. 88 FILL-FIELDS VALUE 13. 88 READ-NEXT-SBB-UFIR VALUE 14. 88 READ-NEXT-SBB-UPFR VALUE 15. 88 START-SBB-SEC-BY-ALIAS VALUE 16. 88 START-UFIR-BY-ALIAS VALUE 17. 88 START-SBB-UPFR-BY-ALIAS VALUE 18. #ENDSCN = BA0P028 !#CMP2.28 04/20/21 COBTKN 6058 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6058 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6058 * ******************************************************************************** #SCN = BA0P032 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6058 #NEWVERSION = 6059 #ADD 00057+0J * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * GENRC-ICHG-RVSL-DATA-TKN (H2) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #009296 #ADD 00195+05 05 ATM125 PIC X(29) VALUE "H201ATM GENRC ICHG RVSL DATA ". 05 POS149 PIC X(29) VALUE "H200POS GENRC ICHG RVSL DATA ". #ADD 00197+00 02 WS-PROD-TKN-TBL OCCURS 293 TIMES. #DELETE 00197+01 #ADD 00201+00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 293. #DELETE 00201+01 #ENDSCN = BA0P032 !#CMP2.28 04/20/21 RQCAFS 6070 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCAFS RQCAFS 6070 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCAFS RQCAFS 6070 * ******************************************************************************** #SCN = BA0P033 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6070 #NEWVERSION = 6071 #ADD 00023`0I * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added logic to support new fields - Offline AFT * Amount, Total AFT Amount. * Paragraphs Modified: 410-CONVERT-AMT-TO-DISPLAY * 450-SET-UP-ADD-CONTINUED * 480-DO-REST-OF-MOVES * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCAFS, SCRNCAF * BA60DDL: DDLFCAF * BA60UC04: CNVCAFS * FH60CAF: FHMCAFS * Run Make. * Restore BA60UD0P subvolume. * Reference: WO #009296 #ADD 00065c04 DATA DIVISION 10 WS-TTL-AFT-PRD-2 PIC X(17). 10 WS-OFFL-AFT-PRD-2 PIC X(17). #ADD 00592=00 400-DO-REST-OF-MOVES IF TTL-AFT-PRD OF SEG2 = SPACES MOVE ZEROS TO TTL-AFT-PRD OF SEG2. IF OFFL-AFT-PRD OF SEG2 = SPACES MOVE ZEROS TO OFFL-AFT-PRD OF SEG2. #ADD 00823 410-CONVERT-AMT-TO-DISPLAY * MOVE TTL-AFT-PRD OF SEG2 TO AMT-NUMBER. PERFORM 410-DECIDE-WHAT-TO-DO. MOVE AMT-DISPLAY TO WS-TTL-AFT-PRD-2. * MOVE OFFL-AFT-PRD OF SEG2 TO AMT-NUMBER. PERFORM 410-DECIDE-WHAT-TO-DO. MOVE AMT-DISPLAY TO WS-OFFL-AFT-PRD-2. #ADD 00929 450-SET-UP-ADD-CONTINUED TTL-AFT-PRD OF SEG2, OFFL-AFT-PRD OF SEG2, #ADD 02171 595-CLEAR-DATA TTL-AFT-PRD OF SEG2, OFFL-AFT-PRD OF SEG2, #ENDSCN = BA0P033 !#CMP2.28 04/20/21 RQCPFS 6074 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6074 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6074 * ******************************************************************************** #SCN = BA0P035 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6074 #NEWVERSION = 6075 #ADD 00022{0L * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added logic to support new fields COF-TXN-IND, * RFND-AUTH-IND, TTL-AFT-LMT and OFFL-AFT-LMT. * Paragraphs Added: 480-FLAG-OV-6-FIELD-18 * 480-FLAG-OV-8-FIELD-12 * 480-FLAG-OV-8-FIELD-13 * 480-FLAG-OV-8-FIELD-14 * Paragraph Deleted: 480-FLAG-OV-6-FIELD-14 * Paragraphs Modified: 400-MOVE-RECORD * 480-ERR-FLG-OV-6 * 480-ERR-FLAG-OV-8 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * Run Make. * Restore BA60UD0P subvolume. * Reference: WO #009296 #ADD 00074=02 DATA DIVISION 05 WS-COF-TXN-IND-DESC PIC X(32). 05 WS-RFND-AUTH-IND-DESC PIC X(30). #ADD 00115=00 DATA DIVISION 10 REC-IMAGE-REST PIC X(1639). #DELETE 00115=01 DATA DIVISION #ADD 00115=05 DATA DIVISION 05 LEFTOVER PIC X(2208). #DELETE 00115=06 DATA DIVISION #ADD 00475=0M 400-MOVE-RECORD IF COF-TXN-IND OF SEG2 = SPACES MOVE "0" TO COF-TXN-IND OF SEG2. IF RFND-AUTH-IND OF SEG2 = SPACES MOVE "0" TO RFND-AUTH-IND OF SEG2. #ADD 00670w7m 480-ERR-FLAG-OV-6 480-FLAG-OV-DUMMY, #DELETE 00670w7n 480-ERR-FLAG-OV-6 #ADD 00670#03 480-ERR-FLAG-OV-6 480-FLAG-OV-6-FIELD-18, #DELETE 00670w8R/00670w8T 480-FLAG-OV-6-FIELD-14 #ADD 00670]0E 480-FLAG-OV-6-FIELD-17 480-FLAG-OV-6-FIELD-18. TURN TEMP SERROR IN P-OFFL-AFT-PURLMT. SET NEW-CURSOR AT P-OFFL-AFT-PURLMT. #ADD 00670]0V 480-ERR-FLAG-OV-8 480-FLAG-OV-DUMMY, 480-FLAG-OV-8-FIELD-12, 480-FLAG-OV-8-FIELD-13, 480-FLAG-OV-8-FIELD-14, #ADD 00670=0C 480-FLAG-OV-8-FIELD-9 480-FLAG-OV-8-FIELD-12. TURN TEMP SERROR IN P-COF-TXN-IND. SET NEW-CURSOR AT P-COF-TXN-IND. 480-FLAG-OV-8-FIELD-13. TURN TEMP SERROR IN P-RFND-AUTH-IND. SET NEW-CURSOR AT P-RFND-AUTH-IND. 480-FLAG-OV-8-FIELD-14. TURN TEMP SERROR IN P-POS-ISS-TXN-PRFL. SET NEW-CURSOR AT P-POS-ISS-TXN-PRFL. #ADD 01399=0N 550-TABLE-LOOK-UP MOVE SPACES TO WS-COF-TXN-IND-DESC. IF COF-TXN-IND OF SEG2 = " " MOVE "0" TO COF-TXN-IND OF SEG2. IF COF-TXN-IND OF SEG2 = "0" MOVE "(ALL ALLOWED)" TO WS-COF-TXN-IND-DESC ELSE IF COF-TXN-IND OF SEG2 = "1" MOVE "(NO INSTALMENT/RECURRING TXNS)" TO WS-COF-TXN-IND-DESC ELSE IF COF-TXN-IND OF SEG2 = "2" MOVE "(NO COF MERCHANT-INITIATED TXNS)" TO WS-COF-TXN-IND-DESC ELSE IF COF-TXN-IND OF SEG2 = "3" MOVE "(NOT ALLOWED)" TO WS-COF-TXN-IND-DESC ELSE MOVE "(******************************)" TO WS-COF-TXN-IND-DESC. MOVE SPACES TO WS-RFND-AUTH-IND-DESC. IF RFND-AUTH-IND OF SEG2 = " " MOVE "0" TO RFND-AUTH-IND OF SEG2. IF RFND-AUTH-IND OF SEG2 = "0" MOVE "(STANDARD PROCESSING)" TO WS-RFND-AUTH-IND-DESC ELSE IF RFND-AUTH-IND OF SEG2 = "1" MOVE "(REDUCED PROCESSING)" TO WS-RFND-AUTH-IND-DESC ELSE IF RFND-AUTH-IND OF SEG2 = "2" MOVE "(REDUCED, DON'T SEND TO HOST)" TO WS-RFND-AUTH-IND-DESC ELSE MOVE "(****************************)" TO WS-RFND-AUTH-IND-DESC. #ADD 01560h02 595-CLEAR-DATA TTL-AFT-LMT OF SEG2, OFFL-AFT-LMT OF SEG2, #ADD 01584~02 595-CLEAR-DATA MOVE "0" TO COF-TXN-IND OF SEG2. MOVE "0" TO RFND-AUTH-IND OF SEG2. #ENDSCN = BA0P035 !#CMP2.28 04/20/21 SVCPFS 6052 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6052 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6052 * ******************************************************************************** #SCN = BA0P037 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6052 #NEWVERSION = 6053 #ADD 00017z0K * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added logic to support new fields- COF Transaction * Indicator, Refund Auth Indicator, Total AFT Limit * and Offline AFT Limit. * Paragraphs Modified: 480-DATA-CHECK-SCREEN6 * 480-DATA-CHECK-SCREEN8 * 733-2-DECIMAL-OVERLAY6 * 734-3-DECIMAL-OVERLAY6 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * Run Make. * Restore BA60UD0P subvolume. * Reference: WO #009296 #ADD 00225o00 DATA DIVISION 10 REC-IMAGE-REST PIC X(1639). #DELETE 00225o01 DATA DIVISION #ADD 00225o05 DATA DIVISION 05 LEFTOVER PIC X(2208). #DELETE 00225o06 DATA DIVISION #REPLACE 00245o01 DATA DIVISION 01 WS-RECORD-HOLD PIC X(1662). #ADD 00288o01 DATA DIVISION 05 POS-SEG-LGTH PIC S9(4) COMP VALUE 340. #DELETE 00288o02 DATA DIVISION #ADD 00387e0E DATA DIVISION "COF MIT EXP CHECK TYPE MUST BE 0, 1, 2 OR 9". #DELETE 00387e0F DATA DIVISION #ADD 00387i06 DATA DIVISION "CVD NOT PRESENT FLAG MUST BE 0, 1, 2 OR 3". #DELETE 00387i07 DATA DIVISION #ADD 00387i09 DATA DIVISION 05 INVALID-COF-TXN-IND PIC X(46) VALUE "COF TRANSACTION INDICATOR MUST BE 0, 1, 2 OR 3". 05 INVALID-RFND-AUTH-IND PIC X(39) VALUE "REFUND AUTH INDICATOR MUST BE 0, 1 OR 2". #ADD 00749XFk 480-DATA-CHECK-SCREEN6 IF OFFL-AFT-LMT OF SEG2 OF CPF > TTL-AFT-LMT OF SEG2 OF CPF ADD 1 TO ERR-CNT MOVE 18 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "OFFLINE AFT LIMIT CANNOT EXCEED TOTAL AFT" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749XGe/00749XGl 480-DATA-CHECK-SCREEN6 #ADD 00749o0U 480-DATA-CHECK-SCREEN8 IF ( COF-TXN-IND OF SEG2 OF CPF NOT = "0" AND COF-TXN-IND OF SEG2 OF CPF NOT = "1" AND COF-TXN-IND OF SEG2 OF CPF NOT = "2" AND COF-TXN-IND OF SEG2 OF CPF NOT = "3" ) THEN ADD 1 TO ERR-CNT MOVE 12 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-COF-TXN-IND TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ( RFND-AUTH-IND OF SEG2 OF CPF NOT = "0" AND RFND-AUTH-IND OF SEG2 OF CPF NOT = "1" AND RFND-AUTH-IND OF SEG2 OF CPF NOT = "2" ) THEN ADD 1 TO ERR-CNT MOVE 13 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-RFND-AUTH-IND TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF ISS-TXN-PRFL OF SEG2 OF CPF = SPACES NEXT SENTENCE ELSE MOVE "Y" TO WS-CHAR-FLAG MOVE ISS-TXN-PRFL OF SEG2 OF CPF TO WS-POS-ISS-TXN-PRFL PERFORM 481-POS-ISS-TXN-PRFL-CHECK VARYING M FROM 1 BY 1 UNTIL M > 16. #ADD 00980 733-2-DECIMAL-OVERLAY6 ELSE IF TTL-AFT-LMT OF SEG2 > TWO-AMT-MAX MOVE "TOTAL ACCT FUND" TO AMT-IN-ERROR ELSE IF OFFL-AFT-LMT OF SEG2 > TWO-AMT-MAX MOVE "OFFLINE ACCT FUND" TO AMT-IN-ERROR #ADD 01052 734-3-DECIMAL-OVERLAY6 ELSE IF TTL-AFT-LMT OF SEG2 > THREE-AMT-MAX MOVE "TOTAL ACCT FUND" TO AMT-IN-ERROR ELSE IF OFFL-AFT-LMT OF SEG2 > THREE-AMT-MAX MOVE "OFFLINE ACCT FUND" TO AMT-IN-ERROR #ENDSCN = BA0P037 !#CMP2.28 04/20/21 RQUAFS 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQUAFS RQUAFS 6019 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQUAFS RQUAFS 6019 * ******************************************************************************** #SCN = BA0P038 , FILEID = RQUAFS #VOLUME = $ROOK.BA60AFT #FILE = RQUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00023S0M * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added logic to support new fields - Offline AFT * Amount, Total AFT Amount. * Paragraphs Modified: 410-CONVERT-AMT-TO-DISPLAY * 450-SET-UP-ADD * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQUAFS, SCRNUAF, SVUAFS * BA60DDL: DDLFUAF * BA60EXT: OMFXS * Run Make. * Restore BA60UD0P subvolume. * Reference: WO #009296 #ADD 00075J04 DATA DIVISION 10 WS-TTL-AFT-PRD-2 PIC X(17). 10 WS-OFFL-AFT-PRD-2 PIC X(17). #ADD 00143P00 DATA DIVISION 05 REC-IMAGE-UAF PIC X(1736). #DELETE 00143P01 DATA DIVISION #ADD 00160Q09 DATA DIVISION 05 FILLER PIC X(1817). #DELETE 00160Q0A DATA DIVISION #ADD 00639J1B 410-CONVERT-AMT-TO-DISPLAY MOVE TTL-AFT-PRD OF SEG2 TO AMT-NUMBER1. PERFORM 410-ACTUAL-CONVERT1. MOVE AMT-DISPLAY1 TO WS-TTL-AFT-PRD-2. MOVE OFFL-AFT-PRD OF SEG2 TO AMT-NUMBER1. PERFORM 410-ACTUAL-CONVERT1. MOVE AMT-DISPLAY1 TO WS-OFFL-AFT-PRD-2. #ADD 00771 450-SET-UP-ADD OFFL-AFT-PRD OF SEG2, TTL-AFT-PRD OF SEG2, #ADD 01249 595-CLEAR-DATA OFFL-AFT-PRD OF SEG2, TTL-AFT-PRD OF SEG2, #ENDSCN = BA0P038 !#CMP2.28 04/20/21 SVUAFS 6019 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVUAFS SVUAFS 6019 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVUAFS SVUAFS 6019 * ******************************************************************************** #SCN = BA0P040 , FILEID = SVUAFS #VOLUME = $ROOK.BA60AFT #FILE = SVUAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6019 #NEWVERSION = 6020 #ADD 00017S0N * 20APR2021 VulliL * Symptom: VisaNet April 2021 Business Enhancements * Problem: None. * Fix: Added logic to support new fields - Offline AFT * Amount, Total AFT Amount. * Paragraph Modified: 911-RCD-RETRIEVE * Dependency: Apply fixes to: * BA60AFT: RQUAFS, SCRNUAF, SVUAFS * BA60DDL: DDLFUAF * BA60EXT: OMFXS * Run Make. * Restore BA60UD0P subvolume. * Reference: WO #009296 #ADD 00336O00 DATA DIVISION 05 REC-IMAGE-UAF PIC X(1736). #DELETE 00336O01 DATA DIVISION #ADD 00359Q06 DATA DIVISION 05 FILLER PIC X(1817). #DELETE 00359Q07 DATA DIVISION #ADD 00580O00 DATA DIVISION 01 WS-RECORD-HOLD PIC X(1736). #DELETE 00580O01 DATA DIVISION #ADD 00580J0Z DATA DIVISION 05 POS-SEG-LGTH PIC S9(4) COMP VALUE 118. #DELETE 00580J10 DATA DIVISION #ADD 01694H0B 911-RCD-RETRIEVE TTL-AFT-PRD OF SEG2 OF UAF, OFFL-AFT-PRD OF SEG2 OF UAF, #ENDSCN = BA0P040 !#CMP2.28 05/04/21 COBTKN 6059 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6059 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6059 * ******************************************************************************** #SCN = BA0P057 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6059 #NEWVERSION = 6060 #ADD 00057-0D * 04MAY2021 watsonl * Symptom: It is not possible to configure the new POS H2 * token for inclusion (or exclusion) in the * logging profile via SVTKN/T6520-TKN. * Problem: When the H2 token was added to the PROD-TKN-TABLE * the product ID was added as "H200POS". It should * have been added as "H202POS". * Fix: Corrected the product ID "H202POS" for the new * H2 token added to the PROD-TKN-TABLE. * Dependency: Apply fix to BA60AFT.COBTKN. * Run Make. * Reference: WO #03289049. #ADD 00195-01 05 POS149 PIC X(29) VALUE "H202POS GENRC ICHG RVSL DATA ". #DELETE 00195-02 #ENDSCN = BA0P057 !#CMP2.28 06/29/21 RQCPFS 6075 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6075 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6075 * ******************************************************************************** #SCN = BA0P065 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6075 #NEWVERSION = 6076 #ADD 00022}0O * 28JUN2021 watsonl * Symptom: Mastercard Direct Services Access * Problem: None. * Fix: Added logic to support new field DIR-SRVC-PRFL * of CPF seg 0. * Paragraphs Added: 480-FLAG-OV-3-FIELD-29 * Paragraphs Modified: 400-MOVE-RECORD * 480-ERR-FLG-OV-3 * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * Run Make. * Reference: WO #PDM-001933 #ADD 00074\04 DATA DIVISION 05 WS-PRFL-REDF. 10 DIR-SRVC-R PIC X OCCURS 2 TIMES. #ADD 00465%0K 400-MOVE-RECORD MOVE DIR-SRVC-PRFL OF SEG0 OF CPF TO WS-PRFL-REDF IF DIR-SRVC-R(1) = SPACES AND DIR-SRVC-R(2) NOT = SPACES MOVE SPACES TO DIR-SRVC-R(2) ELSE IF DIR-SRVC-R(2) = SPACES AND DIR-SRVC-R(1) NOT = SPACES MOVE SPACES TO DIR-SRVC-R(1). MOVE WS-PRFL-REDF TO DIR-SRVC-PRFL OF SEG0. #ADD 00670%0M 480-ERR-FLAG-OV-3 480-FLAG-OV-3-FIELD-29, #ADD 00670-2D 480-FLAG-OV-3-FIELD-28 480-FLAG-OV-3-FIELD-29. TURN TEMP SERROR IN P-DIR-SRVC-PRFL. SET NEW-CURSOR AT P-DIR-SRVC-PRFL. #ADD 01570-0H 595-CLEAR-DATA MOVE SPACES TO DIR-SRVC-PRFL OF SEG0. #ENDSCN = BA0P065 !#CMP2.28 06/29/21 SVCPFS 6053 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6053 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6053 * ******************************************************************************** #SCN = BA0P067 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6053 #NEWVERSION = 6054 #ADD 00017#0J * 28JUN2021 watsonl * Symptom: Mastercard Direct Services Access. * Problem: None. * Fix: Added logic to validate new field DIR-SRVC-PRFL * of CPF Seg 0. * Paragraphs Modified: 480-DATA-CHECK-SCREEN3 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * Run Make. * Reference: WO #PDM-001933 #ADD 00749e0q 480-DATA-CHECK-SCREEN3 IF DIR-SRVC-PRFL OF SEG0 OF CPF NOT = SPACES MOVE DIR-SRVC-PRFL OF SEG0 OF CPF TO CRD-PROF-REDF IF CRD-PROF-R(1) = SPACE ADD 1 TO ERR-CNT MOVE 29 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES NOT ALLOWED IN DIRECT SERVICES PROFILE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ( CRD-PROF-R(1) NOT ALPHABETIC AND CRD-PROF-R(1) NOT NUMERIC ) ADD 1 TO ERR-CNT MOVE 29 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DIRECT SERVICES PROFILE MUST BE ALPHANUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DIR-SRVC-PRFL OF SEG0 OF CPF NOT = SPACES MOVE DIR-SRVC-PRFL OF SEG0 OF CPF TO CRD-PROF-REDF IF CRD-PROF-R(2) = SPACE ADD 1 TO ERR-CNT MOVE 29 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES NOT ALLOWED IN DIRECT SERVICES PROFILE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ( CRD-PROF-R(2) NOT ALPHABETIC AND CRD-PROF-R(2) NOT NUMERIC ) ADD 1 TO ERR-CNT MOVE 29 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DIRECT SERVICES PROFILE MUST BE ALPHANUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0P067 !#CMP2.28 06/29/21 COBTKN 6060 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6060 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6060 * ******************************************************************************** #SCN = BA0P068 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6060 #NEWVERSION = 6061 #ADD 00057:0D * 28JUN2021 watsonl / jayaprm * Symptom: Mastercard Direct Services Access * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * the following new tokens: * ATM SPLIT TRANSACTION ROUTING TOKEN * (atm^split^txn^rte^tkn D1 ) * DIRECT SERVICE STATUS TOKEN * (dir^srvc^stat^tkn H3) * DIRECT SERVICE DATA TOKEN * (dir^srvc^data^tkn H4) * GENERAL SERVICE RESULTS TOKEN * (gnrl^srvc^rslts^tkn H5) * EMV SERVICE RESULTS TOKEN * (emv^srvc^rslts^tkn H6) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLATTKN, DDLBATKN * BA60SRC: ATTKNID, ATTKNCVS, BATKNID, BATKNCVS * Run Make. * Reference: WO #PDM-001933 #ADD 00195:03 05 ATM126 PIC X(29) VALUE "H301ATM DIRECT SERVICE STATUS". 05 POS150 PIC X(29) VALUE "H302POS DIRECT SERVICE STATUS". 05 ATM127 PIC X(29) VALUE "H401ATM DIRECT SERVICE DATA ". 05 POS151 PIC X(29) VALUE "H402POS DIRECT SERVICE DATA ". 05 ATM128 PIC X(29) VALUE "H501ATM GENERAL SERVICE RSLTS". 05 POS152 PIC X(29) VALUE "H502POS GENERAL SERVICE RSLTS". 05 ATM129 PIC X(29) VALUE "H601ATM EMV SERVICE RSLTS ". 05 POS153 PIC X(29) VALUE "H602POS EMV SERVICE RSLTS ". 05 ATM130 PIC X(29) VALUE "D101SPLIT TXN ROUTING TKN ". #ADD 00197-00 02 WS-PROD-TKN-TBL OCCURS 302 TIMES. #DELETE 00197-01 #ADD 00201-00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 302. #DELETE 00201-01 #ENDSCN = BA0P068 !#CMP2.28 06/29/21 SVSTRFTS6001 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVSTRFTS SVSTRFTS 6001 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVSTRFTS SVSTRFTS 6001 * ******************************************************************************** #SCN = BA0P075 , FILEID = SVSTRFTS #VOLUME = $ROOK.BA60AFT #FILE = SVSTRFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6001 #NEWVERSION = 6002 #ADD 00038A0D ! 29JUN2021 jayaprm ! Symptom: MasterCard DSA Processing ! Problem: None. ! Fix: Modified the server code to display the transaction ! subtype description as "DIRECT SERVICES ACCESS" when ! transaction subtype starts with letter "D". ! Procs Added: strf_util_get_txn_subtyp_descr ! Dependency: Apply fixes to: ! BA60AFT: COBTKN, RQCPFS, SCRNCPF, SVCPFS, SVSTRFTS ! BA60DDL: DDLBATKN, DDLFCPF ! BA60EXT: OMFXS ! BA60SRC: BATKNID, BATKNCVS ! Run Make. ! Reference: WO PDM-001933 #ADD 02951 STRF_UTIL_GET_TXN_SUBTYP_DESCR define tsrf_descr_dsa_d = "(DIRECT SERVICES ACCESS)"#; #ADD 02965 STRF_UTIL_GET_TXN_SUBTYP_DESCR if strf.prikey.txn_subtyp = "D" then begin strf_rqst.txn_subtyp_descr ':=' tsrf_descr_dsa_d; return true; end; #ENDSCN = BA0P075 !#CMP2.28 07/22/21 SVICFES 6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVICFES SVICFES 6002 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVICFES SVICFES 6002 * ******************************************************************************** #SCN = BA0P081 , FILEID = SVICFES #VOLUME = $ROOK.BA60AFT #FILE = SVICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00041B0M * 22JUL2021 wielerk * Symptom: When changing Logical Net from the SNF screen * the 6th attempt to change fails. * Problem: There is a limit of 5 Logical Net changes that is * present in most Classic servers. * Fix: Modified valid-file-indicator to allow 15 files. * Modified tables in Working-Storage with an occurs * value of 5 to 15. * Modified ws-max-l-nets to 15. * Modified ws-omf-audit-flag to 15. * Dependency: Apply fix to SVICFES, and run Make. * Reference: Case #3319156. #ADD 00202 DATA DIVISION 88 VALID-FILE-INDICATOR VALUE 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15. #DELETE 00203 DATA DIVISION #ADD 00211 DATA DIVISION 05 F-NAME-EXP PIC X(3) OCCURS 15 TIMES. #DELETE 00212 DATA DIVISION #ADD 00214 DATA DIVISION 05 F-NAME PIC X(35) OCCURS 15 TIMES. #DELETE 00215 DATA DIVISION #ADD 00217 DATA DIVISION 05 F-NAME-I PIC X(24) OCCURS 15 TIMES. #DELETE 00218 DATA DIVISION #ADD 00220 DATA DIVISION 05 L-NET-NAME PIC X(4) OCCURS 15 TIMES. #DELETE 00221 DATA DIVISION #ADD 00224 DATA DIVISION OCCURS 15 TIMES. #DELETE 00225 DATA DIVISION #REPLACE 00236 DATA DIVISION 05 WS-OMF-AUDIT-FLAG PIC X OCCURS 15 TIMES. #REPLACE 00270 DATA DIVISION 05 WS-MAX-L-NETS PIC S9(4) COMP VALUE 15. #ENDSCN = BA0P081 !#CMP2.28 08/15/21 COBTKN 6061 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6061 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6061 * ******************************************************************************** #SCN = BA0P088 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6061 #NEWVERSION = 6062 #ADD 00057;0N * 16AUG2021 KandhaB * Symptom: AMEX GNS October 2021 Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * CRDHLDR-ID-TKN (H7) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #009353 #ADD 00195;0E 05 ATM131 PIC X(29) VALUE "H701ATM CARDHOLDER ID TOKEN ". 05 POS154 PIC X(29) VALUE "H702POS CARDHOLDER ID TOKEN ". #ADD 00197;00 02 WS-PROD-TKN-TBL OCCURS 304 TIMES. #DELETE 00197;01 #ADD 00201;00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 304. #DELETE 00201;01 #ENDSCN = BA0P088 !#CMP2.28 11/15/21 RQCPFS 6076 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6076 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6076 * ******************************************************************************** #SCN = BA0P093 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6076 #NEWVERSION = 6077 #ADD 0002200H * 16NOV2021 MohanD * Symptom: Banknet Release 22.Q1 Functional Enhancements * Problem: None. * Fix: Added logic to support new field MONEY-XFER-CR-IND * of CPF seg 0 and rearrange the fields in Screen 1 * Paragraphs Added: 480-FLAG-OV-1-FIELD-28 * Paragraphs Modified: 400-MOVE-RECORD * 480-ERR-FLAG-OV-1 * 480-ERR-FLAG-OV-3 * 480-FLAG-OV-3-FIELD-29 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * Run Make. * Reference: WO #PDM-003149 #ADD 00123w0T DATA DIVISION 01 WS-MONEY-XFER-CR-IND PIC X(5). #ADD 00465\0Q 400-MOVE-RECORD IF MONEY-XFER-CR-IND OF SEG0 = SPACES MOVE "0" TO MONEY-XFER-CR-IND OF SEG0. #ADD 00670w2S 480-ERR-FLAG-OV-1 480-FLAG-OV-1-FIELD-28, #ADD 00670w48 480-FLAG-OV-1-FIELD-27 480-FLAG-OV-1-FIELD-28. TURN TEMP SERROR IN P-DIR-SRVC-PRFL. SET NEW-CURSOR AT P-DIR-SRVC-PRFL. #DELETE 00670001 480-ERR-FLAG-OV-3 #ADD 00670\0L 480-ERR-FLAG-OV-3 480-FLAG-OV-3-FIELD-29, #ADD 00670005 480-FLAG-OV-3-FIELD-29 TURN TEMP SERROR IN P-MONEY-XFER-CR-IND. SET NEW-CURSOR AT P-MONEY-XFER-CR-IND. #DELETE 00670006/00670007 480-FLAG-OV-3-FIELD-29 #ADD 01420%0G 550-TABLE-LOOK-UP IF MONEY-XFER-CR-IND OF SEG0 = " " MOVE "0" TO MONEY-XFER-CR-IND OF SEG0. IF MONEY-XFER-CR-IND OF SEG0 = "0" MOVE "(IDF)" TO WS-MONEY-XFER-CR-IND ELSE IF MONEY-XFER-CR-IND OF SEG0 = "1" MOVE "(NO)" TO WS-MONEY-XFER-CR-IND ELSE IF MONEY-XFER-CR-IND OF SEG0 = "2" MOVE "(YES)" TO WS-MONEY-XFER-CR-IND ELSE IF MONEY-XFER-CR-IND OF SEG0 = "3" MOVE "(POS)" TO WS-MONEY-XFER-CR-IND ELSE MOVE "(***)" TO WS-MONEY-XFER-CR-IND. #ADD 01570002 595-CLEAR-DATA MOVE "0" TO MONEY-XFER-CR-IND OF SEG0. #ENDSCN = BA0P093 !#CMP2.28 11/15/21 SVCPFS 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6054 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6054 * ******************************************************************************** #SCN = BA0P094 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6054 #NEWVERSION = 6055 #ADD 00017$0E * 16NOV2021 MohanD * Symptom: Banknet Release 22.Q1 Functional Enhancements * Problem: None. * Fix: Added logic to validate new field * MONEY-XFER-CR-IND of CPF Seg 0 * Paragraphs Modified: 480-DATA-CHECK-SCREEN1 * 480-DATA-CHECK-SCREEN3 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * Run Make. * Reference: WO #PDM-003149 #ADD 00387e0d DATA DIVISION 05 INVALID-MONEY-XFER-CR-IND. 10 FILLER PIC X(50) VALUE "MONEY TRANSFER CREDIT MUST BE 0, 1, 2 OR 3". #ADD 00749X5G 480-DATA-CHECK-SCREEN1 IF DIR-SRVC-PRFL OF SEG0 OF CPF NOT = SPACES MOVE DIR-SRVC-PRFL OF SEG0 OF CPF TO CRD-PROF-REDF IF CRD-PROF-R(1) = SPACE ADD 1 TO ERR-CNT MOVE 31 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES NOT ALLOWED IN DIRECT SERVICES PROFILE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ( CRD-PROF-R(1) NOT ALPHABETIC AND CRD-PROF-R(1) NOT NUMERIC ) ADD 1 TO ERR-CNT MOVE 31 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DIRECT SERVICES PROFILE MUST BE ALPHANUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF DIR-SRVC-PRFL OF SEG0 OF CPF NOT = SPACES MOVE DIR-SRVC-PRFL OF SEG0 OF CPF TO CRD-PROF-REDF IF CRD-PROF-R(2) = SPACE ADD 1 TO ERR-CNT MOVE 31 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "SPACES NOT ALLOWED IN DIRECT SERVICES PROFILE" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE ELSE IF ( CRD-PROF-R(2) NOT ALPHABETIC AND CRD-PROF-R(2) NOT NUMERIC ) ADD 1 TO ERR-CNT MOVE 31 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE "DIRECT SERVICES PROFILE MUST BE ALPHANUMERIC" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ADD 00749e0q 480-DATA-CHECK-SCREEN3 IF ( MONEY-XFER-CR-IND OF SEG0 OF CPF NOT = "0" AND MONEY-XFER-CR-IND OF SEG0 OF CPF NOT = "1" AND MONEY-XFER-CR-IND OF SEG0 OF CPF NOT = "2" AND MONEY-XFER-CR-IND OF SEG0 OF CPF NOT = "3" ) ADD 1 TO ERR-CNT MOVE 29 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE INVALID-MONEY-XFER-CR-IND TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #DELETE 00749$00/00749$0g 480-DATA-CHECK-SCREEN3 #ENDSCN = BA0P094 !#CMP2.28 11/18/21 RQIDFS 6060 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQIDFS RQIDFS 6060 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQIDFS RQIDFS 6060 * ******************************************************************************** #SCN = BA0P099 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6060 #NEWVERSION = 6061 #ADD 00115:0N * 18NOV2021 KandhaB * Symptom: Purchase with CashBack for CreditCard Transactions * Problem: None. * Fix: Modified the code in support of the following Visa * October 2021 Business Enhancement's requirement: * - Article 8.1.1 Purchase with CashBack (PWCB) for * Credit Cards. * Added a new field on IDF screen #19 to specify * support for Purchase with CashBack for CreditCards * Modified paragraphs: * 400-CHANGE-VERIF-GUAR-TO-Y-N * 400-CHANGE-VERIF-GUAR-TO-1-0 * 481-ERR-FLAG-OV-19 * 595-SET-VERIF-GUAR * Added paragraphs: * 481-FLAG-OV-19-FIELD-10 * Dependency: Apply fixes to: * BA60AFT : RQIDFS, SCRNIDF and SVIDFS * BA60DDL : DDLFIDF * BA60SRC : COBNAMES * PS60AFT : SVPTLS * PS60RTAU: AUTHLIBS and RTAUG * Run Make. * Reference: WO #009344 #ADD 00206z08 DATA DIVISION 05 WS-PUR-CB-CCD-ALWD PIC X. 05 LEFTOVER PIC X(39). #DELETE 00206z09 DATA DIVISION #ADD 01052-00 400-CHANGE-VERIF-GUAR-TO-Y-N IF PUR-CB-CCD-ALWD OF SEG2 = "1" MOVE "Y" TO WS-PUR-CB-CCD-ALWD ELSE MOVE "N" TO WS-PUR-CB-CCD-ALWD. #ADD 01052z09 400-CHANGE-VERIF-GUAR-TO-1-0 IF WS-PUR-CB-CCD-ALWD = "N" MOVE "0" TO PUR-CB-CCD-ALWD OF SEG2 ELSE MOVE "1" TO PUR-CB-CCD-ALWD OF SEG2. #ADD 01879-01 481-ERR-FLAG-OV-19 481-FLAG-OV-19-FIELD-9, 481-FLAG-OV-19-FIELD-10 #DELETE 01879-02 481-ERR-FLAG-OV-19 #ADD 01890-04 481-FLAG-OV-19-FIELD-9 481-FLAG-OV-19-FIELD-10. TURN TEMP SERROR IN I-PUR-CB-CCD-ALWD. SET NEW-CURSOR AT I-PUR-CB-CCD-ALWD. #ADD 03264 595-SET-VERIF-GUAR MOVE "N" TO WS-PUR-CB-CCD-ALWD. #ENDSCN = BA0P099 !#CMP2.28 11/18/21 SVIDFS 6054 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVIDFS SVIDFS 6054 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVIDFS SVIDFS 6054 * ******************************************************************************** #SCN = BA0P101 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6054 #NEWVERSION = 6055 #ADD 00043$0L * 18NOV2021 KandhaB * Symptom: Purchase with CashBack for CreditCard Transactions * Problem: None. * Fix: Modified the code in support of the following Visa * October 2021 Business Enhancement's requirement: * - Article 8.1.1 Purchase with CashBack (PWCB) for * Credit Cards. * Added logic to include and validate the new field * to support Purchase with CashBack on CreditCard * on IDF screen 19. * Modified paragraphs: * 480-POS-DATA-CHECK * Dependency: Apply fixes to: * BA60AFT : RQIDFS, SCRNIDF and SVIDFS * BA60DDL : DDLFIDF * BA60SRC : COBNAMES * PS60AFT : SVPTLS * PS60RTAU: AUTHLIBS and RTAUG * Run Make. * Reference: WO #009344 #ADD 00123q3Q DATA DIVISION 09 WS-PUR-CB-CCD-ALWD PIC X. 09 LEFTOVER PIC X(59). #DELETE 00123q3R DATA DIVISION #ADD 00167q0J DATA DIVISION 01 WS-INVLD-PUR-CB-CCD-ALWD-MSG PIC X(57) VALUE "PURCHASE WITH CASH BACK ON CREDIT CARD MUST BE 'Y' OR 'N'". #ADD 00290 DATA DIVISION 01 PUR-CB-CCD-ALWD-VAL PIC X. 88 VALID-PUR-CB-CCD-ALWD VALUE "Y", "N". #ADD 01241#01 480-POS-DATA-CHECK MOVE WS-PUR-CB-CCD-ALWD TO PUR-CB-CCD-ALWD-VAL IF NOT VALID-PUR-CB-CCD-ALWD ADD 1 TO ERR-CNT MOVE 10 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE WS-INVLD-PUR-CB-CCD-ALWD-MSG TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0P101 !#CMP2.28 12/22/21 RQCPFS 6077 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCPFS RQCPFS 6077 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCPFS RQCPFS 6077 * ******************************************************************************** #SCN = BA0P107 , FILEID = RQCPFS #VOLUME = $ROOK.BA60AFT #FILE = RQCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6077 #NEWVERSION = 6078 #ADD 0002210K * 23DEC2021 MohanD * Symptom: PSD2 RTS Requirements for SCA in the EEA - Phase 3 * Problem: None. * Fix: Added logic to support new SCA Fields * CAV BYPASS, E-COM AMOUNT CHECK, EXEMPTION ACTION * and modified logic to support additional * value in AMOUNT CHECK Field. * Paragraphs Added: 480-FLAG-OV-9-FIELD-15 * 480-FLAG-OV-9-FIELD-17 * Paragraphs Modified: 400-MOVE-RECORD * 410-MOVE-DEFAULTS * 480-ERR-FLAG-OV-9 * 550-TABLE-LOOK-UP * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * BA60UC0P: CNVCPF2M, CNVCPF2R, CNVCPF2S * Run Make. * Reference: WO #009106 #ADD 00123102 DATA DIVISION 01 WS-SCA-CAV-BYPASS-DESCR PIC X(10). 01 WS-SCA-AMT-CHK-DESCR PIC X(22). #ADD 00475^0J 400-MOVE-RECORD MOVE "0" TO SCA-CAV-BYPASS MOVE "0" TO SCA-AMT-CHK MOVE "0" TO SCA-EXEMPT-ACT #ADD 00475{0K 400-MOVE-RECORD IF SCA-CAV-BYPASS OF SEG2 = SPACES MOVE "0" TO SCA-CAV-BYPASS OF SEG2. IF SCA-AMT-CHK OF SEG2 = SPACES MOVE "0" TO SCA-AMT-CHK OF SEG2. IF SCA-EXEMPT-ACT OF SEG2 = SPACES MOVE "0" TO SCA-EXEMPT-ACT OF SEG2. #ADD 00599#0O 410-MOVE-DEFAULTS IF SIV-AMT-CHK OF SEG2 NOT = SIV-AMT-CHK-DSBLD-C AND SIV-AMT-CHK OF SEG2 NOT = SIV-AMT-CHK-UPTO-20PER-C AND SIV-AMT-CHK OF SEG2 NOT = SIV-AMT-CHK-NO-GREATER-C AND SIV-AMT-CHK OF SEG2 NOT = SIV-AMT-CHK-CRNCY-ONLY-C MOVE SIV-AMT-CHK-DSBLD-C TO SIV-AMT-CHK OF SEG2. #ADD 00599^0Z 410-MOVE-DEFAULTS SCA-REQ-ECOMM OF SEG2 NOT = SCA-REQ-ECOMM-CAV-3DS2-C AND SCA-REQ-ECOMM OF SEG2 NOT = SCA-REQ-ECOMM-CAV-3DS2-3DS1-C MOVE SCA-REQ-ECOMM-CVV2-CVC2-C TO SCA-REQ-ECOMM OF SEG2. IF SCA-CAV-BYPASS OF SEG2 NOT = SCA-CAV-BYPASS-NONE-C AND SCA-CAV-BYPASS OF SEG2 NOT = SCA-CAV-BYPASS-ECI-5-C AND SCA-CAV-BYPASS OF SEG2 NOT = SCA-CAV-BYPASS-ECI-5-6-C MOVE SCA-CAV-BYPASS-NONE-C TO SCA-CAV-BYPASS OF SEG2. IF SCA-AMT-CHK OF SEG2 NOT = SCA-AMT-CHK-DSBLD-C AND SCA-AMT-CHK OF SEG2 NOT = SCA-AMT-CHK-UPTO-20PER-C AND SCA-AMT-CHK OF SEG2 NOT = SCA-AMT-CHK-NO-GREATER-C AND SCA-AMT-CHK OF SEG2 NOT = SCA-AMT-CHK-CRNCY-ONLY-C MOVE SCA-AMT-CHK-DSBLD-C TO SCA-AMT-CHK OF SEG2. #DELETE 00599^0a/00599^0b 410-MOVE-DEFAULTS #ADD 00670^0U 480-ERR-FLAG-OV-9 480-FLAG-OV-9-FIELD-15, 480-FLAG-OV-DUMMY, 480-FLAG-OV-9-FIELD-17, 480-FLAG-OV-DUMMY, #ADD 00670^1S 480-FLAG-OV-9-FIELD-13 480-FLAG-OV-9-FIELD-15. TURN TEMP SERROR IN P-SCA-CAV-BYPASS. SET NEW-CURSOR AT P-SCA-CAV-BYPASS. 480-FLAG-OV-9-FIELD-17. TURN TEMP SERROR IN P-SCA-AMT-CHK. SET NEW-CURSOR AT P-SCA-AMT-CHK. #ADD 01357^1L 550-TABLE-LOOK-UP MOVE "(NO GREATER)" TO WS-SIV-AMT-CHK-DESCR ELSE IF SIV-AMT-CHK OF SEG2 = SIV-AMT-CHK-CRNCY-ONLY-C MOVE "(CURRENCY ONLY)" TO WS-SIV-AMT-CHK-DESCR. #DELETE 01357^1M 550-TABLE-LOOK-UP #ADD 01357^1s 550-TABLE-LOOK-UP MOVE "(3DS V2)" TO WS-SCA-REQ-ECOMM-DESCR ELSE IF SCA-REQ-ECOMM OF SEG2 = SCA-REQ-ECOMM-CAV-3DS2-3DS1-C MOVE "(3DS V2/V1)" TO WS-SCA-REQ-ECOMM-DESCR MOVE SPACES TO WS-SCA-CAV-BYPASS-DESCR. IF SCA-CAV-BYPASS OF SEG2 = SCA-CAV-BYPASS-NONE-C MOVE "(NONE)" TO WS-SCA-CAV-BYPASS-DESCR ELSE IF SCA-CAV-BYPASS OF SEG2 = SCA-CAV-BYPASS-ECI-5-C MOVE "(ECI 5)" TO WS-SCA-CAV-BYPASS-DESCR ELSE IF SCA-CAV-BYPASS OF SEG2 = SCA-CAV-BYPASS-ECI-5-6-C MOVE "(ECI 5, 6)" TO WS-SCA-CAV-BYPASS-DESCR. MOVE SPACES TO WS-SCA-AMT-CHK-DESCR. IF SCA-AMT-CHK OF SEG2 = SCA-AMT-CHK-DSBLD-C MOVE "(DISABLED)" TO WS-SCA-AMT-CHK-DESCR ELSE IF SCA-AMT-CHK OF SEG2 = SCA-AMT-CHK-UPTO-20PER-C MOVE "(UPTO 20 PERCENT MORE)" TO WS-SCA-AMT-CHK-DESCR ELSE IF SCA-AMT-CHK OF SEG2 = SCA-AMT-CHK-NO-GREATER-C MOVE "(NO GREATER)" TO WS-SCA-AMT-CHK-DESCR ELSE IF SCA-AMT-CHK OF SEG2 = SCA-AMT-CHK-CRNCY-ONLY-C MOVE "(CURRENCY ONLY)" TO WS-SCA-AMT-CHK-DESCR. #DELETE 01357^1t 550-TABLE-LOOK-UP #ADD 01584{01 595-CLEAR-DATA MOVE "0" TO SCA-CAV-BYPASS OF SEG2. MOVE "0" TO SCA-AMT-CHK OF SEG2. MOVE "0" TO SCA-EXEMPT-ACT OF SEG2. #ENDSCN = BA0P107 !#CMP2.28 12/22/21 SVCPFS 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCPFS SVCPFS 6055 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCPFS SVCPFS 6055 * ******************************************************************************** #SCN = BA0P108 , FILEID = SVCPFS #VOLUME = $ROOK.BA60AFT #FILE = SVCPFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00017%0E * 23DEC2021 MohanD * Symptom: PSD2 RTS Requirements for SCA in the EEA - Phase 3 * Problem: None. * Fix: Added logic to support new SCA Fields * CAV BYPASS, E-COM AMOUNT CHECK, EXEMPTION ACTION * and modified logic to support additional * value in AMOUNT CHECK Field. * Paragraph Modified: 480-DATA-CHECK-SCREEN9 * Dependency: Apply fixes to: * BA60AFT: RQCPFS, SCRNCPF, SVCPFS * BA60DDL: DDLFCPF * BA60EXT: OMFXS * BA60UC04: CNVCPFS * BA60UC0P: CNVCPF2M, CNVCPF2R, CNVCPF2S * Run Make. * Reference: WO #009106 #ADD 00399v0B DATA DIVISION 10 FILLER PIC X(42) VALUE "E-COM PROCESSING FLAG MUST BE 0, 1, 2 OR 3". 05 SCA-CAV-BYPASS-ERR. 10 FILLER PIC X(28) VALUE "CAV BYPASS MUST BE 0, 1 OR 2". 05 SCA-AMT-CHK-ERR. 10 FILLER PIC X(39) VALUE "E-COM AMOUNT CHECK MUST BE 0, 1, 2 OR 3". #DELETE 00399v0C/00399v0D DATA DIVISION #ADD 00399v0V DATA DIVISION 10 FILLER PIC X(37) VALUE "SIV AMOUNT CHECK MUST BE 0, 1, 2 OR 3". #DELETE 00399v0W/00399v0X DATA DIVISION #ADD 00749v1J 480-DATA-CHECK-SCREEN9 SIV-AMT-CHK-NO-GREATER-C AND SIV-AMT-CHK OF SEG2 OF CPF NOT = SIV-AMT-CHK-CRNCY-ONLY-C #DELETE 00749v1K 480-DATA-CHECK-SCREEN9 #ADD 00749v2a 480-DATA-CHECK-SCREEN9 SCA-REQ-ECOMM-CAV-3DS2-C AND SCA-REQ-ECOMM OF SEG2 OF CPF NOT = SCA-REQ-ECOMM-CAV-3DS2-3DS1-C #DELETE 00749v2b 480-DATA-CHECK-SCREEN9 #ADD 00749v2q 480-DATA-CHECK-SCREEN9 IF SCA-CAV-BYPASS OF SEG2 OF CPF NOT = SCA-CAV-BYPASS-NONE-C AND SCA-CAV-BYPASS OF SEG2 OF CPF NOT = SCA-CAV-BYPASS-ECI-5-C AND SCA-CAV-BYPASS OF SEG2 OF CPF NOT = SCA-CAV-BYPASS-ECI-5-6-C ADD 1 TO ERR-CNT MOVE 15 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-CAV-BYPASS-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. IF SCA-AMT-CHK OF SEG2 OF CPF NOT = SCA-AMT-CHK-DSBLD-C AND SCA-AMT-CHK OF SEG2 OF CPF NOT = SCA-AMT-CHK-UPTO-20PER-C AND SCA-AMT-CHK OF SEG2 OF CPF NOT = SCA-AMT-CHK-NO-GREATER-C AND SCA-AMT-CHK OF SEG2 OF CPF NOT = SCA-AMT-CHK-CRNCY-ONLY-C ADD 1 TO ERR-CNT MOVE 17 TO FLD-ID-NUM(ERR-CNT) IF MOVE-MESSAGE MOVE SCA-AMT-CHK-ERR TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE. #ENDSCN = BA0P108 !#CMP2.28 05/17/22 COBTKN 6062 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6062 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6062 * ******************************************************************************** #SCN = BA0Q017 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6062 #NEWVERSION = 6063 #ADD 00057<0D * 17MAY2021 ChristL * Symptom: Response Code Reconciliation Enhancement * Problem: None. * Fix: Added a POS entry to PROD-TKN-TABLE for * POS-DATA3-TKN (FN) * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNCVS, PSTKNID * Run Make. * Reference: Case #03324183 #ADD 00195<02 05 POS155 PIC X(29) VALUE "FN02POS POS DATA3 TOKEN ". #REPLACE 00197<01 02 WS-PROD-TKN-TBL OCCURS 305 TIMES. #REPLACE 00201<01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 305. #ENDSCN = BA0Q017 !#CMP2.28 07/01/22 RQSTRFXS6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSTRFXS RQSTRFXS 6000 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSTRFXS RQSTRFXS 6000 * ******************************************************************************** #SCN = BA0Q033 , FILEID = RQSTRFXS #VOLUME = $ROOK.BA60AFT #FILE = RQSTRFXS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00046 * 01JUL2022 jayaprm * Symptom: MasterCard DSA Phase 2 Enhancement * Problem: None. * Fix: Modified the logic to allow operator access to the * DEFAULT ACTION field. * Paragraph modified: 570-DISPLAY-OVERLAY-1 * Dependency: Apply Fixes to: * BA60AFT: RQSTRFXS, SVSTRFTG, SVSTRFTS * BA60DDL: DDLBATKN, DDLFSTRF * Reference: WO #PDM-003469 #DELETE 00652 570-DISPLAY-OVERLAY-1 #ENDSCN = BA0Q033 !#CMP2.28 07/01/22 SVSTRFTG6000 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVSTRFTG SVSTRFTG 6000 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVSTRFTG SVSTRFTG 6000 * ******************************************************************************** #SCN = BA0Q034 , FILEID = SVSTRFTG #VOLUME = $ROOK.BA60AFT #FILE = SVSTRFTG #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6000 #NEWVERSION = 6001 #ADD 00038 ! 01JUL2022 jayaprm ! Symptom: MasterCard DSA Phase 2 Enhancement ! Problem: None. ! Fix: Updated the error text for the ROUTING HIERARCHY and ! DEFAULT ACTION fields in svstrf_err_tbl ! Procs modified: strf_util_data_chk_dflt_auth ! strf_util_data_chk_rte_hrchy ! Dependency: Apply Fixes to: ! BA60AFT: RQSTRFXS, SVSTRFTG, SVSTRFTS ! BA60DDL: DDLBATKN, DDLFSTRF ! Reference: WO #PDM-003469 #REPLACE 00346 /00347 ! 3 ! "ROUTING HIERARCHY MUST BE 'B0-B9', 'BF', 'BS', 'BZ' OR 'D0-D", "2' ", #REPLACE 00350 ! 5 ! "DEFAULT ACTION MUST BE 'A', 'C', 'D' OR 'E' ", #ENDSCN = BA0Q034 !#CMP2.28 07/01/22 SVSTRFTS6002 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVSTRFTS SVSTRFTS 6002 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVSTRFTS SVSTRFTS 6002 * ******************************************************************************** #SCN = BA0Q035 , FILEID = SVSTRFTS #VOLUME = $ROOK.BA60AFT #FILE = SVSTRFTS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = TAL #VERSION = 6002 #NEWVERSION = 6003 #ADD 00038B0F ! 01JUL2022 jayaprm ! Symptom: MasterCard DSA Phase 2 Enhancement ! Problem: None. ! Fix: Added an entry to dflt_act_tbl for value “E” for Direct ! Services Access, and to clarify that values “A” and “C” ! are not currently supported. ! Added entries to rte_hrchy_tbl for Direct Services ! Access ! Modified the code to ensure that the text description ! of field values are displayed correctly. ! Procs modified: strf_bea_update ! strf_util_data_chk_dflt_act ! strf_util_data_chk_rte_hrchy ! Dependency: Apply Fixes to: ! BA60AFT: RQSTRFXS, SVSTRFTG, SVSTRFTS ! BA60DDL: DDLBATKN, DDLFSTRF ! Reference: WO #PDM-003469 #ADD 01177 STRF_BEA_UPDATE string .save_strf_overlay1[ 0:83 ] := [ 84 * [ " " ] ]; #ADD 01188 STRF_BEA_UPDATE save_strf_overlay1 ':=' strf_rqst.overlay1 for $len( strf_rqst.overlay1 ); #ADD 01264 STRF_BEA_UPDATE strf_rqst.overlay1 ':=' save_strf_overlay1 for $len( strf_rqst.overlay1 ) bytes; #ADD 01996 STRF_UTIL_DATA_CHK_DFLT_ACT "A", "(N/A DA VALUE A) ", "C", "(N/A DA VALUE C) ", "D", "(DECLINE) ", "E", "(DENY IF NO HOST) ", #DELETE 01997 /02000 STRF_UTIL_DATA_CHK_DFLT_ACT #ADD 02274A02 STRF_UTIL_DATA_CHK_RTE_HRCHY "D0", "(SEQUENTIAL; FUNDS, SCND SVC APPROVAL NOTIFY) ", "D1", "(SEQUENTIAL; SCND SVC, FUNDS) ", "D2", "(SEQUENTIAL; SCND SVC, FUNDS, APPROVAL NOTIFY) ", #ENDSCN = BA0Q035 !#CMP2.28 08/12/22 COBTKN 6063 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6063 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6063 * ******************************************************************************** #SCN = BA0Q040 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6063 #NEWVERSION = 6064 #ADD 00057=0D * 12AUG2022 MohanD * Symptom: Banknet R22.Q4 Functional Enhancements * MDS R22.Q4 Functional Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * GENERIC ICHG RESP DATA2 TKN (H8). * Incremented WS-PROD-TKN-TBL and PROD-TKN-TABLE-CNT * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #003804 Banknet R22.Q4 Functional Enhancements * WO #003805 MDS R22.Q4 Functional Enhancements #ADD 00195=02 05 ATM132 PIC X(29) VALUE "H801ATM GENERIC ICHG RESP 2 ". 05 POS156 PIC X(29) VALUE "H802POS GENERIC ICHG RESP 2 ". #REPLACE 00197=01 02 WS-PROD-TKN-TBL OCCURS 307 TIMES. #REPLACE 00201=01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 307. #ENDSCN = BA0Q040 !#CMP2.28 11/30/22 COBTKN 6064 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6064 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6064 * ******************************************************************************** #SCN = BA0Q066 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6064 #NEWVERSION = 6065 #ADD 00057>0F * 30NOV2022 watsonl * Symptom: Winter 2022 Base Files Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * GATEWAY ADNL DATA TKN (H9). * WEBSITE-TKN (HA) * ADNL-TERM-OWNER-DATA-TKN (HB) * Added POS entries to PROD-TKN-TABLE for * ADNL-CRDHLDR-VRFN-TKN (FO). * BILL-INFO-TKN (FP). * SHIP-INFO-TKN (FQ). * ADNL-VRFN-RSLT-TKN (FR). * POS-SRVC-LOC-TKN (FS). * POS-TERM-OWNER-TKN (FT). * Added ATM entries to PROD-TKN-TABLE for * ATM-TERM-OWNER-TKN (D2) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLATTKN, DDLBATKN, DDLPSTKN * BA60SRC: ATTKNCVS, ATTKNID, BATKNCVS, BATKNID, * PSTKNCVS, PSTKNID * Run Make. * Reference: WO #PDM-004161 #ADD 00195>02 05 ATM133 PIC X(29) VALUE "H901ATM GATEWAY ADNL DATA TKN". 05 POS157 PIC X(29) VALUE "H902POS GATEWAY ADNL DATA TKN". 05 POS158 PIC X(29) VALUE "FO02POS ADNL CRDHLDR VRFN TKN". 05 POS159 PIC X(29) VALUE "FP02POS BILL INFO TKN ". 05 POS160 PIC X(29) VALUE "FQ02POS SHIP INFO TKN ". 05 POS161 PIC X(29) VALUE "FR02POS ADNL VRFN RSLT TKN ". 05 POS162 PIC X(29) VALUE "FS02POS SERVICE LOCATION TKN ". 05 POS163 PIC X(29) VALUE "FT02POS TERMINAL OWNER TOKEN ". 05 ATM134 PIC X(29) VALUE "D201ATM TERMINAL OWNER TOKEN ". 05 ATM135 PIC X(29) VALUE "HA01ATM WEBSITE TOKEN ". 05 POS164 PIC X(29) VALUE "HA02POS WEBSITE TOKEN ". 05 ATM136 PIC X(29) VALUE "HB01ATM ADNL TERM OWNER DATA ". 05 POS165 PIC X(29) VALUE "HB02POS ADNL TERM OWNER DATA ". #REPLACE 00197>01 02 WS-PROD-TKN-TBL OCCURS 320 TIMES. #REPLACE 00201>01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 320. #ENDSCN = BA0Q066 !#CMP2.28 02/10/23 COBTKN 6065 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6065 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6065 * ******************************************************************************** #SCN = BA0R013 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6065 #NEWVERSION = 6066 #ADD 00057|0Q * 10FEB2023 watsonl * Symptom: Spring 2023 Mandate Base File Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * ACQUIRER DATA TOKEN (HC). * DIGITAL PROGRAM TOKEN (HD) * Added POS entries to PROD-TKN-TABLE for * ACCT UPDT DATA TOKEN (FU). * ACCT UPDT STAT TOKEN (FV). * EXCHANGE RATE TOKEN (FW) * ADNL INDUSTRY DATA (FX) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS, PSTKNID * Run Make. * Reference: WO #004333 - MDS R23 Q2 Functional Enhancements * WO #004334 - Banknet R23.Q2 Functional * Enhancements * WO #004335 - Design for PULSE Release 23.1 * WO #004336 - Design for VisaNet April 2023 * Business Enhancements #ADD 00195|0F 05 ATM137 PIC X(29) VALUE "HC01ATM ACQUIRER DATA TOKEN ". 05 POS166 PIC X(29) VALUE "HC02POS ACQUIRER DATA TOKEN ". 05 ATM138 PIC X(29) VALUE "HD01ATM DIGITAL PROGRAM TOKEN". 05 POS167 PIC X(29) VALUE "HD02POS DIGITAL PROGRAM TOKEN". 05 POS168 PIC X(29) VALUE "FU02POS ACCT UPDT DATA TOKEN ". 05 POS169 PIC X(29) VALUE "FV02POS ACCT UPDT STAT TOKEN ". 05 POS170 PIC X(29) VALUE "FW02POS EXCHANGE RATE TOKEN ". 05 POS171 PIC X(29) VALUE "FX02POS ADNL INDUSTRY DATA ". #ADD 00197|00 02 WS-PROD-TKN-TBL OCCURS 328 TIMES. #DELETE 00197|01 #ADD 00201|00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 328. #DELETE 00201|01 #ENDSCN = BA0R013 !#CMP2.28 03/28/23 RQTKNS 6013 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQTKNS RQTKNS 6013 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQTKNS RQTKNS 6013 * ******************************************************************************** #SCN = BA0R019 , FILEID = RQTKNS #VOLUME = $ROOK.BA60AFT #FILE = RQTKNS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6013 #NEWVERSION = 6014 #ADD 00021M0Q * 28MAR2022 KandhaB * Symptom: TKN-TABLE does not hold all the tokens. * Problem: The TKN-TABLE size of 360 is not large enough to * include all the CSE tokens for some environments. * Fix: Added a new variable TKN-TABLE-LMT with value 600 * and expanded TKN-TABLE size to TKN-TABLE-LMT. * Modified paragraphs: * 481-CHECK-OVERLAY-3 * 481-CHECK-OVERLAY-4 * 595-CLEAR-DATA * 595-CLEAR-DEL-ADD-TKN * 595-CLEAR-DEL-TKN * Dependency: Apply fixes to: * BA60AFT: COBTKN * Run Make. * Reference: Case #3511497. #ADD 00065D02 DATA DIVISION 05 TKN-TABLE-LMT PIC 9(4) COMP VALUE 600. #ADD 00096L00 DATA DIVISION 05 WS-TKN-TBL OCCURS 600 TIMES. #DELETE 00096L01 DATA DIVISION #ADD 00203 DATA DIVISION OCCURS 600 TIMES. #DELETE 00204 DATA DIVISION #ADD 00207 DATA DIVISION OCCURS 600 TIMES. #DELETE 00208 DATA DIVISION #ADD 00211 DATA DIVISION OCCURS 600 TIMES. #DELETE 00212 DATA DIVISION #ADD 01131 481-CHECK-OVERLAY-3 IF WS-EXTR-ORDR (I) > TKN-TABLE-LMT #DELETE 01132 481-CHECK-OVERLAY-3 #ADD 01136 481-CHECK-OVERLAY-3 MOVE "EXTRACT ORDER CANNOT BE LARGER THAN 600" #DELETE 01137 481-CHECK-OVERLAY-3 #ADD 01141 481-CHECK-OVERLAY-4 IF WS-SEND-ORDR (I) > TKN-TABLE-LMT #DELETE 01142 481-CHECK-OVERLAY-4 #ADD 01146 481-CHECK-OVERLAY-4 MOVE "SEND ORDER CANNOT BE LARGER THAN 600" #DELETE 01147 481-CHECK-OVERLAY-4 #ADD 01796 595-CLEAR-DATA UNTIL I > TKN-TABLE-LMT. #DELETE 01797 595-CLEAR-DATA #ADD 01823 595-CLEAR-DEL-ADD-TKN UNTIL I > TKN-TABLE-LMT #DELETE 01824 595-CLEAR-DEL-ADD-TKN #ADD 01833 595-CLEAR-DEL-TKN UNTIL I > TKN-TABLE-LMT #DELETE 01834 595-CLEAR-DEL-TKN #ENDSCN = BA0R019 !#CMP2.28 04/25/23 COBTKN 6066 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6066 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6066 * ******************************************************************************** #SCN = BA0R021 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6066 #NEWVERSION = 6067 #REPLACE 00057=01 * 17MAY2022 ChristL #ADD 00057@0P * 25APR2023 ChristL * Symptom: Summer 2023 Base File Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * ADDITIONAL TRANSACTION ATTRIBUTES TOKEN (HE) * Added POS entries to PROD-TKN-TABLE for * FLEET PROMPTED DATA TOKEN (FY) * FLEET SPEND CONTROL TOKEN (FZ) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS, PSTKNID * Run Make. * Reference: WO #004644 - Banknet Release 23.Q2 Phase 2 * Functional Enhancements * WO #004782 - Visa DPS April 2023 Business * Enhancements Phase 2 * WO #004799 - STAR April 2023 Phase 2 #ADD 00195@08 05 ATM172 PIC X(29) VALUE "HE01ATM ADNL TXN ATTRIBUTES ". 05 POS173 PIC X(29) VALUE "HE02POS ADNL TXN ATTRIBUTES ". 05 POS174 PIC X(29) VALUE "FY02POS FLEET PROMPTED DATA ". 05 POS175 PIC X(29) VALUE "FZ02POS FLEET SPEND CONTROL ". #ADD 00197@00 02 WS-PROD-TKN-TBL OCCURS 332 TIMES. #DELETE 00197@01 #ADD 00201@00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 332. #DELETE 00201@01 #ENDSCN = BA0R021 !#CMP2.28 08/14/23 COBTKN 6067 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6067 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6067 * ******************************************************************************** #SCN = BA0R043 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6067 #NEWVERSION = 6068 #ADD 00057\0O * 14AUG2023 NataraM * Symptom: Fall 2023 Base File Enhancements * Problem: None. * Fix: Added POS entries to PROD-TKN-TABLE for * VERIFICATION DATA1 TOKEN (J0) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLPSTKN * BA60SRC: PSTKNID, PSTKNCVS * Run Make. * Reference: WO #PDM-004914 - VisaNet October 2023 Business * Enhancements #ADD 00195\04 05 POS176 PIC X(29) VALUE "J002POS VERIFICATION DATA1 ". #ADD 00197\00 02 WS-PROD-TKN-TBL OCCURS 333 TIMES. #DELETE 00197\01 #ADD 00201\00 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 333. #DELETE 00201\01 #ENDSCN = BA0R043 !#CMP2.28 11/13/23 COBTKN 6068 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6068 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6068 * ******************************************************************************** #SCN = BA0R055 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6068 #NEWVERSION = 6069 #ADD 00057]0F * 14NOV2023 MOHAND * Symptom: BASE24 Winter 2023 Base Files Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * Extended PIN Block Token ( HG ) * Extended PIN Change Token ( HH ) * Added ATM entries to PROD-TKN-TABLE for * Migration ATM Mixed Media Deposit * Totals Token( MA ) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID * Run Make. * Reference: WO #PDM-005482 - BASE24 AES Support * (ISO PIN Block Format 4) * BASE24-eps Changes #REPLACE 00195\01/00195\04 05 ATM139 PIC X(29) VALUE "HE01ATM ADNL TXN ATTRIBUTES ". 05 POS172 PIC X(29) VALUE "HE02POS ADNL TXN ATTRIBUTES ". 05 POS173 PIC X(29) VALUE "FY02POS FLEET PROMPTED DATA ". 05 POS174 PIC X(29) VALUE "FZ02POS FLEET SPEND CONTROL ". #REPLACE 00195]01 05 POS175 PIC X(29) VALUE "J002POS VERIFICATION DATA1 ". #ADD 00195]02 05 ATM140 PIC X(29) VALUE "HG01ATM EXTENDED PIN BLOCK ". 05 POS176 PIC X(29) VALUE "HG02POS EXTENDED PIN BLOCK ". 05 ATM141 PIC X(29) VALUE "HH01ATM EXTENDED PIN CHANGE ". 05 POS177 PIC X(29) VALUE "HH02POS EXTENDED PIN CHANGE ". 05 ATM142 PIC X(29) VALUE "MA01ATM MIGR ATM MM DEP TTLS ". #REPLACE 00197]01 02 WS-PROD-TKN-TBL OCCURS 338 TIMES. #REPLACE 00201]01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 338. #ENDSCN = BA0R055 !#CMP2.28 12/20/23 RQPBFS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQPBFS RQPBFS 6028 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQPBFS RQPBFS 6028 * ******************************************************************************** #SCN = BA0R068 , FILEID = RQPBFS #VOLUME = $ROOK.BA60AFT #FILE = RQPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00023b0H * 18DEC2023 ChristL * Symptom: Base24 Account number masking support * Problem: None. * Fix: Added support to mask the account number fields. * Modified Paragraphs: * 400-MOVE-RECORD * 400-SAVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA. * Dependency: Apply fixes to: * BA60AFT : RQPBFS and SVPBFS. * Run Make. Refer to BA60UD0R.SCNACCT for a * complete listing of dependencies. * Reference: WO #PDM-004600 #ADD 00127W09 DATA DIVISION 01 WS-UNMASK-ACCT PIC X(28). 01 WS-UNMASK-CR-LINE-ACCT PIC X(28). 01 WS-MASK-ACCT PIC X(28). 01 WS-MASK-CR-LINE-ACCT PIC X(28). #ADD 00275W01 DATA DIVISION 05 AFT-ACCT-DIGITS. 07 RIGHT-UNMASKED PIC XX. #ADD 00275Y00 DATA DIVISION 05 LEFTOVER PIC X(628). #DELETE 00275Y01 DATA DIVISION #ADD 00277 DATA DIVISION COPY ACCT-MASK-GLOBALS OF =BASRC_BACOUTLS. #ADD 00306N8X 295-CHANGE-LOGICAL-NET COPY G200-CALC-ACCT-LGTH OF =BASRC_BACOUTLS. COPY G210-MASK-ACCT OF =BASRC_BACOUTLS. COPY G220-JUSTIFY-ACCT-AND-FILL OF =BASRC_BACOUTLS. #ADD 00320 400-MOVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED MOVE WS-NUM TO WS-UNMASK-ACCT MOVE WS-NUM TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * WS-ACCT-FIELD-LGTH NEEDS TO BE SET TO THE LENTH OF THE * ACCOUNT NUMBER FIELD TO BE DISPLAYED. MOVE 28 TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-NUM MOVE WS-NUM TO WS-MASK-ACCT. #ADD 00320N02 400-MOVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED MOVE WS-CR-LINE-ACCT TO WS-UNMASK-CR-LINE-ACCT MOVE WS-CR-LINE-ACCT TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * WS-ACCT-FIELD-LGTH NEEDS TO BE SET TO THE LENTH OF THE * ACCOUNT NUMBER FIELD TO BE DISPLAYED. MOVE 19 TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-CR-LINE-ACCT MOVE WS-CR-LINE-ACCT TO WS-MASK-CR-LINE-ACCT. #ADD 00433 400-SAVE-RECORD IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-ACCT = WS-NUM MOVE WS-UNMASK-ACCT TO PAN-IMAGE ELSE MOVE SPACES TO WS-MASK-ACCT MOVE SPACES TO WS-UNMASK-ACCT. #ADD 00433W01 400-SAVE-RECORD IF MASKING-FLG of USER-CONTEXT-EXT = "Y" IF WS-MASK-CR-LINE-ACCT = WS-CR-LINE-ACCT MOVE WS-UNMASK-CR-LINE-ACCT TO CR-LINE-ACCT ELSE MOVE SPACES TO WS-MASK-CR-LINE-ACCT MOVE SPACES TO WS-UNMASK-CR-LINE-ACCT. #ADD 00444W09 400-SAVE-RECORD MOVE MASKING-FLG OF USER-CONTEXT-EXT TO MASKING-FLG OF MSG-FILE-MAINT-2048-EXT. #ADD 00748 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-ACCT = WS-NUM MOVE WS-UNMASK-ACCT TO WS-NUM. #ADD 00903W2U 480-DATA-CHECK IF WS-OVERLAY = 6 IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-MASK-CR-LINE-ACCT = WS-CR-LINE-ACCT MOVE WS-UNMASK-CR-LINE-ACCT TO WS-CR-LINE-ACCT. #ADD 00903N5Z 480-DATA-CHECK IF WS-OVERLAY = 6 IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-UNMASK-ACCT = WS-NUM MOVE WS-MASK-ACCT TO WS-NUM. #ADD 01542X05 595-CLEAR-DATA MOVE SPACES TO WS-MASK-ACCT, WS-UNMASK-ACCT, WS-MASK-CR-LINE-ACCT, WS-UNMASK-CR-LINE-ACCT. #ENDSCN = BA0R068 !#CMP2.28 12/20/23 SVPBFS 6021 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVPBFS SVPBFS 6021 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVPBFS SVPBFS 6021 * ******************************************************************************** #SCN = BA0R069 , FILEID = SVPBFS #VOLUME = $ROOK.BA60AFT #FILE = SVPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6021 #NEWVERSION = 6022 #ADD 00013R09 * 18DEC2023 ChristL * Symptom: Base24 Account number masking support * Problem: None. * Fix: Added support to mask the account number fields. * Modified Paragraphs: * 203-SPECIAL-READ-REPLY * 310-UPDATE-REC * 500-ADD-RCD * 600-READ-NEXT-RCD * 909-RETRIEVE-LCONF-ASSIGNS. * Added Paragraph: * 205-DO-MOVES-TO-REC-IMAGE. * Dependency: Apply fixes to: * BA60AFT : RQPBFS and SVPBFS. * Run Make. Refer to BA60UD0R.SCNACCT for a * complete listing of dependencies. * Reference: WO #PDM-004600 #ADD 00335P01 DATA DIVISION 05 AFT-ACCT-DIGITS. 07 RIGHT-UNMASKED PIC XX. #ADD 00335R00 DATA DIVISION 05 LEFTOVER PIC X(628). #DELETE 00335R01 DATA DIVISION #ADD 00506 DATA DIVISION 01 LCONF-PARAM-AFT-ACCT-DIGITS. 05 LCONF-RIGHT-UNMASKED PIC XX. 01 CNVRT-NUM PIC 9(2) VALUE 99. 01 CNVRT-NUM-X REDEFINES CNVRT-NUM. 05 FIRST-DIGIT PIC X. 05 SECOND-DIGIT PIC X. #ADD 00795 203-SPECIAL-READ-REPLY PERFORM 205-DO-MOVES-TO-REC-IMAGE. #ADD 00804 204-CONVERT-NUM-TO-28 205-DO-MOVES-TO-REC-IMAGE. IF MASKING-FLG OF MSG-FILE-MAINT-2048-EXT = "Y" MOVE LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS TO RIGHT-UNMASKED OF AFT-ACCT-DIGITS. #ADD 00852 310-UPDATE-REC PERFORM 205-DO-MOVES-TO-REC-IMAGE #ADD 01040 500-ADD-RCD PERFORM 205-DO-MOVES-TO-REC-IMAGE. #ADD 01112 600-READ-NEXT-RCD PERFORM 205-DO-MOVES-TO-REC-IMAGE #ADD 01594 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "AFT-ACCT-DIGITS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO LCONF-PARAM-AFT-ACCT-DIGITS MOVE LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS TO CNVRT-NUM-X IF ( FIRST-DIGIT OF CNVRT-NUM-X = SPACE OR FIRST-DIGIT OF CNVRT-NUM-X IS NUMERIC ) AND ( SECOND-DIGIT OF CNVRT-NUM-X = SPACE OR SECOND-DIGIT OF CNVRT-NUM-X IS NUMERIC ) AND CNVRT-NUM-X NOT = SPACES COMPUTE CNVRT-NUM = FUNCTION NUMVAL( LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS ) MOVE CNVRT-NUM-X TO LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS IS NOT NUMERIC MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS < 0 OR LCONF-PARAM-AFT-ACCT-DIGITS > 99 MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS > 28 AND LCONF-PARAM-AFT-ACCT-DIGITS < 99 MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF ELSE MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS MOVE ZEROES TO FILE-STAT-ELEMENT, WS-GUAR-ERR END-IF ELSE MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF #ENDSCN = BA0R069 !#CMP2.28 12/20/23 RQICFES 6006 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQICFES RQICFES 6006 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQICFES RQICFES 6006 * ******************************************************************************** #SCN = BA0R072 , FILEID = RQICFES #VOLUME = $ROOK.BA60AFT #FILE = RQICFES #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6006 #NEWVERSION = 6007 #ADD 00049F0C * 20DEC2023 jayaprm * Symptom: BASE24 Account Number Masking Support * Problem: None * Fix: Modified the code to add support for ICFE Screen 2 * new field ACCT-RIGHT-UNMASKED. * Modified Section: * WORKING-STORAGE * Modified Paragraph: * 400-MOVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT : RQICFES and SCRNICFE * BA60DDL : DDLFICFE * Run Make. * Reference: WO #PDM-004600. #ADD 00102E02 DATA DIVISION 01 CNVRT-NUM-X. 05 FIRST-DIGIT PIC X. 88 DIGIT-1 VALUES "9", "0" THRU "2". 05 SECOND-DIGIT PIC X. 88 DIGIT-2 VALUES "0" THRU "9". #ADD 00697E09 400-MOVE-RECORD IF ACCT-RIGHT-UNMASKED OF SEG0 = SPACES MOVE "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ADD 00996E0v 480-DATA-CHECK IF WS-OVERLAY = 2 MOVE ACCT-RIGHT-UNMASKED OF SEG0 TO CNVRT-NUM-X IF FIRST-DIGIT = SPACES AND DIGIT-2 MOVE "0" TO FIRST-DIGIT MOVE CNVRT-NUM-X TO ACCT-RIGHT-UNMASKED OF SEG0 ELSE IF DIGIT-1 AND SECOND-DIGIT = SPACES MOVE FIRST-DIGIT TO SECOND-DIGIT MOVE "0" TO FIRST-DIGIT MOVE CNVRT-NUM-X TO ACCT-RIGHT-UNMASKED OF SEG0 ELSE IF NOT DIGIT-1 OR NOT DIGIT-2 OR ( FIRST-DIGIT = "9" AND SECOND-DIGIT NOT = "9" ) OR CNVRT-NUM-X = "29" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-ACCT-RIGHT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-ACCT-RIGHT-UNMASKED MOVE "VALID VALUES FOR RIGHT UNMASKED ACCT DIGITS - "ARE 0 TO 28 AND 99" to ERR-TXT MOVE "N" to FLAG-MOVE. #ADD 01929E05 595-CLEAR-DATA MOVE "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ENDSCN = BA0R072 !#CMP2.28 12/20/23 RQICFS 6031 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQICFS RQICFS 6031 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQICFS RQICFS 6031 * ******************************************************************************** #SCN = BA0R073 , FILEID = RQICFS #VOLUME = $ROOK.BA60AFT #FILE = RQICFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6031 #NEWVERSION = 6032 #ADD 00020e0C * 20DEC2023 jayaprm * Symptom: BASE24 Account Number Masking Support * Problem: None * Fix: Modified the code to add support for ICF Screen 2 * new field ACCT-RIGHT-UNMASKED. * Modified Section: * WORKING-STORAGE * Modified Paragraph: * 400-MOVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to: * BA60AFT : RQICFS and SCRNICF * BA60DDL : DDLFICF * Run Make. * Reference: WO #PDM-004600. #ADD 00055d02 DATA DIVISION 01 CNVRT-NUM-X. 05 FIRST-DIGIT PIC X. 88 DIGIT-1 VALUES "9", "0" THRU "2". 05 SECOND-DIGIT PIC X. 88 DIGIT-2 VALUES "0" THRU "9". #ADD 00547d09 400-MOVE-RECORD IF ACCT-RIGHT-UNMASKED OF SEG0 = SPACES MOVE "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ADD 01071d0u 480-DATA-CHECK IF WS-OVERLAY = 2 MOVE ACCT-RIGHT-UNMASKED OF SEG0 TO CNVRT-NUM-X IF FIRST-DIGIT = SPACES AND DIGIT-2 MOVE "0" TO FIRST-DIGIT MOVE CNVRT-NUM-X TO ACCT-RIGHT-UNMASKED OF SEG0 ELSE IF DIGIT-1 AND SECOND-DIGIT = SPACES MOVE FIRST-DIGIT TO SECOND-DIGIT MOVE "0" TO FIRST-DIGIT MOVE CNVRT-NUM-X TO ACCT-RIGHT-UNMASKED OF SEG0 ELSE IF NOT DIGIT-1 OR NOT DIGIT-2 OR ( FIRST-DIGIT = "9" AND SECOND-DIGIT NOT = "9" ) OR CNVRT-NUM-X = "29" MOVE 11 TO ERR-CDE MOVE "BAD" TO VALID-DATA TURN TEMP SERROR IN S-ACCT-RIGHT-UNMASKED IF MOVE-MESSAGE SET NEW-CURSOR AT S-ACCT-RIGHT-UNMASKED MOVE "VALID VALUES FOR RIGHT UNMASKED ACCT DIGITS - "ARE 0 TO 28 AND 99" to ERR-TXT MOVE "N" to FLAG-MOVE. #ADD 01557d04 595-CLEAR-DATA MOVE "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ENDSCN = BA0R073 !#CMP2.28 12/20/23 RQIDFS 6061 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQIDFS RQIDFS 6061 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQIDFS RQIDFS 6061 * ******************************************************************************** #SCN = BA0R074 , FILEID = RQIDFS #VOLUME = $ROOK.BA60AFT #FILE = RQIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6061 #NEWVERSION = 6062 #ADD 00115;0P * 20DEC2023 jayaprm * Symptom: BASE24 Account Number Masking Support * Problem: None * Fix: Modified the code to add support for IDF Screen 4 * new field ACCT-RIGHT-UNMASKED. * Modified Paragraph: * 400-MOVE-RECORD * 481-ERR-FLAG-OV-4 * 595-CLEAR-DATA * Added Paragraph: * 481-FLAG-OV-4-FIELD-9 * Dependency: Apply fixes to: * BA60AFT : RQIDFS, SCRNIDF and SVIDFS * BA60DDL : DDLFIDF * Run Make. * Reference: WO #PDM-004600. #ADD 01150+09 400-MOVE-RECORD IF ACCT-RIGHT-UNMASKED OF SEG0 = SPACES MOVE "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ADD 01659+04 481-ERR-FLAG-OV-4 481-FLAG-OV-4-FIELD-8, 481-FLAG-OV-4-FIELD-9 #DELETE 01659+05 481-ERR-FLAG-OV-4 #ADD 01674j00 481-ERR-FLAG-OV-5 481-FLAG-OV-4-FIELD-9. TURN TEMP SERROR IN I-ACCT-RIGHT-UNMASKED. SET NEW-CURSOR AT I-ACCT-RIGHT-UNMASKED. #ADD 03123+04 595-CLEAR-DATA Move "99" TO ACCT-RIGHT-UNMASKED OF SEG0. #ENDSCN = BA0R074 !#CMP2.28 12/20/23 SVIDFS 6055 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVIDFS SVIDFS 6055 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVIDFS SVIDFS 6055 * ******************************************************************************** #SCN = BA0R078 , FILEID = SVIDFS #VOLUME = $ROOK.BA60AFT #FILE = SVIDFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6055 #NEWVERSION = 6056 #ADD 00043%0L * 20DEC2023 jayaprm * Symptom: BASE24 Account Number Masking Support * Problem: None * Fix: Modified the code to add support for IDF Screen 4 * new field ACCT-RIGHT-UNMASKED. * Modified Section: * WORKING-STORAGE * Modified Paragraph: * 310-UPDATE-REC * 480-BASE-DATA-CHECK * 500-ADD-RCD * Dependency: Apply fixes to: * BA60AFT : RQIDFS, SCRNIDF and SVIDFS * BA60DDL : DDLFIDF * Run Make. * Reference: WO #PDM-004600. #ADD 00329f01 DATA DIVISION 05 ACCT-RIGHT-UNMASKED-IMAGE PIC X(2) VALUE "99". #ADD 00329f02 DATA DIVISION 01 CNVRT-NUM PIC 9(2) VALUE 99. 01 CNVRT-NUM-X REDEFINES CNVRT-NUM. 05 FIRST-DIGIT PIC X. 05 SECOND-DIGIT PIC X. #ADD 00554y04 310-UPDATE-REC MOVE ACCT-RIGHT-UNMASKED TO ACCT-RIGHT-UNMASKED-IMAGE #ADD 01026y0o 480-BASE-DATA-CHECK IF OVERLAY-NUM = 4 MOVE ACCT-RIGHT-UNMASKED OF SEG0 TO CNVRT-NUM-X IF ( ( ( FIRST-DIGIT = SPACES OR FIRST-DIGIT IS NUMERIC ) AND ( SECOND-DIGIT = SPACES OR SECOND-DIGIT IS NUMERIC ) ) AND CNVRT-NUM-X NOT = SPACES ) COMPUTE CNVRT-NUM = FUNCTION NUMVAL (ACCT-RIGHT-UNMASKED OF SEG0) MOVE CNVRT-NUM-X TO ACCT-RIGHT-UNMASKED OF SEG0 END-IF IF ACCT-RIGHT-UNMASKED OF SEG0 NOT NUMERIC OR NOT ( CNVRT-NUM EQUAL TO 99 OR ( CNVRT-NUM GREATER THAN OR EQUAL TO 0 AND LESS THAN OR EQUAL TO 28 ) ) ADD 1 TO ERR-CNT MOVE 9 TO FLD-ID-NUM (ERR-CNT) IF MOVE-MESSAGE MOVE "VALID VALUES FOR RIGHT UNMASKED ACCT DIGITS ARE 0 TO 28 or 99" TO WS-ERR-TXT MOVE "N" TO FLAG-MOVE ELSE NEXT SENTENCE. #ADD 02375y05 500-ADD-RCD MOVE ACCT-RIGHT-UNMASKED TO ACCT-RIGHT-UNMASKED-IMAGE #ENDSCN = BA0R078 !#CMP2.28 01/09/24 RQCAFS 6071 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQCAFS RQCAFS 6071 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQCAFS RQCAFS 6071 * ******************************************************************************** #SCN = BA0S003 , FILEID = RQCAFS #VOLUME = $ROOK.BA60AFT #FILE = RQCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6071 #NEWVERSION = 6072 #ADD 00023~0I * 09JAN2024 MohanD * Symptom: BASE24 Account number masking support * Problem: None. * Fix: Added support to mask the account number fields. * Modified Paragraphs: * 400-DO-REST-OF-MOVES * 400-MOVE-IMAGE-EPA * 400-MOVE-IMAGE-PRE-AUTH * 400-MOVE-PA-ACCOUNT * 400-MOVE-EPA-ACCOUNT * 400-SAVE-RECORD * 450-SET-UP-ADD-CONTINUED * 456-PAGE2-COMPRESS * 457-WS-TO-ACCT-MOVESPAGE2-COMPRESS * 595-CLEAR-DATA * Added Paragraph: * 400-MASK-ACCTS * 400-MASK-ACCT-FIRST-10 * 400-MASK-ACCT-LAST-6 * Dependency: Apply fixes to: * BA60AFT : SCRNCAF, RQCAFS, SVCAFS * Run Make. Refer to BA60UD0R.SCNACCT for a * complete listing of dependencies. * Reference: WO #PDM-004600 #REPLACE 00039 DATA DIVISION 01 WS-ACCTS. #ADD 00171=05 DATA DIVISION 05 WS-PRE-AUTH-UNMASK. 07 WS-TABLE OCCURS 10 TIMES. 09 WS-PA-UNMASK PIC X(28). 05 WS-ENHNC-PRE-AUTH-UNMASK. 07 WS-TABLE OCCURS 10 TIMES. 09 WS-ENHNC-PA-UNMASK PIC X(28). 05 WS-ACCT-NUM-UNMASK. 07 WS-TABLE OCCURS 16 TIMES. 09 WS-ACCOUNT-UNMASK PIC X(28). 05 WS-PRE-AUTH-MASK. 07 WS-TABLE OCCURS 10 TIMES. 09 WS-PA-MASK PIC X(28). 05 WS-ENHNC-PRE-AUTH-MASK. 07 WS-TABLE OCCURS 10 TIMES. 09 WS-ENHNC-PA-MASK PIC X(28). 05 WS-ACCT-NUM-MASK. 07 WS-TABLE OCCURS 16 TIMES. 09 WS-ACCOUNT-MASK PIC X(28). 05 WS-PFRD-ACCT-MASK PIC X(28). 05 WS-PFRD-ACCT-UNMASK PIC X(28). 05 WS-PFRD-ACCT-NUM PIC X(28). #ADD 00232=06 DATA DIVISION 05 AFT-ACCT-DIGITS. 07 RIGHT-UNMASKED PIC XX. 05 PFRD-ACCT-NUM-IMAGE PIC X(28). #REPLACE 00232>01 DATA DIVISION 05 LEFTOVER PIC X(4062). #ADD 00234=02 DATA DIVISION COPY ACCT-MASK-GLOBALS OF =BASRC_BACOUTLS. #ADD 00273=04 RECOV-1 COPY G200-CALC-ACCT-LGTH OF =BASRC_BACOUTLS. COPY G210-MASK-ACCT OF =BASRC_BACOUTLS. COPY G220-JUSTIFY-ACCT-AND-FILL OF =BASRC_BACOUTLS. #REPLACE 00579=06 400-MOVE-RECORD WS-RIGHT-UNMASKED OF WS-PAN-MASK #ADD 00597y0A 400-DO-REST-OF-MOVES MOVE PFRD-ACCT-NUM-IMAGE to WS-PFRD-ACCT-NUM. IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND WS-PFRD-ACCT-NUM NOT = SPACES MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED OF WS-ACCT-MASK MOVE WS-PFRD-ACCT-NUM TO WS-PFRD-ACCT-UNMASK MOVE WS-PFRD-ACCT-NUM TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * * WS-ACCT-FIELD-LGTH NEEDS TO BE SET TO THE LENGTH OF THE * ACCOUNT NUMBER FIELD TO BE DISPLAYED. * MOVE "19" TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-PFRD-ACCT-NUM MOVE WS-PFRD-ACCT-NUM TO WS-PFRD-ACCT-MASK. #REPLACE 00600 400-DO-REST-OF-MOVES MOVE SPACES TO WS-ACCTS. #ADD 00616 400-DO-REST-OF-MOVES PERFORM 400-MASK-ACCTS VARYING I FROM 1 BY 1 UNTIL I > ACCT-CNT. #ADD 00622c00 400-SEARCH-CURR-TABLE 400-MASK-ACCTS. IF I > 10 COMPUTE J = I - 10 PERFORM 400-MASK-ACCT-LAST-6 ELSE PERFORM 400-MASK-ACCT-FIRST-10. 400-MASK-ACCT-FIRST-10. IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND NOM(I) NOT = SPACES MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED OF WS-ACCT-MASK MOVE NOM(I) TO WS-ACCOUNT-UNMASK(I) MOVE NOM(I) TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * * WS-ACCT-FIELD-LGTH needs to be set to the * length of the account number field to be displayed. * MOVE "28" TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO NOM(I) MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-ACCOUNT-MASK(I). 400-MASK-ACCT-LAST-6. IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND WS-NUM(J) NOT = SPACES MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED OF WS-ACCT-MASK MOVE WS-NUM(J) TO WS-ACCOUNT-UNMASK(I) MOVE WS-NUM(J) TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * * WS-ACCT-FIELD-LGTH needs to be set to the * length of the account number field to be displayed. * MOVE "28" TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-NUM(J) MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-ACCOUNT-MASK(I). #REPLACE 00622y02/00622y02 OFFSET 0 400-MOVE-IMAGE-EPA MOVE IMAGE-EPA-ACCT(I) TO WS-EPA-ACCOUNT(I) IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND IMAGE-EPA-ACCT(I) NOT = SPACES MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED OF WS-ACCT-MASK MOVE IMAGE-EPA-ACCT(I) TO WS-ENHNC-PA-UNMASK(I) MOVE IMAGE-EPA-ACCT(I) TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * * WS-ACCT-FIELD-LGTH NEEDS TO BE SET TO THE LENGTH OF THE * ACCOUNT NUMBER FIELD TO BE DISPLAYED. * MOVE "19" TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-EPA-ACCOUNT(I) MOVE WS-EPA-ACCOUNT(I) TO WS-ENHNC-PA-MASK(I). #REPLACE 00622c02/00622c02 OFFSET 0 400-MOVE-IMAGE-PRE-AUTH MOVE IMAGE-P-A-ACCT(I) TO WS-PA-ACCOUNT(I) IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" AND IMAGE-P-A-ACCT(I) NOT = SPACES MOVE RIGHT-UNMASKED OF AFT-ACCT-DIGITS TO WS-RIGHT-UNMASKED OF WS-ACCT-MASK MOVE IMAGE-P-A-ACCT(I) TO WS-PA-UNMASK(I) MOVE IMAGE-P-A-ACCT(I) TO WS-ACCT OF WS-ACCT-MASK PERFORM G200-ACCT-LGTH-CALC PERFORM G210-ACCT-MASK * * WS-ACCT-FIELD-LGTH NEEDS TO BE SET TO THE LENGTH OF THE * ACCOUNT NUMBER FIELD TO BE DISPLAYED. * MOVE "19" TO WS-ACCT-FIELD-LGTH MOVE SPACES TO WS-ACCT-FIELD PERFORM G220-ACCT-JUSTIFY-AND-FILL MOVE WS-ACCT-FIELD OF WS-ACCT-MASK TO WS-PA-ACCOUNT(I) MOVE WS-PA-ACCOUNT(I) TO WS-PA-MASK(I). #ADD 00698c06 400-SAVE-RECORD PERFORM 400-MOVE-EPA-ACCOUNT VARYING I FROM 1 BY 1 UNTIL I > 10. MOVE WS-PFRD-ACCT-NUM TO PFRD-ACCT-NUM-IMAGE. IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-PFRD-ACCT-MASK = WS-PFRD-ACCT-NUM MOVE WS-PFRD-ACCT-UNMASK TO PFRD-ACCT-NUM-IMAGE ELSE MOVE SPACES TO WS-PFRD-ACCT-MASK MOVE SPACES TO WS-PFRD-ACCT-UNMASK. #ADD 00719y02 400-MOVE-EPA-ACCOUNT IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-ENHNC-PA-MASK(I) = WS-EPA-ACCOUNT(I) MOVE WS-ENHNC-PA-UNMASK(I) TO IMAGE-EPA-ACCT(I) ELSE MOVE SPACES TO WS-ENHNC-PA-MASK(I) MOVE SPACES TO WS-ENHNC-PA-UNMASK(I). #ADD 00719c06 400-MOVE-PA-ACCOUNT IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-PA-MASK(I) = WS-PA-ACCOUNT(I) MOVE WS-PA-UNMASK(I) to IMAGE-P-A-ACCT(I) ELSE MOVE SPACES TO WS-PA-MASK(I) MOVE SPACES TO WS-PA-UNMASK(I). #ADD 00935y03 450-SET-UP-ADD-CONTINUED MOVE SPACES TO WS-PRE-AUTH-UNMASK. MOVE SPACES TO WS-PRE-AUTH-MASK. MOVE SPACES TO WS-ENHNC-PRE-AUTH-UNMASK. MOVE SPACES TO WS-ENHNC-PRE-AUTH-MASK. #ADD 00983 456-PAGE2-COMPRESS IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-ACCOUNT-MASK(I) = NOM(I) MOVE WS-ACCOUNT-UNMASK(I) TO ACCOUNT-NUM(T) ELSE MOVE SPACES TO WS-ACCOUNT-MASK(I) MOVE SPACES TO WS-ACCOUNT-UNMASK(I). IF TIP(I) NOT = SPACES #ADD 00989 457-WS-TO-ACCT-MOVES IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-ACCOUNT-MASK(T) = WS-NUM(X) MOVE WS-ACCOUNT-UNMASK(T) TO ACCOUNT-NUM(T) ELSE MOVE SPACES TO WS-ACCOUNT-MASK(T) MOVE SPACES TO WS-ACCOUNT-UNMASK(T). IF WS-TYPE(X) NOT = SPACES #REPLACE 02124 595-CLEAR-DATA MOVE SPACES TO SEG0 OF CAF, WS-CARD-TYPE, WS-ACCTS, #ADD 02125=03 595-CLEAR-DATA MOVE SPACES TO WS-PRE-AUTH-UNMASK. MOVE SPACES TO WS-PRE-AUTH-MASK. MOVE SPACES TO WS-ENHNC-PRE-AUTH-UNMASK. MOVE SPACES TO WS-ENHNC-PRE-AUTH-MASK. MOVE SPACES TO WS-ACCT-NUM-UNMASK. MOVE SPACES TO WS-ACCT-NUM-MASK. MOVE SPACES TO WS-PFRD-ACCT-UNMASK. MOVE SPACES TO WS-PFRD-ACCT-MASK. #ENDSCN = BA0S003 !#CMP2.28 01/09/24 SVCAFS 6048 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVCAFS SVCAFS 6048 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVCAFS SVCAFS 6048 * ******************************************************************************** #SCN = BA0S004 , FILEID = SVCAFS #VOLUME = $ROOK.BA60AFT #FILE = SVCAFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6048 #NEWVERSION = 6049 #ADD 00013v0N * 09JAN2024 MohanD * Symptom: BASE24 Account number masking support * Problem: None. * Fix: Added support to mask the account number fields. * Modified Paragraphs: * 205-DO-MOVES-TO-REC-IMAGE * 480-DATA-CHECK-SCREEN21 * 909-RETRIEVE-LCONF-ASSIGNS * 999-DO-MOVES-IMAGE-TO-CAF * Dependency: Apply fixes to: * BA60AFT : SCRNCAF, RQCAFS, SVCAFS. * Run Make. Refer to BA60UD0R.SCNACCT for a * complete listing of dependencies. * Reference: WO #PDM-004600 #ADD 00281r00 DATA DIVISION 05 AFT-ACCT-DIGITS. 07 RIGHT-UNMASKED PIC XX. 05 PFRD-ACCT-NUM-IMAGE PIC X(28). #REPLACE 00281r01 DATA DIVISION 05 LEFTOVER PIC X(4062). #ADD 00320 DATA DIVISION 01 LCONF-PARAM-AFT-ACCT-DIGITS. 05 LCONF-RIGHT-UNMASKED PIC XX. 01 CNVRT-NUM PIC 9(2) VALUE 99. 01 CNVRT-NUM-X REDEFINES CNVRT-NUM. 05 FIRST-DIGIT PIC X. 05 SECOND-DIGIT PIC X. #ADD 00743n03 205-DO-MOVES-TO-REC-IMAGE IF MASKING-FLG of MSG-FILE-MAINT-9216-EXT = "Y" MOVE LCONF-PARAM-AFT-ACCT-DIGITS TO AFT-ACCT-DIGITS. #ADD 00752 205-DO-MOVES-TO-REC-IMAGE MOVE ACCT OF SEG27 TO PFRD-ACCT-NUM-IMAGE #ADD 00972n0v 480-DATA-CHECK-SCREEN21 MOVE PFRD-ACCT-NUM-IMAGE TO WS-ACCTS IF PFRD-ACCT-NUM-IMAGE = SPACES AND #DELETE 00972n0w/00972n0x 480-DATA-CHECK-SCREEN21 #ADD 00972n19 480-DATA-CHECK-SCREEN21 IF PFRD-ACCT-NUM-IMAGE NOT = SPACES #DELETE 00972n1A 480-DATA-CHECK-SCREEN21 #ADD 00972n1Q 480-DATA-CHECK-SCREEN21 ( PFRD-ACCT-NUM-IMAGE NOT = SPACES OR #DELETE 00972n1R 480-DATA-CHECK-SCREEN21 #ADD 00972n1n 480-DATA-CHECK-SCREEN21 ( PFRD-ACCT-NUM-IMAGE NOT = SPACES OR #DELETE 00972n1o 480-DATA-CHECK-SCREEN21 #ADD 00972n20 480-DATA-CHECK-SCREEN21 ( PFRD-ACCT-NUM-IMAGE NOT = SPACES OR #DELETE 00972n21 480-DATA-CHECK-SCREEN21 #ADD 01668m0H 909-RETRIEVE-LCONF-ASSIGNS IF FILE-STAT-ELEMENT = 0 MOVE "P" TO ITEM-TYP OF LCONF MOVE "****************" TO PRO-NAME OF LCONF MOVE "AFT-ACCT-DIGITS" TO ITEM-NAME OF LCONF MOVE SPACES TO PTXT OF PARAM-MSG OF LCONF READ LCONF-FILE IF FILE-STAT-ELEMENT = 0 MOVE PTXT OF LCONF TO LCONF-PARAM-AFT-ACCT-DIGITS MOVE LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS TO CNVRT-NUM-X IF ( FIRST-DIGIT OF CNVRT-NUM-X = SPACE OR FIRST-DIGIT OF CNVRT-NUM-X IS NUMERIC ) AND ( SECOND-DIGIT OF CNVRT-NUM-X = SPACE OR SECOND-DIGIT OF CNVRT-NUM-X IS NUMERIC ) AND CNVRT-NUM-X NOT = SPACES COMPUTE CNVRT-NUM = FUNCTION NUMVAL( LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS ) MOVE CNVRT-NUM-X TO LCONF-RIGHT-UNMASKED OF LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS IS NOT NUMERIC MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS = SPACES MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS < 0 OR LCONF-PARAM-AFT-ACCT-DIGITS > 99 MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF IF LCONF-PARAM-AFT-ACCT-DIGITS > 28 AND LCONF-PARAM-AFT-ACCT-DIGITS < 99 MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF ELSE MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS MOVE 0 TO FILE-STAT-ELEMENT MOVE SPACES TO WS-ERR-TXT-ADDL OF WS-ERR-TXT-R2 END-IF ELSE MOVE "99" TO LCONF-PARAM-AFT-ACCT-DIGITS END-IF #ADD 02022e03 999-DO-MOVES-IMAGE-TO-CAF MOVE PFRD-ACCT-NUM-IMAGE TO ACCT OF SEG27 #ENDSCN = BA0S004 !#CMP2.28 01/18/24 RQEMFS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQEMFS RQEMFS 6049 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQEMFS RQEMFS 6049 * ******************************************************************************** #SCN = BA0S011 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00020w09 * 18JAN2024 wielerk * Symptom: Problems found when ATM 0520 message is sent from * BASE24-EPS to BASE24. * Problem: The message types from BASE24-EPS did not appear * to be valid to the server and couldn't be added. * Fix: Modified TABLE-EXT-MSG to add 0520 and 0530 * messages for ATM as items 62 and 63. * Modified TABLE-FULL-MSG-MAC to add 0520 and 0530 * messages for ATM as items 56 and 57. * Modified: 500-KEEP-FILLING-DEFAULTS * 620-KEEP-FILLING-DEFAULTS * Added: 531-LOAD-TABLE-62 * 531-LOAD-TABLE-63 * Dependency: Apply fixes to: * BA60AFT: SVEMFS, RQEMVS * AT60HISO: ATHISOS * Run Make. * Scup copy requester object into POBJ. * Reference: Case #3596747. #REPLACE 00082s03/00082f0C DATA DIVISION * 62) FOR ATM, MSG-TYPE 520, IN-OUT OF B * 63) FOR ATM, MSG-TYPE 530, IN-OUT OF B #REPLACE 00082s07 DATA DIVISION - "CCCCCCCMCMMM ". #REPLACE 00082s0B DATA DIVISION - "CCCCCCCCCMMCC ". #REPLACE 00082d0Y DATA DIVISION - "MMMMMMMMM MM ". #REPLACE 00082s0J DATA DIVISION - "MMMMMMMMMMMMM ". #REPLACE 00082s0R DATA DIVISION - "MMMMMMMMMMMMM ". #REPLACE 00082d34 DATA DIVISION - " C ". #REPLACE 00082d4I DATA DIVISION - "MMMMMMMMM MM ". #REPLACE 00082d51 DATA DIVISION - " C ". #REPLACE 00082s1B DATA DIVISION - "CCCMMMMCCMCMM ". #REPLACE 00082s1J DATA DIVISION - "MM MMM M MCMM ". #REPLACE 00082d7A DATA DIVISION - "MM MMM M M ". #REPLACE 00082d7N DATA DIVISION - "CCCCCCCCC CC ". #REPLACE 00082dBX DATA DIVISION - " M ". #REPLACE 00082s4E DATA DIVISION - " CCC ". #REPLACE 00082w0b DATA DIVISION - "CC CCC ". #REPLACE 00082l0A DATA DIVISION - "CCCCCCCCC CC ". #REPLACE 00351f0D/00351X45 DATA DIVISION * 56) FOR ATM, MSG-TYPE 520, IN-OUT OF B * 57) FOR ATM, MSG-TYPE 530, IN-OUT OF B #REPLACE 00351d0H DATA DIVISION - "YYYYYY ". #REPLACE 00351d0N DATA DIVISION - "YYYYYYY ". #REPLACE 00351d0Z DATA DIVISION - "YYYYYYY ". #REPLACE 00351d1C DATA DIVISION - "YYYYYYY ". #REPLACE 00351d3I DATA DIVISION - "YYYYYY ". #REPLACE 00351d4I DATA DIVISION - "YYYYYY ". #REPLACE 00351d5F DATA DIVISION - "YY Y YY ". #REPLACE 00351d5I DATA DIVISION - "YY Y Y ". #ADD 01271d04 500-KEEP-FILLING-DEFAULTS IF PROD-NUM = 1 AND MSG-TYP = 520 PERFORM 531-LOAD-TABLE-62 VARYING I FROM 1 BY 1 UNTIL I > 128 ELSE IF PROD-NUM = 1 AND MSG-TYP = 530 PERFORM 531-LOAD-TABLE-63 VARYING I FROM 1 BY 1 UNTIL I > 128 ELSE #REPLACE 01375s05/01375d0N 531-LOAD-TABLE-61 531-LOAD-TABLE-62. MOVE CHAR-TO-MOVE(I, 62) TO FLD-MAP (I). 531-LOAD-TABLE-63. MOVE CHAR-TO-MOVE(I, 63) TO FLD-MAP (I). #REPLACE 01375dHN/01375dHU 620-KEEP-FILLING-DEFAULTS IF PROD-NUM = 1 AND MSG-TYP = 520 MOVE 56 TO TBL-ROW PERFORM 621-LOAD-TABLE VARYING I FROM 1 BY 1 UNTIL I > 128 ELSE IF PROD-NUM = 1 AND MSG-TYP = 530 MOVE 57 TO TBL-ROW PERFORM 621-LOAD-TABLE VARYING I FROM 1 BY 1 UNTIL I > 128 ELSE #ENDSCN = BA0S011 !#CMP2.28 01/18/24 SVEMFS 6014 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVEMFS SVEMFS 6014 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVEMFS SVEMFS 6014 * ******************************************************************************** #SCN = BA0S012 , FILEID = SVEMFS #VOLUME = $ROOK.BA60AFT #FILE = SVEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6014 #NEWVERSION = 6015 #ADD 00015M0E * 18JAN2024 wielerk * Symptom: Problems found when ATM 0520 message is sent from * BASE24-EPS to BASE24. * Problem: The message types from BASE24-EPS did not appear * to be valid to the server and couldn't be added. * Fix: Added 0520 and 0530 to the valid-atm-msg-typ. * Modified code to correct ws-err-txt when message * type does not match valid-atm-msg-typ. * Modified: 480-DATA-CHECK * Dependency: Apply fixes to: * BA60AFT: SVEMFS, RQEMFS * AT60HISO: ATHISOS * Run Make. * Reference: Case #3596747. #REPLACE 00323F07 DATA DIVISION 230, 420, 430, 520, 530. #REPLACE 00518F36/00518F37 480-DATA-CHECK MOVE "MESSAGE TYPE IS INVALID FOR THE ATM - "PRODUCT" TO WS-ERR-TXT #ENDSCN = BA0S012 !#CMP2.28 01/18/24 RQEMFS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQEMFS RQEMFS 6050 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQEMFS RQEMFS 6050 * ******************************************************************************** #SCN = BA0S013 , FILEID = RQEMFS #VOLUME = $ROOK.BA60AFT #FILE = RQEMFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00020x0K * 18JAN2024 wielerk * Symptom: Problems found when ATM 0520 message is sent from * BASE24-EPS to BASE24. * Problem: The change to the tables does not compile after * running Fixer. * Because the sequence numbers were not removed * from the continuation line that was modified * Fixer inserts a blank line before and after * the modified line that was changed. * This will cause both lines in the entry of the * table to error. * Fix: Modified TABLE-EXT-MSG and TABLE-FULL-MSG-MAC * to remove sequence lines for bit changes. * Dependency: Apply fix to: * BA60AFT: RQEMVS * Run Make. * Scup copy requester object into POBJ. * Reference: Case #3596747. #ADD 00082s04 DATA DIVISION 05 FILLER1 PIC X(80) VALUE "CMMMCMMMMMCMMMCMMMMM M CCCCCCMMMMMMCCCCCCCC MMC - "CCCCCCCMCMMM ". #DELETE 00082s05/00082x06 DATA DIVISION #ADD 00082s08 DATA DIVISION 05 FILLER2 PIC X(80) VALUE " MM C - "CCCCCCCCCMMCC ". #DELETE 00082s09/00082x09 DATA DIVISION #ADD 00082s0F DATA DIVISION 05 FILLER3 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMM MM MMMMMMMM M - "MMMMMMMMM MM ". #DELETE 00082d0W/00082x0C DATA DIVISION #ADD 00082s0G DATA DIVISION 05 FILLER7 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM M - "MMMMMMMMMMMMM ". #DELETE 00082s0H/00082x0F DATA DIVISION #ADD 00082s0O DATA DIVISION 05 FILLER11 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMM - "MMMMMMMMMMMMM ". #DELETE 00082s0P/00082x0I DATA DIVISION #ADD 00082d31 DATA DIVISION 05 FILLER23 PIC X(80) VALUE " C C CCC C CCC CCC - " C ". #DELETE 00082d32/00082x0L DATA DIVISION #ADD 00082d4G DATA DIVISION VALUE "MMMMMMMMMMMMMMMMMMMMMMMMMMMMM MM MMMMMMMM M - "MMMMMMMMM MM ". #DELETE 00082d4H/00082x0O DATA DIVISION #ADD 00082d4Z DATA DIVISION VALUE "MMMMMMMMMMMMMMMMMMM MMMMMM MM MMMMMMMM - " C ". #DELETE 00082d50/00082x0R DATA DIVISION #ADD 00082s18 DATA DIVISION 05 FILLER49 PIC X(80) VALUE "MMMMMMMMMMMMMMMMMMMMMMM MC C - "CCCMMMMCCMCMM ". #DELETE 00082s19/00082x0U DATA DIVISION #ADD 00082s1G DATA DIVISION 05 FILLER60 PIC X(80) VALUE "MMMM M MMM MMM M M MMMMMMMCMC MMMCMMMCMMMC MMM - "MM MMM M MCMM ". #DELETE 00082s1H/00082x0X DATA DIVISION #ADD 00082d77 DATA DIVISION 05 FILLER61 PIC X(80) VALUE " MMM M MMMMMMMMMMMMM M M MCM M M M M MMM - "MM MMM M M ". #DELETE 00082d78/00082x0a DATA DIVISION #ADD 00082d7K DATA DIVISION 05 FILLER64 PIC X(80) VALUE "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCC C - "CCCCCCCCC CC ". #DELETE 00082d7L/00082x0d DATA DIVISION #ADD 00082dBU DATA DIVISION 05 FILLER114 PIC X(80) VALUE " C CCCC - " M ". #DELETE 00082dBV/00082x0g DATA DIVISION #ADD 00082s4B DATA DIVISION 05 FILLER120 PIC X(80) VALUE " CC CC CCCC - " CCC ". #DELETE 00082s4C/00082x0j DATA DIVISION #ADD 00082s5E DATA DIVISION 05 FILLER126 PIC X(80) VALUE "CCCCCCCMCMCMCMCMMCC C CCCCCCCC C - "CC CCC ". #DELETE 00082s5F/00082x0m DATA DIVISION #ADD 00082l07 DATA DIVISION 05 FILLER128 PIC X(80) VALUE "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCC C - "CCCCCCCCC CC ". #DELETE 00082l08/00082x0p DATA DIVISION #ADD 00351d0E DATA DIVISION 05 FILLER1 PIC X(60) VALUE "YYYYYYYYYYYYYYYYYYYYYY Y YYYYYYYYYYYYYYYY YYYYY - "YYYYYY ". #DELETE 00351d0F/00351x06 DATA DIVISION #ADD 00351d0K DATA DIVISION 05 FILLER3 PIC X(60) VALUE "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YYYYY - "YYYYYYY ". #DELETE 00351d0L/00351x09 DATA DIVISION #ADD 00351d0W DATA DIVISION 05 FILLER7 PIC X(60) VALUE "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YYYYY - "YYYYYYY ". #DELETE 00351d0X/00351x0C DATA DIVISION #ADD 00351d19 DATA DIVISION 05 FILLER11 PIC X(60) VALUE "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YYYYY - "YYYYYYY ". #DELETE 00351d1A/00351x0F DATA DIVISION #ADD 00351d3F DATA DIVISION 05 FILLER37 PIC X(60) VALUE "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YYYYY - "YYYYYY ". #DELETE 00351d3G/00351x0I DATA DIVISION #ADD 00351d4F DATA DIVISION 05 FILLER49 PIC X(60) VALUE "YY Y YYYYYYYYYYYYYYYYYYYY YYYYY - "YYYYYY ". #DELETE 00351d4G/00351x0L DATA DIVISION #ADD 00351d5C DATA DIVISION 05 FILLER60 PIC X(60) VALUE "YYYYYY Y YYY YYY Y Y YYYY YYY Y - "YY Y YY ". 05 FILLER61 PIC X(60) VALUE " Y Y Y Y YYYYYYYYYYYYY Y YYY Y - "YY Y Y ". #DELETE 00351d5D/00351x0R DATA DIVISION #ENDSCN = BA0S013 !#CMP2.28 02/12/24 COBTKN 6069 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6069 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6069 * ******************************************************************************** #SCN = BA0S015 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6069 #NEWVERSION = 6070 #ADD 00057^0K * 12FEB2024 MohanD * Symptom: BASE24 Spring 2024 Base Files Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * TRANSACTION LINK ID Token( HI ) * BUSINESS RCV DATA Token ( HJ ) * BUSINESS RCV DATA2 Token ( HK ) * BUSINESS SENDER DATA Token ( HL ) * BUSINESS SENDER DATA2 Token ( HM ) * P2P RCV DATA2 Token ( HN ) * P2P SENDER DATA2 Token ( HO ) * Added ATM entry to PROD-TKN-TABLE for * ATM EXCHANGE RATE Token( D3 ) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLATTKN * BA60SRC: ATTKNCVS, ATTKNID, BATKNCVS, BATKNID * Run Make. * Reference: WO #PDM-005647 - Banknet Release 24.Q2 * Functional Enhancements * WO #PDM-005648 - MDS Release 24.Q2 * Functional Enhancements * WO #PDM-005788 - VisaNet April 2024 Business * Enhancements #ADD 00195^0F 05 ATM143 PIC X(29) VALUE "HI01ATM TRANSACTION LINK ID ". 05 POS178 PIC X(29) VALUE "HI02POS TRANSACTION LINK ID ". 05 ATM144 PIC X(29) VALUE "D301ATM ATM EXCHANGE RATE ". 05 ATM145 PIC X(29) VALUE "HJ01ATM BUSINESS RCV DATA ". 05 POS179 PIC X(29) VALUE "HJ02POS BUSINESS RCV DATA ". 05 ATM146 PIC X(29) VALUE "HK01ATM BUSINESS RCV DATA2 ". 05 POS180 PIC X(29) VALUE "HK02POS BUSINESS RCV DATA2 ". 05 ATM147 PIC X(29) VALUE "HL01ATM BUSINESS SENDER DATA ". 05 POS181 PIC X(29) VALUE "HL02POS BUSINESS SENDER DATA ". 05 ATM148 PIC X(29) VALUE "HM01ATM BUSINESS SENDER DATA2". 05 POS182 PIC X(29) VALUE "HM02POS BUSINESS SENDER DATA2". 05 ATM149 PIC X(29) VALUE "HN01ATM P2P RCV DATA2 TKN ". 05 POS183 PIC X(29) VALUE "HN02POS P2P RCV DATA2 TKN ". 05 ATM150 PIC X(29) VALUE "HO01ATM P2P SENDER DATA2 TKN ". 05 POS184 PIC X(29) VALUE "HO02POS P2P SENDER DATA2 TKN ". #REPLACE 00197^01 02 WS-PROD-TKN-TBL OCCURS 353 TIMES. #REPLACE 00201^01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 353. #ENDSCN = BA0S015 !#CMP2.28 03/28/24 RQMEGAS 6049 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6049 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQMEGAS RQMEGAS 6049 * ******************************************************************************** #SCN = BA0S028 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6049 #NEWVERSION = 6050 #ADD 00020m1S * 28MAR2024 MohanD * Symptom: PCI DSS v4 - Password Length * Problem: None. * Fix: The MEGA requester has been modified to accept * and pass to the SEC security server, * logon passwords of up to 16 characters. * Modified Paragraph: 485-DATA-CHECK. * Dependency: Apply fixes to * BA60AFT: SCRNMEGA, SCRNSEC, RQMEGAS, RQSECS * SVISECS. * BA60DDL: DDLGPTH. * Run Make. * Add file: * BA60UD0S: AAREADUD, IGR6PV10, SCNPSWDL, V61004 * Reference: WO # PDM-004603 #ADD 00036X03 DATA DIVISION 01 WS-SAVE-NEW-PASSWORD PIC X(16) VALUE SPACES. 01 WS-CHECK-NEW-PASSWORD. 05 WS-SAVE-NEW-PASSWORD-CHAR PIC X OCCURS 16 TIMES. #DELETE 00036X04/00036X06 DATA DIVISION #ADD 00112 DATA DIVISION 01 SAVE-PASSWORD PIC X(16) VALUE SPACES. #DELETE 00113 DATA DIVISION #ADD 01777s05 485-DATA-CHECK MOVE 16 TO WS-SUB #DELETE 01777s06 485-DATA-CHECK #ADD 01777s0A 485-DATA-CHECK MOVE WS-SUB TO PASSWORD-LGTH OF MSG-SECURITY-EXT #ADD 01777s0Y 485-DATA-CHECK MOVE 16 TO WS-SUB #DELETE 01777s0Z 485-DATA-CHECK #ADD 01777s0d 485-DATA-CHECK MOVE WS-SUB TO NEW-PSWD-LGTH OF MSG-SECURITY-EXT #ENDSCN = BA0S028 !#CMP2.28 03/28/24 RQSECS 6025 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSECS RQSECS 6025 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSECS RQSECS 6025 * ******************************************************************************** #SCN = BA0S029 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6025 #NEWVERSION = 6026 #ADD 00019Y0D * 28MAR2024 MohanD * Symptom: PCI DSS v4 - Password Length * Problem: None. * Fix: The SEC Requester has been modified to accept and * pass to the SEC security server passwords of up to * 16 characters. * Modified Paragraph: 200-GET-DATA. * 400-SAVE-RECORD. * 455-SET-UP-ADD-LIKE. * 480-DATA-CHECK. * Dependency: Apply fixes to * BA60AFT: SCRNMEGA, SCRNSEC, RQMEGAS, RQSECS * SVISECS * Run Make. * Add File: AAREADUD, IGR6PV10, SCNPSWDL, V61004 * Reference: WO # PDM-004603 #ADD 00030W02 DATA DIVISION 01 WS-SAVE-NEW-PASSWORD PIC X(16) VALUE SPACES. 01 WS-CHECK-NEW-PASSWORD. 05 WS-SAVE-NEW-PASSWORD-CHAR PIC X OCCURS 16 TIMES. 01 WS-SAVE-NEW-PASSWORD-LEN PIC 9(2). 01 WS-PSWD-VERIFY PIC X(16). 01 WS-PSWD PIC X(16). 01 WS-PSWD-LGTH PIC 9(2). #DELETE 00030W03/00030W07 DATA DIVISION #ADD 00077W00 DATA DIVISION 05 NEW-USER-PASSWORD PIC X(16). 05 NEW-USER-PASSWORD-LGTH PIC 9(2). #DELETE 00077W01/00077W02 DATA DIVISION #ADD 00120D00 DATA DIVISION 03 RECORD-IMAGE PIC X(4042). #DELETE 00120D01 DATA DIVISION #ADD 00122D02 DATA DIVISION 03 SEC-PSWD-OVRLY-1 PIC X(16). 03 SEC-PSWD-OVRLY-1-LGTH PIC 9(2). #ADD 00191J02 200-GET-DATA MOVE SPACES TO WS-PSWD. #ADD 00574M00 400-SAVE-RECORD * * CALCULATE LENGTH OF ENTERED PASSWORD * MOVE WS-PSWD TO WS-CHECK-NEW-PASSWORD MOVE 16 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-PSWD-LGTH * * IF THE PASSWORD IS <= 8 CHARACTERS, MOVE THE PASSWORD * TO THE PASSWORD FIELD OF SEC-BASE-INFO AND MOVE SPACES * TO SEC-PSWD-OVRLY-1. OTHERWISE, MOVE THE PASSWORD TO * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. * IF WS-PSWD-LGTH < 9 AND WS-PSWD = SPACES MOVE SPACES TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE 0 TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO RECORD-IMAGE MOVE ALIAS OF USER-CONTEXT-EXT TO MODIFIER-ALIAS OF MSG-FILE-MAINT-4096-EXT ELSE IF WS-PSWD-LGTH < 9 AND WS-PSWD NOT = SPACES MOVE SPACES TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE 0 TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE WS-PSWD TO PASSWORD OF SEC-BASE-INFO MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO RECORD-IMAGE MOVE ALIAS OF USER-CONTEXT-EXT TO MODIFIER-ALIAS OF MSG-FILE-MAINT-4096-EXT ELSE MOVE WS-PSWD TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE WS-PSWD-LGTH TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE SEC-BASE-INFO TO SEC-DATA OF SEC MOVE SEC TO RECORD-IMAGE MOVE ALIAS OF USER-CONTEXT-EXT TO MODIFIER-ALIAS OF MSG-FILE-MAINT-4096-EXT #DELETE 00574M01/00577T04 400-SAVE-RECORD #ADD 00645W00 455-SET-UP-ADD-LIKE * * CALCULATE LENGTH OF ENTERED PASSWORD * MOVE WS-PSWD TO WS-CHECK-NEW-PASSWORD MOVE 16 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN MOVE WS-SUB TO WS-PSWD-LGTH * * IF THE PASSWORD IS <= 8 CHARACTERS, MOVE THE PASSWORD * TO THE PASSWORD FIELD OF SEC-BASE-INFO AND MOVE SPACES * TO SEC-PSWD-OVRLY-1. OTHERWISE, MOVE THE PASSWORD TO * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. * IF WS-PSWD-LGTH < 9 AND WS-PSWD = SPACES MOVE SPACES TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE 0 TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE PASSWORD OF SEC-BASE-INFO TO NEW-USER-PASSWORD OF ADD-LIKE-REQ ELSE IF WS-PSWD-LGTH < 9 AND WS-PSWD NOT = SPACES MOVE SPACES TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE 0 TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE WS-PSWD TO PASSWORD OF SEC-BASE-INFO MOVE PASSWORD OF SEC-BASE-INFO TO NEW-USER-PASSWORD OF ADD-LIKE-REQ ELSE MOVE WS-PSWD TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT MOVE WS-PSWD-LGTH TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT MOVE SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT TO NEW-USER-PASSWORD OF ADD-LIKE-REQ MOVE SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT TO NEW-USER-PASSWORD-LGTH OF ADD-LIKE-REQ. #DELETE 00645W01/00645W03 455-SET-UP-ADD-LIKE #REPLACE 00646 455-SET-UP-ADD-LIKE MOVE ADD-LIKE-REQ TO RECORD-IMAGE OF REC-IMAGE-R. #ADD 00671W02 455-SET-UP-ADD-LIKE IF (WS-PSWD-LGTH < 9 ) AND (PASSWORD OF SEC-BASE-INFO = SPACES) AND (VALID-DATA NOT = "BAD") MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD. IF (WS-PSWD-LGTH > 8 ) AND (SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT = SPACES) AND (VALID-DATA NOT = "BAD") MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD. #DELETE 00671W03/00671W08 455-SET-UP-ADD-LIKE #ADD 00671W0B 455-SET-UP-ADD-LIKE #DELETE 00671W0C/00671W0I 455-SET-UP-ADD-LIKE #ADD 00671W0V 455-SET-UP-ADD-LIKE * * IF THE ENTERED PASSWORD IS > 8 CHARACTERS IT WILL BE IN * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. OTHERWISE IT * WILL BE IN PASSWORD OF SEC-BASE-INFO. * IF WS-PSWD NOT = WS-PSWD-VERIFY #DELETE 00671W0W 455-SET-UP-ADD-LIKE #ADD 00734W0E 480-DATA-CHECK * * IF THE ENTERED PASSWORD IS > 8 CHARACTERS IT WILL BE IN * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. OTHERWISE IT * WILL BE IN PASSWORD OF SEC-BASE-INFO. * IF WS-OVERLAY = 1 MOVE WS-PSWD TO WS-CHECK-NEW-PASSWORD MOVE 16 TO WS-SUB PERFORM 490-RSCAN UNTIL WS-SAVE-NEW-PASSWORD-CHAR( WS-SUB ) NOT = SPACE OR WS-SUB = 1 MOVE WS-SUB TO WS-SAVE-NEW-PASSWORD-LEN MOVE WS-SUB TO WS-PSWD-LGTH. IF (WS-PSWD-LGTH < 9 ) AND (PASSWORD OF SEC-BASE-INFO = SPACES) MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE IF MOVE-MESSAGE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. IF (WS-PSWD-LGTH > 8 ) AND (SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT = SPACES) MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. #DELETE 00734W0F/00734W0M 480-DATA-CHECK #ADD 00734W0Q 480-DATA-CHECK * * IF THE ENTERED PASSWORD IS > 8 CHARACTERS IT WILL BE IN * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. OTHERWISE IT * WILL BE IN PASSWORD OF SEC-BASE-INFO. * #DELETE 00734W0R/00734W0X 480-DATA-CHECK #ADD 00734W0n 480-DATA-CHECK * * IF THE ENTERED PASSWORD IS > 8 CHARACTERS IT WILL BE IN * SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT. OTHERWISE IT * WILL BE IN PASSWORD OF SEC-BASE-INFO. * IF WS-PSWD NOT = WS-PSWD-VERIFY #DELETE 00734W0o 480-DATA-CHECK #ENDSCN = BA0S029 !#CMP2.28 03/28/24 SVISECS 6042 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6042 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6042 * ******************************************************************************** #SCN = BA0S032 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6042 #NEWVERSION = 6043 #ADD 01101p0A * 28MAR2024 MohanD * Symptom: PCI DSS v4 - Password Length * Problem: None. * Fix: The security server has been modified to accept * and process passwords received from the * MEGA requester and the SEC security * requester of up to 16 characters. * Modified Paragraph: 210-LOGON * 210-CHECK-PASSWORD * 210-CONVERT-PASSWORD * 210-ENCRYPT-PASSWORD * 210-ADD-SUPER-SUPER * 210-FIX-PASSWORD-LGTH-MIN * 210-FIX-PASSWORD-NUM-ALPHA * 210-FIX-PASSWORD-NUM-NUMERIC * 210-FIX-PASSWORD-NUM-SPCL * 210-INIT-MSG-SECURITY-EXT-OUT * 210-VALIDATE-ENCRYPT-PASSWORD * 210-VALIDATE-SHA1-PSWD * 220-VALIDATE-LN-CHANGE * 240-CHANGE-PASSWORD * 240-CREATE-SHA2-HASH * 240-CREATE-SHA2-HASH-NEW-PASSWORD * 240-PSWD-HIST-CHK * 240-PSWD-HIST-SHA2-CHK * 520-UPDATE-SEC-RCD * 600-ADD-LIKE-SEC-RCD * 909-RETRIEVE-LCONF-PARAMS * 1020-AUDIT-WRITE * Dependency: Apply fixes to: * BA60AFT: SCRNMEGA, SCRNSEC, RQMEGAS, RQSECS * SVISECS * BA60DDL: DDLGPTH. * Run Make. * Add file: * BA60UD0S: AAREADUD, IGR6PV10, SCNPSWDL, V61004 * Reference: WO # PDM-004603 #ADD 01362 03 RECORD-IMAGE PIC X(4042). #DELETE 01363 #ADD 01365 03 SEC-PSWD-OVRLY-1 PIC X(16). 03 SEC-PSWD-OVRLY-1-LGTH PIC 9(2). #ADD 01779 01 WS-PASSWORD-HOLD PIC X(16). 01 WS-PASSWORD-HOLD-TEMP REDEFINES WS-PASSWORD-HOLD. 05 WS-PASSWORD-HOLD-8 PIC X(8). 05 FILLER PIC X(8). 01 WS-PASSWORD-HOLD-LGTH PIC 9(2). 01 WS-PASSWORD-SAVE PIC X(16). 01 WS-PASSWORD-SAVE-TEMP REDEFINES WS-PASSWORD-SAVE. 05 WS-PASSWORD-SAVE-8 PIC X(8). 05 FILLER PIC X(8). 01 WS-PASSWORD-SAVE-LGTH PIC 9(2). 01 WS-NEW-PASSWORD-HOLD PIC X(16). 01 WS-NEW-PASSWORD-HOLD-TEMP REDEFINES WS-NEW-PASSWORD-HOLD. 05 WS-NEW-PASSWORD-HOLD-8 PIC X(8). 05 FILLER PIC X(8). 01 WS-NEW-PASSWORD-HOLD-LGTH PIC 9(2). #DELETE 01780 /01780m01 #ADD 01780m05 01 WS-SALT-PASSWORD PIC X(48). #DELETE 01780m06 #ADD 01780a0M 01 PASSWORD-NUM-ALPHA PIC 9(2). #DELETE 01780a0N #ADD 01780a0O 01 PASSWORD-NUM-NUMERIC PIC 9(2). #DELETE 01780a0P #ADD 01780a0Q 01 PASSWORD-NUM-SPCL PIC 9(2). #DELETE 01780a0R #ADD 01878f00 05 NEW-USER-PASSWORD PIC X(16). 05 NEW-USER-PASSWORD-LGTH PIC 9(2). #DELETE 01878f01 #ADD 02453a02 01 LCONF-PASSWORD-LGTH-MIN. 05 PASSWORD-LGTH-MIN-CHAR PIC X OCCURS 2 TIMES. #DELETE 02453A09 #ADD 02453a07 01 LCONF-PASSWORD-NUM-ALPHA. 05 PASSWORD-NUM-ALPHA-CHAR PIC X OCCURS 2 TIMES. 01 LCONF-PASSWORD-NUM-NUMERIC. 05 PASSWORD-NUM-NUMERIC-CHAR PIC X OCCURS 2 TIMES. 01 LCONF-PASSWORD-NUM-SPCL. 05 PASSWORD-NUM-SPCL-CHAR PIC X OCCURS 2 TIMES. #DELETE 02453a08/02453a0A #ADD 02541A03 10 FILLER PIC X(2). 10 LEN PIC X(2). #DELETE 02541A04/02541A05 #ADD 02541A06 05 MAX-LENGTH-16 PIC S9(4) COMP VALUE 16. #REPLACE 02619A04 07 LGTH-MIN PIC 99. #ADD 03348W03 MOVE PASSWORD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-PASSWORD-HOLD-LGTH #ADD 03489a02 IF WS-PASSWORD-HOLD-LGTH > 8 MOVE "Y" TO PASSWORD-ERROR-FLAG ELSE IF WS-PASSWORD-HOLD-8 OF WS-PASSWORD-HOLD-TEMP NOT = PASSWORD OF SEC-BASE-INFO MOVE "Y" TO PASSWORD-ERROR-FLAG ELSE MOVE "N" TO PASSWORD-ERROR-FLAG #DELETE 03489a03/03489a06 #ADD 03489m0A INSPECT WS-PASSWORD-HOLD-8 #DELETE 03489a0J #ADD 03489a0L ENTER TAL "ENCODE" OF UTILIB USING WS-PASSWORD-HOLD-8, WS-PASSWORD-HOLD-8, WS-WORK-AREA IF WS-PASSWORD-HOLD-8 NOT = #DELETE 03489a0M/03489a0P #ADD 03489m0F MOVE SPACES TO WS-SALT-PASSWORD #ADD 03489m0G MOVE WS-PASSWORD-HOLD-8 TO WS-SALT-PASSWORD(33:8) #DELETE 03489m0H #ADD 03489m0S MOVE SPACES TO WS-SALT-PASSWORD #ADD 03489m0U MOVE WS-PASSWORD-HOLD TO WS-SALT-PASSWORD(33:16) IF WS-PASSWORD-HOLD-LGTH > 8 ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 48, WS-PASSWORD-SHA2-HASH ELSE ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. #DELETE 03489m0V/03489m0Z #ADD 03489a2E 210-FIX-PASSWORD-LGTH-MIN. IF PASSWORD-LGTH-MIN-CHAR(M) = SPACE MOVE "0" TO PASSWORD-LGTH-MIN-CHAR(M). 210-FIX-PASSWORD-NUM-ALPHA. IF PASSWORD-NUM-ALPHA-CHAR(M) = SPACE MOVE "0" TO PASSWORD-NUM-ALPHA-CHAR(M). 210-FIX-PASSWORD-NUM-NUMERIC. IF PASSWORD-NUM-NUMERIC-CHAR(M) = SPACE MOVE "0" TO PASSWORD-NUM-NUMERIC-CHAR(M). 210-FIX-PASSWORD-NUM-SPCL. IF PASSWORD-NUM-SPCL-CHAR(M) = SPACE MOVE "0" TO PASSWORD-NUM-SPCL-CHAR(M). #ADD 03511a03 IF NEW-PSWD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-IN > 8 MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD HAVING LENGTH > 8 MUST BE COMPLEX" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT EXIT PARAGRAPH ELSE MOVE NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN TO PASSWORD OF SEC-BASE-INFO ENTER TAL "ENCODE" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, PASSWORD OF SEC-BASE-INFO, WS-WORK-AREA #DELETE 03511a04/03511a09 #ADD 03546W09 MOVE PASSWORD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-IN TO PASSWORD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-OUT. #ADD 03634f0G * * IF SEC-PSED-OVRLY-1 = SPACES THEN CHECK SEC-BASE-INFO * for THE PASSWORD. * IF SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN = SPACES #ADD 03634f0N * * IF THE NEW PASSWORD IS > 8 CHARACTERS IT WILL BE SENT * IN SEC-PSWD-OVRLY-1. OTHERWISE IT WILL BE CARRIED IN * PASSWORD OF SEC-BASE-INFO. * IF SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN = SPACES ENTER TAL "STRLEN" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, MAX-LENGTH GIVING NEW-PASSWORD-LENGTH ELSE ENTER TAL "STRLEN" OF UTILIB USING SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN, MAX-LENGTH-16 GIVING NEW-PASSWORD-LENGTH. #DELETE 03634f0O/03634f0R #ADD 03634m05 * * IF THE NEW PASSWORD IS > 8 CHARACTERS THERE IS NO NEED * TO CHECK SHA-1 * IF NEW-PASSWORD-LENGTH <= 8 MOVE SPACES TO WS-PASSWORD-HASH ENTER TAL "SHA1^HASH" OF UTILIB USING PASSWORD OF SEC-BASE-INFO, 8, WS-PASSWORD-HASH. IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" PERFORM 110-GET-TIMESTAMP PERFORM 210-GET-TIME MOVE 0 TO NUM-PASSWORD-CHNG-TODAY PERFORM 240-PSWD-HIST-CHK VARYING X FROM 1 BY 1 UNTIL X > PASSWORD-MAX-STORE. * * CHECK FOR COMPLEX PASSWORD. AGAIN, IF LENGTH > 8 THE NEW * PASSWORD WILL BE CARRIED IN SEC-PSWD-OVRLY-1 RATHER THAN * SEC-BASE-INFO. * IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" IF NEW-PASSWORD-LENGTH <= 8 ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING PASSWORD OF SEC-BASE-INFO, NEW-PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD ELSE ENTER TAL "COMPLEX^PSWD^CHK" OF TALLIB USING SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN, NEW-PASSWORD-LENGTH, PASSWORD-NUM-ALPHA, PASSWORD-NUM-NUMERIC, PASSWORD-NUM-SPCL GIVING VALID-PASSWORD. IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "N" IF NEW-PASSWORD-LENGTH > 8 MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD HAVING LENGTH > 8 MUST BE COMPLEX" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" #DELETE 03634m06/03634f17 #ADD 03634m0L ENTER TAL "SHA1^HASH" OF UTILIB USING WS-PASSWORD-HOLD-8, 8, WS-PASSWORD-HASH. #DELETE 03634m0M/03634m0O #ADD 03651a03 MOVE PASSWORD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-PASSWORD-HOLD-LGTH #ADD 03651a0A WS-PASSWORD-HOLD-8 NOT = PASSWORD OF SEC-BASE-INFO #DELETE 03651a0B #ADD 03849W0D MESSAGE-IN, MAX-LENGTH-16 #DELETE 03849W0E #ADD 03849W0T IF LCONF-PASSWORD-COMPLEX = "N" AND NEW-PASSWORD-LENGTH > 8 THEN MOVE "Y" TO ERROR-FLAG MOVE "PASSWORD HAVING LENGTH > 8 MUST BE COMPLEX" TO WS-ERR-TXT, ERR-TXT OF MSG-SECURITY-EXT OF MESSAGE-OUT MOVE 4 TO ERR-CDE OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-ERR-EXT MOVE "0004" TO ERR-NUM OF MSG-SECURITY-EXT OF MESSAGE-OUT. #ADD 03849a06 USING NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN, NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN, WS-WORK-AREA #DELETE 03849a07/03849a0A #ADD 03849m05 IF NEW-PASSWORD-LENGTH < 9 #ADD 03849a0C USING NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN, 8, WS-PASSWORD-HASH. #DELETE 03849a0D/03849a0E #ADD 03849a0I IF NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN = #DELETE 03849W13 #ADD 03849W1E MOVE NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN TO PASSWORD OF SEC-BASE-INFO. #DELETE 03849W1F/03849W1H #ADD 03849m0C * Move NEW-PASSWORD OF MSG-SECURITY-EXT to new working * storage field capable of holding 2-16 character passwords * MOVE NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-NEW-PASSWORD-HOLD MOVE LEN TO WS-NEW-PASSWORD-HOLD-LGTH #DELETE 03849m0D/03849m0E #ADD 03871m07 MOVE SPACES TO WS-SALT-PASSWORD #ADD 03871m08 IF NEW-PASSWORD-LENGTH <= 8 MOVE PASSWORD OF SEC-BASE-INFO TO WS-SALT-PASSWORD(33:8) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH ELSE MOVE SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO WS-SALT-PASSWORD(33:16) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 48, WS-PASSWORD-SHA2-HASH. #DELETE 03871m09/03871m0D #ADD 03871m0O MOVE SPACES TO WS-SALT-PASSWORD #ADD 03871m0P IF NEW-PSWD-LGTH OF MSG-SECURITY-EXT OF MESSAGE-IN > 8 MOVE NEW-PASSWORD OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-SALT-PASSWORD(33:16) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 48, WS-PASSWORD-SHA2-HASH ELSE MOVE NEW-PASSWORD-8 OF MSG-SECURITY-EXT OF MESSAGE-IN TO WS-SALT-PASSWORD(33:8) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. #DELETE 03871m0Q/03871m0U #ADD 03885a02 AND NEW-PASSWORD-LENGTH <= 8 THEN #ADD 03885m06 MOVE SPACES TO WS-SALT-PASSWORD #ADD 03885m08 IF WS-NEW-PASSWORD-HOLD-LGTH > 8 MOVE WS-NEW-PASSWORD-HOLD TO WS-SALT-PASSWORD(33:16) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 48, WS-PASSWORD-SHA2-HASH ELSE MOVE WS-NEW-PASSWORD-HOLD-8 TO WS-SALT-PASSWORD(33:8) ENTER TAL "SHA256^HASH" OF UTILIB USING WS-SALT-PASSWORD, 40, WS-PASSWORD-SHA2-HASH. #DELETE 03885m09/03885m0E #ADD 04472f06 * * PASSWORD WILL BE SENT IN EITHER SEC-PSWD-OVRLY-1 OR * PASSWORD OF SEC-BASE-INFO. IF BOTH FIELDS INDICATE SPACES * THEN A NON-SPACE PASSWORD HAS NOT BEEN SENT. * IF SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN NOT = SPACES OR PASSWORD OF SEC-BASE-INFO NOT = "*+ " #DELETE 04472f07 #ADD 06008f00 ** CALCULATE LENGTH OF NEW-USER-PASSWORD OF ADD-LIKE-REQ = ** NEW-USER-PASSWORD-LGTH IF NEW-USER-PASSWORD-LGTH > 8 MOVE NEW-USER-PASSWORD OF ADD-LIKE-REQ TO SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN MOVE NEW-USER-PASSWORD-LGTH TO SEC-PSWD-OVRLY-1-LGTH OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN ELSE MOVE NEW-USER-PASSWORD OF ADD-LIKE-REQ TO PASSWORD OF SEC-BASE-INFO. #DELETE 06008f01/06008f02 #ADD 07025A23 ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-LGTH-MIN, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-LGTH-MIN VARYING M FROM 1 BY 1 UNTIL M > 2 #ADD 07025A24 MOVE "12" TO LCONF-PASSWORD-LGTH-MIN #DELETE 07025A25 #ADD 07025A29 MOVE "12" TO LCONF-PASSWORD-LGTH-MIN. #DELETE 07025A2A #ADD 07025a19 ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-NUM-ALPHA, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-NUM-ALPHA VARYING M FROM 1 BY 1 UNTIL M > 2 IF LCONF-PASSWORD-NUM-ALPHA NOT = "00" AND LCONF-PASSWORD-NUM-ALPHA NOT = "01" AND LCONF-PASSWORD-NUM-ALPHA NOT = "02" AND LCONF-PASSWORD-NUM-ALPHA NOT = "03" AND LCONF-PASSWORD-NUM-ALPHA NOT = "04" AND LCONF-PASSWORD-NUM-ALPHA NOT = "05" AND LCONF-PASSWORD-NUM-ALPHA NOT = "06" AND LCONF-PASSWORD-NUM-ALPHA NOT = "07" AND LCONF-PASSWORD-NUM-ALPHA NOT = "08" AND LCONF-PASSWORD-NUM-ALPHA NOT = "09" AND LCONF-PASSWORD-NUM-ALPHA NOT = "10" AND LCONF-PASSWORD-NUM-ALPHA NOT = "11" AND LCONF-PASSWORD-NUM-ALPHA NOT = "12" AND LCONF-PASSWORD-NUM-ALPHA NOT = "13" AND LCONF-PASSWORD-NUM-ALPHA NOT = "14" AND LCONF-PASSWORD-NUM-ALPHA NOT = "15" AND LCONF-PASSWORD-NUM-ALPHA NOT = "16" MOVE "00" TO LCONF-PASSWORD-NUM-ALPHA #DELETE 07025a1A/07025a1J #ADD 07025a1N MOVE "00" TO LCONF-PASSWORD-NUM-ALPHA. #DELETE 07025a1O #ADD 07025a1U ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-NUM-NUMERIC, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-NUM-NUMERIC VARYING M FROM 1 BY 1 UNTIL M > 2 IF LCONF-PASSWORD-NUM-NUMERIC NOT = "00" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "01" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "02" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "03" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "04" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "05" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "06" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "07" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "08" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "09" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "10" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "11" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "12" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "13" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "14" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "15" AND LCONF-PASSWORD-NUM-NUMERIC NOT = "16" MOVE "00" TO LCONF-PASSWORD-NUM-NUMERIC #DELETE 07025a1V/07025a1e #ADD 07025a1i MOVE "00" TO LCONF-PASSWORD-NUM-NUMERIC. #DELETE 07025a1j #ADD 07025a1p ENTER TAL "RIGHT^JUSTIFY" OF UTILIB USING LCONF-PASSWORD-NUM-SPCL, LCONF-PARAM-LENGTH PERFORM 210-FIX-PASSWORD-NUM-SPCL VARYING M FROM 1 BY 1 UNTIL M > 2 IF LCONF-PASSWORD-NUM-SPCL NOT = "00" AND LCONF-PASSWORD-NUM-SPCL NOT = "01" AND LCONF-PASSWORD-NUM-SPCL NOT = "02" AND LCONF-PASSWORD-NUM-SPCL NOT = "03" AND LCONF-PASSWORD-NUM-SPCL NOT = "04" AND LCONF-PASSWORD-NUM-SPCL NOT = "05" AND LCONF-PASSWORD-NUM-SPCL NOT = "06" AND LCONF-PASSWORD-NUM-SPCL NOT = "07" AND LCONF-PASSWORD-NUM-SPCL NOT = "08" AND LCONF-PASSWORD-NUM-SPCL NOT = "09" AND LCONF-PASSWORD-NUM-SPCL NOT = "10" AND LCONF-PASSWORD-NUM-SPCL NOT = "11" AND LCONF-PASSWORD-NUM-SPCL NOT = "12" AND LCONF-PASSWORD-NUM-SPCL NOT = "13" AND LCONF-PASSWORD-NUM-SPCL NOT = "14" AND LCONF-PASSWORD-NUM-SPCL NOT = "15" AND LCONF-PASSWORD-NUM-SPCL NOT = "16" MOVE "00" TO LCONF-PASSWORD-NUM-SPCL #DELETE 07025a1q/07025a1z #ADD 07025a23 MOVE "00" TO LCONF-PASSWORD-NUM-SPCL. #DELETE 07025a24 #ADD 07025c0I * and PASSWORD-NUM-SPCL is greater than 16, set each field #DELETE 07025c0J #ADD 07025c0P PASSWORD-NUM-SPCL > 16 #DELETE 07025c0Q #DELETE 08174W00/08175 #DELETE 08180W01/08181 #ENDSCN = BA0S032 !#CMP2.28 04/22/24 RQPBFS 6029 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQPBFS RQPBFS 6029 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQPBFS RQPBFS 6029 * ******************************************************************************** #SCN = BA0S034 , FILEID = RQPBFS #VOLUME = $ROOK.BA60AFT #FILE = RQPBFS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6029 #NEWVERSION = 6030 #ADD 00023c0F * 23APR2024 ChristL * Symptom: Account number not masked when next or previous * screen is viewed. * Problem: The unmasked account number which is moved to * the screen variable ws-num is not restored with * the masked account number data after the * account number validations are completed, * causing the screen variable to have the unmasked * data to be displayed on screen. * Fix: Modified code to restore the masked value back * to the working storage screen variable ws-num. * Modified Paragraphs: * 480-DATA-CHECK * Dependency: Apply fixes to: * BA60AFT : RQPBFS. * Reference: Case #3631737 #ADD 00903c06 480-DATA-CHECK IF MASKING-FLG OF USER-CONTEXT-EXT = "Y" IF WS-UNMASK-ACCT = WS-NUM MOVE WS-MASK-ACCT TO WS-NUM IF WS-OVERLAY = 6 IF WS-UNMASK-CR-LINE-ACCT = WS-CR-LINE-ACCT MOVE WS-MASK-CR-LINE-ACCT TO WS-CR-LINE-ACCT. #DELETE 00903c07/00903c0B 480-DATA-CHECK #ENDSCN = BA0S034 !#CMP2.28 04/25/24 RQSECS 6026 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSECS RQSECS 6026 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSECS RQSECS 6026 * ******************************************************************************** #SCN = BA0S038 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6026 #NEWVERSION = 6027 #ADD 00019Z0H * 25APR2024 MohanD * Symptom: 1) When trying to change some field from SEC, * for example MASKING FLAG, MAX LOGON ATTEMPTS, * START TIME, END TIME -> "PASSWORD MUST HAVE * AT LEASE 2 DIFFERENT CHARACTERS 0011" error * message is displayed. * 2) When trying to change the password, if MASKING * FLAG is set to Y and the new length is less * than 16 -> "PASSWORD VERIFICATION FAILED * - PLEASE RE-ENTER 0011" error message is * displayed. * Problem: 1) When trying to update some field from SEC, * varible that stores password fields is not * cleared fully which requires password field * to be updated along with other fields. * 2) When trying to change the password, * varible that stores password fields is not * cleared fully thats makes mismatch in password * and password-verify fields. * Fix: Code has been modified to fill WS-PSWD with the * valid value, and provide a check for spaces. * Modified Paragraphs: 292-ADD-LIKE * 400-MOVE-RECORD * 470-SET-UP-UPDATE * 480-DATA-CHECK * 800-SPECIAL-GO-TO-SCREEN * Dependency: Apply fix to * BA60AFT: RQSECS * Run Make. * Replace Files: * BA60UD0S: SCNPSWDL, V61004 * Reference: WO # PDM-004603 #ADD 00393 292-ADD-LIKE IF WS-OVERLAY = 1 IF WS-PSWD = SPACES MOVE PASSWORD OF SEC-BASE-INFO TO WS-PSWD. #ADD 00539W01 400-MOVE-RECORD MOVE PASSWORD OF SEC-BASE-INFO TO WS-PSWD #ADD 00691P03 470-SET-UP-UPDATE IF WS-PSWD = SPACES MOVE PASSWORD OF SEC-BASE-INFO TO WS-PSWD #ADD 00734Z0E 480-DATA-CHECK IF WS-OVERLAY = 1 IF WS-PSWD = SPACES MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE IF MOVE-MESSAGE MOVE "PASSWORD CANNOT BE BLANK" TO ERR-TXT SET NEW-CURSOR AT S-PASSWORD MOVE "N" TO FLAG-MOVE. #DELETE 00734Z0F/00734Z0W 480-DATA-CHECK #ADD 00935 800-SPECIAL-GO-TO-SCREEN IF WS-OVERLAY = 1 IF WS-PSWD = SPACES MOVE PASSWORD OF SEC-BASE-INFO TO WS-PSWD. #ENDSCN = BA0S038 !#CMP2.28 04/25/24 SVISECS 6043 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6043 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6043 * ******************************************************************************** #SCN = BA0S039 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6043 #NEWVERSION = 6044 #ADD 01101q0c * 25APR2024 MohanD * Symptom: When trying to change the password in SEC, * if MASKING FLAG is set to Y and the new length * is 16 "PASSWORD CAN NOT BE REUSED TRY AGAIN 0004" * error message is displayed. * Problem: When trying to change the password, password * history check is not working for password having * length greater than 8 and less than * or equal to 16. * Fix: The security server has been modified to move * the password according to their length, before * checking password history. * Modified Paragraph: 210-VALIDATE-ENCRYPT-PASSWORD * Dependency: Apply fix to * BA60AFT: SVISECS * Run Make. * Replace Files: * BA60UD0S: SCNPSWDL, V61004 * Reference: WO # PDM-004603 #ADD 03634q0m MOVE LEN TO WS-NEW-PASSWORD-HOLD-LGTH IF WS-NEW-PASSWORD-HOLD-LGTH <= 8 MOVE PASSWORD OF SEC-BASE-INFO TO WS-NEW-PASSWORD-HOLD ELSE MOVE SEC-PSWD-OVRLY-1 OF MSG-FILE-MAINT-4096-EXT OF MESSAGE-IN TO WS-NEW-PASSWORD-HOLD. #ENDSCN = BA0S039 !#CMP2.28 04/26/24 BAAFTMM 6007 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.BAAFTMM BAAFTMM 6007 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.BAAFTMM BAAFTMM 6007 * ******************************************************************************** #SCN = BA0S044 , FILEID = BAAFTMM #VOLUME = $ROOK.BA60AFT #FILE = BAAFTMM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6007 #NEWVERSION = 6008 #ADD 0095G0O # 26APR2024 MohanD # Symptom: PCI DSS V4 - Multi-Factor Authentication (MFA) # Problem: None. # Fix: Added the following defines to support Multi-Factor # Authentication. # basrc_mfacopyc # basrc_mfacopys # Dependency: Apply fixes to # BA60AFT : BAAFTMM, RQMEGAM, RQMEGAS, # RQSECS, SCRNSEC, SVISECS # BA60DDL : DDLGSEC # BA60MAKE: CUSTMACS, FLGSDOC # Run Make. # New files Added: # BA60SRC : MFACOPYC, MFACOPYS # Refer to BA60UD0S.SCNMFA for the complete list # of dependencies. # Reference: WO #PDM-006191 #ADD 0384 # # COBOL copy libraries for the BASE24 RQMEGAS requester to integrate # MFA functionality. # # If the customer wants to implement MFA in BASE24 Pathway # application and XUA product is installed, # replace the the XUA dummy copy constants and statements # source files with the real files from the XYPRO. basrc_mfacopyc = \OMA3T06.$rook.ba60src.mfacopyc basrc_mfacopys = \OMA3T06.$rook.ba60src.mfacopys #ENDSCN = BA0S044 !#CMP2.28 04/26/24 RQMEGAM 6003 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQMEGAM RQMEGAM 6003 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQMEGAM RQMEGAM 6003 * ******************************************************************************** #SCN = BA0S045 , FILEID = RQMEGAM #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAM #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = MAKE #VERSION = 6003 #NEWVERSION = 6004 #ADD 0064C0T # 26APR2024 MohanD # Symptom: PCI DSS V4 - Multi-Factor Authentication (MFA) # Problem: None. # Fix: The MEGA requester Make file has been modified to # add the following new defines for MFA. # basrc_mfacopyc # basrc_mfacopys # Added logic to include MFA_ON flag. # If MFA_ON is set to TRUE in CUSTMACS, RQMEGAS is # compiled with SETTOG 7 in addition to either # SETTOG 1,2,3 or 6. # Dependency: Apply fixes to # BA60AFT : BAAFTMM, RQMEGAM, RQMEGAS # BA60DDL : DDLGSEC # BA60MAKE: CUSTMACS, FLGSDOC # Run Make. # New files Added: # BA60SRC : MFACOPYC, MFACOPYS # Refer to BA60UD0S.SCNMFA for the complete list # of dependencies. # Reference: WO #PDM-006191 #ADD 0083 $(basrc_mfacopyc) \ $(basrc_mfacopys) \ #ADD 0130 !IF $(RETAIL_ON) = TRUE |THEN| !IF $(MFA_ON) = TRUE |THEN| !IF $(BAAFT_T3270_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.irm & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 1,2,6,7; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.irm !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = FALSE |THEN| !IF $(MFA_ON) = FALSE |THEN| !IF $(BAAFT_T3270_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.i & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 1,2; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.i !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = FALSE |THEN| !IF $(MFA_ON) = TRUE |THEN| !IF $(BAAFT_T3270_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.im & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 1,2,7; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.im !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = TRUE |THEN| !IF $(MFA_ON) = FALSE |THEN| !IF $(BAAFT_T3270_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.ir & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 1,2,6; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.ir !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = TRUE |THEN| !IF $(MFA_ON) = TRUE |THEN| !IF $(BAAFT_T6520_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.trm & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 3,6,7; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.trm !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = FALSE |THEN| !IF $(MFA_ON) = FALSE |THEN| !IF $(BAAFT_T6520_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.t & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 3; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.t !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = FALSE |THEN| !IF $(MFA_ON) = TRUE |THEN| !IF $(BAAFT_T6520_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.tm & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 3,7; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.tm !ENDIF !ENDIF !ENDIF !IF $(RETAIL_ON) = TRUE |THEN| !IF $(MFA_ON) = FALSE |THEN| !IF $(BAAFT_T6520_ON) = TRUE |THEN| = aci_scobolx_make $(SCOBOLX) $(TARGET) /in $(baaft_rqmegas), & = out $s.#rqmega.tr & = $(baaft_compile_opts) & = / [temp_pobj]; & = settog 3,6; & = $(baaft_scobolx_opts) = check_scobol_completion $(TARGET) = del_peruse_job $(PERUSE) $(baaft_purge_spooler_on) #rqmega.tr !ENDIF !ENDIF !ENDIF #DELETE 0131 /0177 #ENDSCN = BA0S045 !#CMP2.28 04/26/24 RQMEGAS 6050 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQMEGAS RQMEGAS 6050 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQMEGAS RQMEGAS 6050 * ******************************************************************************** #SCN = BA0S046 , FILEID = RQMEGAS #VOLUME = $ROOK.BA60AFT #FILE = RQMEGAS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6050 #NEWVERSION = 6051 #ADD 00020x0G * 26APR2024 MohanD * Symptom: PCI DSS V4 - Multi-Factor Authentication (MFA) * Problem: None. * Fix: The MEGA requester has been modified to support * Multi-Factor Authentication Functionality. * Added Paragraph: 312-XYGATE-MFA-CALL * Modified Paragraphs: 311-SECURITY-LOGON-FUNCTION * 315-SEC-LOGON-FUNCT-LN-CHANGE * 990-WRITE-LOGOFF * Dependency: Apply fixes to * BA60AFT : BAAFTMM, RQMEGAM, RQMEGAS * BA60DDL : DDLGSEC * BA60MAKE: CUSTMACS, FLGSDOC * Run Make. * New files Added: * BA60SRC : MFACOPYC, MFACOPYS * Refer to BA60UD0S.SCNMFA for the complete list * of dependencies. * Reference: WO #PDM-006191 #ADD 00036m03 DATA DIVISION COPY XYGATE-MFA-PARAMS OF =BASRC_MFACOPYC. COPY XYGATE-B24-SAVED-CONTEXT OF =BASRC_MFACOPYC. #ADD 00097m0A DATA DIVISION 01 MSG-MFA. 04 MFA-FLG PIC X VALUE "N". #ADD 00591m00 311-SECURITY-LOGON-FUNCTION SEND MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA TO WS-SERVER #DELETE 00591m01 311-SECURITY-LOGON-FUNCTION #ADD 00592m00 311-SECURITY-LOGON-FUNCTION REPLY CODE 0 YIELDS MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA #DELETE 00592m01 311-SECURITY-LOGON-FUNCTION #ADD 00595 311-SECURITY-LOGON-FUNCTION ?IF 7 IF MFA-FLG = "Y" PERFORM 312-XYGATE-MFA-CALL. ?ENDIF 7 #ADD 00625 313-DETERMINE-RQ-OR-VIRTUAL ?IF 7 312-XYGATE-MFA-CALL. COPY XYGATE-MFA-CALL OF =BASRC_MFACOPYS. ?ENDIF 7 #ADD 01193m00 315-SEC-LOGON-FUNCT-LN-CHANGE SEND MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA TO WS-SERVER #DELETE 01193m01 315-SEC-LOGON-FUNCT-LN-CHANGE #ADD 01194m00 315-SEC-LOGON-FUNCT-LN-CHANGE REPLY CODE 0 YIELDS MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA #DELETE 01194m01 315-SEC-LOGON-FUNCT-LN-CHANGE #ADD 02059m03 990-WRITE-LOGOFF SEND MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA TO WS-SERVER REPLY CODE 0 YIELDS MSG-SECURITY-EXT, MSG-LCONF, MSG-MFA. #DELETE 02059m04/02059m05 990-WRITE-LOGOFF #ENDSCN = BA0S046 !#CMP2.28 04/26/24 RQSECS 6027 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSECS RQSECS 6027 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSECS RQSECS 6027 * ******************************************************************************** #SCN = BA0S047 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6027 #NEWVERSION = 6028 #ADD 00019a0X * 26APR2024 MohanD * Symptom: PCI DSS V4 - Multi-Factor Authentication (MFA) * Problem: None. * Fix: The Security Requester has been modified to * support the new field MFA-FLG added in the * SEC screen. * Modified Paragraphs: 400-MOVE-RECORD * 480-DATA-CHECK * 595-CLEAR-DATA * Dependency: Apply fixes to * BA60AFT : RQSECS, SCRNSEC, SVISECS * BA60DDL : DDLGSEC * Run Make. * Refer to BA60UD0S.SCNMFA for the complete list * of dependencies. * Reference: WO #PDM-006191 #ADD 00552W04 400-MOVE-RECORD IF WS-OVERLAY = 1 AND MFA-FLG OF SEC-BASE-INFO NOT = "Y" AND MFA-FLG OF SEC-BASE-INFO NOT = "N" MOVE "Y" TO MFA-FLG OF SEC-BASE-INFO. #ADD 00734W0w 480-DATA-CHECK * CHECK MFA FLAG FOR "Y" OR "N" IF WS-OVERLAY = 1 IF MFA-FLG OF SEC-BASE-INFO NOT = "Y" AND MFA-FLG OF SEC-BASE-INFO NOT = "N" MOVE "BAD" TO VALID-DATA MOVE 11 TO ERR-CDE TURN TEMP SERROR IN S-MFA-FLG IF MOVE-MESSAGE MOVE "MFA FLAG MUST BE 'Y' OR 'N'" TO ERR-TXT SET NEW-CURSOR AT S-MFA-FLG MOVE "N" TO FLAG-MOVE. #ADD 00895W03 595-CLEAR-DATA MOVE "Y" TO MFA-FLG OF SEC-BASE-INFO. #ENDSCN = BA0S047 !#CMP2.28 04/26/24 SVISECS 6044 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6044 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6044 * ******************************************************************************** #SCN = BA0S049 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6044 #NEWVERSION = 6045 #ADD 01101r0K * 26APR2024 MohanD * Symptom: PCI DSS V4 - Multi-Factor Authentication (MFA) * Problem: None. * Fix: Added code changes to support the new field * MFA flag. * Modified Paragraphs: 200-LOGOFF * 210-ADD-SUPER-SUPER * 210-LOGON * 220-VALIDATE-LN-CHANGE * Dependency: Apply fixes to * BA60AFT : RQSECS, SCRNSEC, SVISECS * BA60DDL : DDLGSEC * Run Make. * Refer to BA60UD0S.SCNMFA for the complete list * of dependencies. * Reference: WO #PDM-006191 #ADD 01368W04 02 MSG-MFA. 04 MFA-FLG PIC X. #ADD 01380W00 02 MSG-MFA. 04 MFA-FLG PIC X. #ADD 01840f03 02 WS-MFA-FLG PIC X(1). 02 WS-USER-FLD1 PIC X(13). #DELETE 01840f04 #ADD 03319L03 MOVE MSG-MFA OF MESSAGE-IN TO MSG-MFA OF MESSAGE-OUT #ADD 03327L03 MOVE MSG-MFA OF MESSAGE-IN TO MSG-MFA OF MESSAGE-OUT #ADD 03348f08 IF MFA-FLG OF SEC-BASE-INFO NOT = "N" MOVE "Y" TO MFA-FLG OF SEC-BASE-INFO END-IF MOVE MFA-FLG OF SEC-BASE-INFO TO MFA-FLG OF MESSAGE-OUT #ADD 03524f02 MOVE "N" TO MFA-FLG OF SEC-BASE-INFO. #ADD 03651W00 IF MFA-FLG OF SEC-BASE-INFO NOT = "N" MOVE "Y" TO MFA-FLG OF SEC-BASE-INFO END-IF MOVE MFA-FLG OF SEC-BASE-INFO TO MFA-FLG OF MESSAGE-OUT #ENDSCN = BA0S049 !#CMP2.28 05/27/24 RQSECS 6028 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.RQSECS RQSECS 6028 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.RQSECS RQSECS 6028 * ******************************************************************************** #SCN = BA0S067 , FILEID = RQSECS #VOLUME = $ROOK.BA60AFT #FILE = RQSECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = SCOBOL #VERSION = 6028 #NEWVERSION = 6029 #ADD 00019b0H * 27MAY2024 MohanD * Symptom: Issues while updating/adding ACCESS CODES for a * certain file in overlay-3 of sec. * ( F15- File Access is executed from overlay-1, * followed by F5- Update ) * Problem: The variable TRAN-CDE is not set correctly * in proc 470-SET-UP-UPDATE for update operation * in overlay-3. * Fix: Code has been modified to execute the line * that sets variable TRAN-CDE for Update operation * in overlay-3. * Modified Paragraph: 470-SET-UP-UPDATE * Dependency: Apply fix to * BA60AFT: RQSECS * Run Make. * Replace Files: * BA60UD0S: SCNPSWDL, V61004 * Reference: Case #3638344 #ADD 00691a02 470-SET-UP-UPDATE ELSE NEXT SENTENCE #ENDSCN = BA0S067 !#CMP2.28 08/14/24 COBTKN 6070 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.COBTKN COBTKN 6070 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.COBTKN COBTKN 6070 * ******************************************************************************** #SCN = BA0S074 , FILEID = COBTKN #VOLUME = $ROOK.BA60AFT #FILE = COBTKN #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = COBOL #VERSION = 6070 #NEWVERSION = 6071 #ADD 00057`0R * 14AUG2024 MohanD * Symptom: BASE24 Fall 2024 Base Files Enhancements * Problem: None. * Fix: Added ATM and POS entries to PROD-TKN-TABLE for * P2P RCV DATA3 TKN ( HP ) * P2P SENDER DATA3 TKN ( HQ ) * ADVICE DATA TOKEN ( HR ) * Added POS entry to PROD-TKN-TABLE for * POS ACCPT LOCATION Token ( J1 ) * CREDENTIAL UPDATE TKN ( J2 ) * Incremented WS-PROD-TKN-TBL and * PROD-TKN-TABLE-CNT accordingly. * Dependency: Apply fixes to: * BA60AFT: COBTKN * BA60DDL: DDLBATKN, DDLPSTKN * BA60SRC: BATKNCVS, BATKNID, PSTKNCVS, PSTKNID * Run Make. * Reference: WO #PDM-006614 - VisaNet October 2024 Business * Enhancements * WO #PDM-006623 - Banknet Release 24.Q4 Functional * Enhancements * WO #PDM-006624 - MDS Release 24.Q4 Functional * Enhancements * WO #PDM-006861 - Visa DPS October 2024 Business * Enhancements #ADD 00195`0F 05 ATM151 PIC X(29) VALUE "HP01ATM P2P RCV DATA3 TKN ". 05 POS185 PIC X(29) VALUE "HP02POS P2P RCV DATA3 TKN ". 05 ATM152 PIC X(29) VALUE "HQ01ATM P2P SENDER DATA3 TKN ". 05 POS186 PIC X(29) VALUE "HQ02POS P2P SENDER DATA3 TKN ". 05 POS187 PIC X(29) VALUE "J102POS POS ACCEPT LOCATION ". 05 POS188 PIC X(29) VALUE "J202POS CREDENTIAL UPDATE TKN". 05 ATM153 PIC X(29) VALUE "HR01ATM ADVICE DATA TOKEN ". 05 POS189 PIC X(29) VALUE "HR02POS ADVICE DATA TOKEN ". #REPLACE 00197`01 02 WS-PROD-TKN-TBL OCCURS 361 TIMES. #REPLACE 00201`01 01 PROD-TKN-TABLE-CNT PIC 9(4) COMP VALUE 361. #ENDSCN = BA0S074 !#CMP2.28 11/05/24 SVISECS 6045 FIX BA60AFT *** \NEW; OUTLEN 80; SECT "- " 1 ******************************************************************************** * * * IF YOU RECEIVE THIS ERROR MESSAGE * * *** ERROR **** (2061) FILE IS NOT A VALID CMD FILE * * CONTACT YOUR ACI REPRESENTATIVE FOR THE MOST RECENT FIX OBJECT * * DO NOT ALTER THIS FIX FILE TO FORCE APPLICATION * * * * THIS COMMAND FILE IS CREATED BY CMP PROGRAM TO BE USED IN FIX PROGRAM. * * THE LINES TO BE ADDED OR REPLACED SHOULD BE LESS THAN 71 CHARACTERS AND * * SHOULD NOT HAVE ANY SEQUENCE NUMBERS AT THE END. * * * * FILE ID VERSION * * OLD FILE: \OMA3T06.$ROOK.BA60AFT.SVISECS SVISECS 6045 * * NEW FILE: \OMA3T06.$CKOUT.BA6DAFT.SVISECS SVISECS 6045 * ******************************************************************************** #SCN = BA0S096 , FILEID = SVISECS #VOLUME = $ROOK.BA60AFT #FILE = SVISECS #PRODUCTID = BA60AFT #ENGINEER = *** #LANGUAGE = ACOBOL #VERSION = 6045 #NEWVERSION = 6046 #ADD 01101s0H * 04NOV2024 watsonl * Symptom: When adding a new user in the SEC or resetting * a user's password, error message "PASSWORD CAN * NOT BE REUSED TRY AGAIN" is emitted. * Problem: A previous fix ('r' BA0S039) inadvertently * introduced a period (.) causing paragraph 240- * PSWD-HIST-CHK to be executed even for non- * complex passwords. * Fix: The fix is to add a check for complex passwords * prior to executing paragraph 240-PSWD-HIST-CHK. * Modified Paragraph: 210-VALIDATE-ENCRYPT-PASSWORD * Dependency: Apply fix to * BA60AFT.SVISECS * Run Make. * Replace * BA60UD0S.SCNPSWDL, V61004 * Reference: Case #3676155 #ADD 03634r08 * * IF NO ERROR AND COMPLEX CHECK PASSWORD HISTORY. * IF NO-ERROR AND LCONF-PASSWORD-COMPLEX = "Y" #ENDSCN = BA0S096